b- JoinClj edit** - wiki at8a.....

; ;{{{ ((defn join [] (handle "join" (fn [] (let [hConf (new org.apache.hadoop.hbase.HBaseConfiguration) hBase (new org.apache.hadoop.hbase.client.HBaseAdmin hConf) hTable (new org.apache.hadoop.hbase.HTableDescriptor "JoinNow") ] (str "

Einbürgerungsantrag

Hier kannst Du Deinen Antrag auf Einbürgerung in NooPolis stellen:

Damit das Wahlsystem und das Geldsystem von NooPolis zuverlässig sind, wollen wir überprüfbare Identitäten aller BuergerInnen sicherstellen. Damit Du Bürger werden kannst, muss Dir deshalb mindestens einer der jetzigen BuergerInnen sein Vertrauen aussprechen.

Geschlecht: " (if (.contains (str "" (.getParameter request "message")) "noGender") ;TODO cssify the 'red': "Bitte gib Dein Geschlecht an:
") " weiblich männlich
Vorname: Alle BuergerInnen müssen ihren RealNamen angeben.
Nachname:
WikiName: " (if (.contains (str "" (.getParameter request "message")) "wikiNameAlreadyInvited") ;TODO cssify the 'red': "Dieser WikiName ist leider schon an einen Eingeladenen vergeben. Bitte wähle einen anderen eindeutigen WikiNamen:
") (if (.contains (str "" (.getParameter request "message")) "wikiNameAlreadyRegistered") "Dieser WikiName ist leider schon an einen anderen Bürger vergeben. Bitte wähle einen anderen eindeutigen WikiNamen:
") "
Kontaktprofil: Am einfachsten können Dir bestehende BuergerInnen ihr Vertrauen aussprechen, indem Du uns einen Link zu Deinem Profil in einem der folgenden Social Networks nennst:
" (apply str (map (fn [x] (str "" x " ") ) ;TODO: ;String npics[]={"}; ; for (int i=0; i ; LowerCase() %>"/> ; LowerCase() %>.png"/> <%=npics[i]%>
["XING" "FaceBook" "StudiVz" "Twitter" "LinkedIn" "Skype"] )) "
Sobald Dir eine der BuergerInnen vertraut, wird sie Dich über Dein angegebenes Profil kontaktieren und Dir die Freischalt-TAN senden.
Einverständnis: Ich akzeptiere daß mein Antrag mit der IP-Adresse " (.getRemoteHost request) " öffentlich zugänglich gespeichert wird und stimme der VerFassung zu.

Ausstehende Anträge

" ((defn scanRow [scanner] (let [next (.next scanner)] (if next (str "" (scanRow scanner)) ) ) ) (.getScanner (new org.apache.hadoop.hbase.client.HTable hConf "JoinNow") (into-array ["join:"])) ) "
am Vorname Nachname WikiName IP-Adresse Profil
" (.format (new java.text.SimpleDateFormat "yyyy-MM-dd hh:mm:ss") (getTimestamp next)) " " (if (.equals "male" (new String (.getValue (.get next "join:InviteeSex")))) "♂" "♀" ) " " (new String (.getValue (.get next "join:FirstName"))) " " (new String (.getValue (.get next "join:LastName"))) " " (new String (.getValue (.get next "join:WikiHomePage"))) " " (new String (.getValue (.get next "join:RemoteAddr"))) " " (new String (.getValue (.get next "join:ProfileUrl"))) "
" ))) (fn [] (if (not (.equals "true" (.getParameter request "accept"))) (.sendRedirect response (str "/join?message=notAccepted")) (let [hConf (new org.apache.hadoop.hbase.HBaseConfiguration) hTable (new org.apache.hadoop.hbase.client.HTable hConf "JoinNow") eTable (new org.apache.hadoop.hbase.client.HTable hConf "EventLog") now (dateOfNow) batch (new org.apache.hadoop.hbase.io.BatchUpdate now) eBatch (new org.apache.hadoop.hbase.io.BatchUpdate now)] (do (.put batch "join:InviteeSex" (.getBytes (.getParameter request "inviteeSex"))) (.put batch "join:FirstName" (.getBytes (.getParameter request "inviteeFirstName"))) (.put batch "join:LastName" (.getBytes (.getParameter request "inviteeLastName"))) (.put batch "join:WikiHomePage" (.getBytes (.getParameter request "inviteeWikiName"))) (.put batch "join:ProfileUrl" (.getBytes (.getParameter request "inviteeProfileUrl"))) (.put batch "join:RemoteAddr" (.getBytes (.getRemoteAddr request))) (.put batch "join:RemoteHost" (.getBytes (.getRemoteHost request))) (.put eBatch "log:EventType" (.getBytes "JoinNow")) (.put eBatch "log:WikiName" (.getBytes (.getParameter request "inviteeWikiName"))) (.commit hTable batch) (.commit eTable eBatch) (.sendRedirect response (str "/join?message=created")))) )))) ) ))) ;}}}