diff options
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)))))) |