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/config.clj | 13 +++++++------ src/site.clj | 12 ++++++------ 2 files changed, 13 insertions(+), 12 deletions(-) (limited to 'src') 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")))) -- cgit v1.2.3-70-g09d2