diff options
| author | sostler <sbostler@gmail.com> | 2010-05-04 00:11:38 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-05-04 00:11:38 -0400 |
| commit | ee124f1a698551e8307176e8dfdfb04aa6535bae (patch) | |
| tree | 09c71dd33d11e12d41eb11eb1ff0496b3dc70f0f /src | |
| parent | afef6f9e56586a8c5bc01f1dcf6bd3be65abd541 (diff) | |
Added user-accessible pw reset request
Diffstat (limited to 'src')
| -rw-r--r-- | src/site.clj | 4 | ||||
| -rw-r--r-- | src/user.clj | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj index 7848dcb..d1175d5 100644 --- a/src/site.clj +++ b/src/site.clj @@ -816,6 +816,9 @@ ORDER BY msg_count DESC") ;; Account resets +(defn reset-request-page [session] + (.toString (fetch-template "req_reset" session))) + (defn reset-request! [session {nick :nick}] (if-let [info (fetch-nick nick)] (let [email (info :email) @@ -1004,6 +1007,7 @@ ORDER BY msg_count DESC") (GET "/directory" (directory session 0)) (GET "/directory/:offset" (directory session (maybe-parse-int (params :offset) 0))) + (GET "/reset-request" (reset-request-page session)) (POST "/reset-request" (reset-request! session params)) (GET "/reset" (reset-page session params)) (POST "/reset" (reset-account! session params)) diff --git a/src/user.clj b/src/user.clj index 9d3060f..b948a8f 100644 --- a/src/user.clj +++ b/src/user.clj @@ -37,6 +37,6 @@ "token" token})) (defn valid-reset-link? [nick token ts] - (if-let [info (fetch-nick nick)] + (if-let [info (and nick (fetch-nick nick))] (and (= token (reset-token (info :nick) (info :hash) ts)) - (>= ts (ms-ago (days 2))))))
\ No newline at end of file + (>= ts (ms-ago (days 2)))))) |