diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/site.clj | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/site.clj b/src/site.clj index 16f89ea..3f30090 100644 --- a/src/site.clj +++ b/src/site.clj @@ -311,10 +311,10 @@ (serve-file "static" "index.html"))) (defn login [session params cookies] - (let [nick (params :nick) - hash (params :hash) - db-user (authorize-nick-hash nick hash) - remember-me (= (params :rememberme) "yes") + (let [nick (or (params :nick) "") + hash (or (params :hash) "") + db-user (authorize-nick-hash nick hash) + remember-me (= (params :rememberme) "yes") login-cookie (if remember-me (make-login-token db-user) (clear-login-token *login-token-key*))] @@ -350,9 +350,9 @@ (> (count (do-select [query (lower-case nick)])) 0)))) (defn register [session params] - (let [nick (params :nick) - email (params :email) - hash (params :hash) + (let [nick (or (params :nick) "") + email (or (params :email) "") + hash (or (params :hash) "") invalid-nick-reason (is-invalid-nick? nick)] (cond invalid-nick-reason (resp-error invalid-nick-reason) (nick-reserved? nick) (resp-error "NICK_TAKEN") @@ -980,7 +980,7 @@ ORDER BY msg_count DESC") (GET "/json/:nick/favorites" (json-favorites session params)) ; have to put this route after favs - (GET "/u/:nick/:offset" (profile session (params :nick) (params :offset))) + (GET "/u/:nick/:offset" (profile session (params :nick) (params :offset))) (GET "/p/:nick/:postid" (single-message session (params :nick) (params :postid))) (GET "/login" (login session params cookies)) |