Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (53 sloc) 2.36 kb
(ns foreclojure.register
(:require [sandbar.stateful-session :as session]
[ring.util.response :as response])
(:import [org.jasypt.util.password StrongPasswordEncryptor])
(:use [hiccup.form-helpers :only [form-to text-field password-field]]
[compojure.core :only [defroutes GET POST]]
[foreclojure.utils :only [form-row assuming flash-error]]
[foreclojure.template :only [def-page]]
[somnium.congomongo :only [insert! fetch-one]]))
(def-page register-page []
{:title "4clojure – Register"
[:div.error (session/flash-get :error)]
(form-to [:post "/register"]
(map form-row
[[text-field :user "Username (4-13 chars.)" (session/flash-get :user)]
[password-field :pwd "Password (7+ chars.)"]
[password-field :repeat-pwd "Repeat Password"]
[text-field :email "Email" (session/flash-get :email)]])
[:td [:button {:type "submit"} "Register"]]]]))})
(defn do-register [user pwd repeat-pwd email]
(let [lower-user (.toLowerCase user)]
(assuming [(nil? (fetch-one :users :where {:user lower-user}))
"User already exists",
(< 3 (.length lower-user) 14)
"Username must be 4-13 characters long",
(= lower-user
(first (re-seq #"[A-Za-z0-9_]+" lower-user)))
"Username must be alphanumeric"
(< 6 (.length pwd))
"Password must be at least seven characters long",
(= pwd repeat-pwd)
"Passwords don't match",
(not (empty? email))
"Please enter a valid email address"]
(insert! :users
{:user lower-user
:pwd (.encryptPassword (StrongPasswordEncryptor.) pwd)
:email email})
(session/session-put! :user lower-user)
(response/redirect "/"))
(session/flash-put! :user user)
(session/flash-put! :email email)
(flash-error "/register" why)))))
(defroutes register-routes
(GET "/register" [] (register-page))
(POST "/register" {{:strs [user pwd repeat-pwd email]} :form-params}
(do-register user pwd repeat-pwd email)))
Jump to Line
Something went wrong with that request. Please try again.