From a3cc24432db0f4a9c9c79731f45e3c03538a432b Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sat, 4 Sep 2010 04:35:52 -0400 Subject: Make login/logout be POSTS --- src/site.clj | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'src') 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) -- cgit v1.2.3-70-g09d2