diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 16 |
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 |