b- ReplClj edit** - wiki at8a.....

; ; ;{{{ ((defn repl [] (handle "repl" (fn [request response] (str "you: " (.getAttribute (.getSession request) "WikiName") "RePl:

" (if (and (.equals "eval" (.getParameter request "eval")) (or (.equals "84.179.126.164" (.getRemoteAddr request)) ;TODO make more secure (.equals "RainerWasserfuhr" (.getAttribute (.getSession request) "WikiName")))) (eval (read-string (.getParameter request "expression"))) "

Sorry, you have no permissions, please JoinNow

" ) "
" "" " " " " " " " " "
onbyexpression
") ) "")))) ;}}}