Modified compojure to use configurable domain for session cookies

1 files changed, 10 insertions, 6 deletions

diff --git a/src/site.clj b/src/site.clj
index 2a03f0e..d58406c 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -318,9 +318,9 @@
 
 (defn make-login-token
   [{nick :nick hash :hash}]
-  (let [expiration (ms-in-future *login-token-expiry*)]
-    (set-cookie *login-token-key* 
-                (encode-login-token nick hash expiration)
+  (let [expiration (ms-in-future *login-token-expiry*)
+        token      (encode-login-token nick hash expiration)]
+    (set-cookie *login-token-key* token
                 :expires (gmt-string (new Date expiration))
                 :domain ".dump.fm")))
 
@@ -347,7 +347,7 @@
 
 (defn logout [session]
   [(session-dissoc :nick :user_id :is_admin :avatar)
-   (set-cookie :login-token "dummy"
+   (set-cookie *login-token-key* "dummy"
                :expires "Thu, 01-Jan-1970 00:00:01 GMT"
                :domain ".dump.fm")
    (redirect-to "/")])
@@ -1037,15 +1037,19 @@
 (decorate static
   (with-mimetypes {:mimetypes mimetypes}))
 
+(def *session-cookie-params* {:type :memory
+                              :expires (* 60 60)
+                              :domain ".dump.fm"})
+
 (decorate pichat
   (with-mimetypes {:mimetypes mimetypes})
   (with-cookie-login (comp not logged-in?) make-login-token read-login-token)
-  (with-session {:type :memory, :expires (* 60 60)}))
+  (with-session *session-cookie-params*))
 
 (decorate multipart
   (with-mimetypes {:mimetypes mimetypes})
   (with-cookie-login (comp not logged-in?) make-login-token read-login-token)
-  (with-session {:type :memory, :expires (* 60 60)})
+  (with-session *session-cookie-params*)
   (with-multipart))
 
 ;; Load messages from database