diff options
| -rwxr-xr-x | src/site.clj | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/site.clj b/src/site.clj index 2516d49..a524a1c 100755 --- a/src/site.clj +++ b/src/site.clj @@ -244,13 +244,9 @@ (try [(aget x 0) (Long/parseLong (aget x 1)) (aget x 2)] (catch NumberFormatException _ nil)))) + (defn read-login-token [token] - (if-let [[nick expiry token-hash] (parse-login-token token)] - (if (>= expiry (System/currentTimeMillis)) - (let [db-info (fetch-nick nick) - computed-hash (sha1-hash (db-info :hash) expiry)] - (if (= token-hash computed-hash) - db-info))))) + nil) (defn make-login-token [{nick :nick hash :hash}] @@ -273,7 +269,7 @@ db-user (authorize-nick-hash nick hash) remember-me (= (params :rememberme) "yes") login-cookie (if remember-me - (make-login-token db-user *login-token-expiry*) + (make-login-token db-user) (clear-login-token *login-token-key*))] (if db-user [(session-assoc-from-db db-user) @@ -624,4 +620,4 @@ "/upload" (servlet multipart) "/*" (servlet pichat)) -(send-off flusher flush!)
\ No newline at end of file +(send-off flusher flush!) |