From 42348f2924aad9d26be5e950ef148e237b62987a Mon Sep 17 00:00:00 2001 From: sostler Date: Tue, 27 Apr 2010 23:26:35 -0400 Subject: Fixed registration bug --- src/site.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index b4adfdf..089bba2 100644 --- a/src/site.clj +++ b/src/site.clj @@ -344,8 +344,8 @@ (defn nick-reserved? [nick] (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"] - (and (not (contains? (poll *reserved-nicks*) nick)) - (= (count (do-select [query (lower-case nick)])) 0)))) + (or (contains? (poll *reserved-nicks*) nick) + (= (count (do-select [query (lower-case nick)])) 0)))) (defn register [session params] (let [nick (params :nick) @@ -816,8 +816,8 @@ ORDER BY msg_count DESC") ;; Account resets -(defn reset-page [session] - ) +(defn reset-request-page [session] + (.toString (fetch-template "reset_request.st" session))) (defn reset-account-request! [session params] ) @@ -988,7 +988,7 @@ ORDER BY msg_count DESC") (GET "/directory" (directory session 0)) (GET "/directory/:offset" (directory session (maybe-parse-int (-> request :route-params :offset) 0))) - (GET "/reset" (reset-page session)) + (GET "/reset" (reset-request-page session)) (POST "/reset-request" (reset-account-request! session params)) (POST "/reset/:key" (reset-account! session (-> request :route-params :key))) -- cgit v1.2.3-70-g09d2 From 0843de1a643dee969f496398312fa2268d8227a0 Mon Sep 17 00:00:00 2001 From: sostler Date: Tue, 27 Apr 2010 23:26:54 -0400 Subject: Cleaned up debug code --- src/admin.clj | 43 +++++++++++++++++++++++++++++-------------- 1 file changed, 29 insertions(+), 14 deletions(-) (limited to 'src') diff --git a/src/admin.clj b/src/admin.clj index ef33aa2..f0b6453 100644 --- a/src/admin.clj +++ b/src/admin.clj @@ -173,21 +173,36 @@ AND cancelled = false (.setAttribute st "mailtemps" (lookup-templates "template/mail" "welcome")) (.toString st)))) +(defn debug-reg-email [session params] + (send-registration-email (params :nick) + (params :to) + (params :template)) + (str "Sent registration mail to " (params :to))) + +(defn debug-reset-email [session params] + ) + +(def *debug-action-map* {"regemail" debug-reg-email + "resetemail" debug-reset-email}) + +(defn format-unknown-action [action] + (html [:h2 {"color" "red"} ["Unknown action " action]])) + +(defn format-debug-exception [action e] + (html + [:h2 {"color" "red"} + ["Caught exception in " action " -- " (.getMessage e)]] + :br + [:pre (exception-to-string e)])) + (defn debug-commmand! [session params] (if-vip - (let [action (:action params) - msg (try - (cond (= action "regemail") - (do (send-registration-email (params :nick) - (params :to) - (params :template)) - (str "Sent registration mail to " (params :to))) - :else (str "Unknown action: " action)) - (catch Exception e - (str "

Caught Exception in " action " --" - (.getMessage e) - "


"
-                     (exception-to-string e)
-                     "
")))] + (let [action (s/lower-case (:action params)) + func (*debug-action-map* action) + msg (if func + (try (func session params) + (catch Exception e + (format-debug-exception action e))) + (format-unknown-action action))] [(flash-assoc :msg msg) (redirect-to "/debug")]))) -- cgit v1.2.3-70-g09d2 From c111da7fd591d1b9335cd7b2221ccf54bd5fcc64 Mon Sep 17 00:00:00 2001 From: sostler Date: Tue, 27 Apr 2010 23:30:17 -0400 Subject: Fixed reg bug take 2 --- src/site.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index 089bba2..f48f560 100644 --- a/src/site.clj +++ b/src/site.clj @@ -345,7 +345,7 @@ (defn nick-reserved? [nick] (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"] (or (contains? (poll *reserved-nicks*) nick) - (= (count (do-select [query (lower-case nick)])) 0)))) + (> (count (do-select [query (lower-case nick)])) 0)))) (defn register [session params] (let [nick (params :nick) -- cgit v1.2.3-70-g09d2