context specific cookie domain

2 files changed, 13 insertions, 12 deletions

diff --git a/src/config.clj b/src/config.clj
index f09daf8..15834cb 100644
--- a/src/config.clj
+++ b/src/config.clj
@@ -3,17 +3,18 @@
 
 ;; Configuration
 
-(def *cookie-domain*  ".dump.fm")
+(def *server-user* (System/getProperty "user.name"))
+;;   (if (= (System/getProperty "user.name") "dumpfmprod")
 
 (def *server-url*
-  (if (= (System/getProperty "user.name") "dumpfmprod")
+  (if (= *server-user* "dumpfmprod")
     "http://dump.fm"
     "http://localhost:8080"))
 
-(def *deployed*
-  (if (= (System/getProperty "user.name") "dumpfmprod")
-    :prod
-    :local))
+(def *cookie-domain*  
+  (if (= *server-user* "timb")
+  ""
+  ".dump.fm"))
 
 (def *root-directory* (System/getProperty "user.dir"))
 (def *image-directory* "images")
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"))))