diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-09-04 04:35:52 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-09-04 04:35:52 -0400 |
| commit | a3cc24432db0f4a9c9c79731f45e3c03538a432b (patch) | |
| tree | 3bb6e55aa4168c904ce4f4975ffdf6ef61e57961 /src | |
| parent | 86c12f125f1bcfad4959c2a9b1bb1baa8eac3285 (diff) | |
Make login/logout be POSTS
Diffstat (limited to 'src')
| -rw-r--r-- | src/site.clj | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/src/site.clj b/src/site.clj index d692849..422c0b3 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1035,11 +1035,16 @@ WHERE u.user_id = ANY(?)" ts (maybe-parse-long (params :ts) 0) token (params :token) valid (valid-reset-link? nick token ts)] - (.setAttribute st "valid_request" valid) - (.setAttribute st "nick" nick) - (when valid - (.setAttribute st "link" (reset-link nick token ts))) - (.toString st))) + (if (and (zero? ts) + (nil? nick) + (nil? token)) + (reset-request-page session) + (do + (.setAttribute st "valid_request" valid) + (.setAttribute st "nick" nick) + (when valid + (.setAttribute st "link" (reset-link nick token ts))) + (.toString st))))) (defn reset-account! [session params] (let [nick (params :nick) |