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/site.clj | |
| parent | afef6f9e56586a8c5bc01f1dcf6bd3be65abd541 (diff) | |
Added user-accessible pw reset request
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 4 |
1 files changed, 4 insertions, 0 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)) |