diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/src/site.clj b/src/site.clj index 6c6a9dd..934e02d 100644 --- a/src/site.clj +++ b/src/site.clj @@ -12,6 +12,7 @@ clojure.contrib.sql clojure.contrib.str-utils clojure.contrib.def + config admin compojure email @@ -24,17 +25,6 @@ scheduled-agent user)) -;; Configuration - -(def *server-url* - (if (= (System/getProperty "user.name") "dumpfmprod") - "http://dump.fm" - "http://localhost:8080")) - -(def *root-directory* (System/getProperty "user.dir")) -(def *image-directory* "images") -(def *avatar-directory* "avatars") - ; Create image directories if they don't exist. (.mkdir (new File *image-directory*)) (.mkdir (new File *avatar-directory*)) @@ -233,7 +223,7 @@ token (encode-login-token nick hash expiration)] (set-cookie *login-token-key* token :expires (gmt-string (new Date expiration)) - :domain ".dump.fm"))) + :domain *cookie-domain*))) ;; Landing @@ -260,7 +250,7 @@ [(session-dissoc :nick :user_id :is_admin :avatar) (set-cookie *login-token-key* "dummy" :expires "Thu, 01-Jan-1970 00:00:01 GMT" - :domain ".dump.fm") + :domain *cookie-domain*) (redirect-to "http://dump.fm/")]) ;; Registration @@ -1039,7 +1029,7 @@ FROM users u (def *session-cookie-params* {:type :memory :expires (* 60 60) - :domain ".dump.fm"}) + :domain *cookie-domain*}) (decorate pichat (with-mimetypes {:mimetypes mimetypes}) |