From 69804274b58e3b59831bedbe50ff8618de784b88 Mon Sep 17 00:00:00 2001 From: tim b Date: Sat, 3 Jul 2010 18:38:01 -0700 Subject: context specific cookie domain --- src/site.clj | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/site.clj') diff --git a/src/site.clj b/src/site.clj index 6af0ebd..04ebecb 100644 --- a/src/site.clj +++ b/src/site.clj @@ -267,12 +267,12 @@ (make-login-token db-user) (clear-login-token *login-token-key*)) ip (get-ip request)] - (if db-user - (do - (log-login (db-user :user_id) ip) - [(session-assoc-from-db db-user) - login-cookie - (resp-success "OK")] + (if db-user + (do + (log-login (db-user :user_id) ip) + [(session-assoc-from-db db-user) + login-cookie + (resp-success "OK")] ) (resp-error "BAD_LOGIN")))) -- cgit v1.2.3-70-g09d2