b- ReplClj ^{** - 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

" ) "

" (str "" (.getParameter request "expression")) "

" "" " " " " " " " " "

on	by	expression

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