From 0e142c1a5a74973bd2122bd123ba45136477b191 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sat, 31 Jul 2010 22:50:31 -0700 Subject: Send registration emails, get correct casing for pw reset emails --- src/site.clj | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/site.clj b/src/site.clj index 1a9cc05..d2fc843 100644 --- a/src/site.clj +++ b/src/site.clj @@ -316,7 +316,7 @@ user_id (db-user :user_id) ip (get-ip request) query (format "UPDATE users SET created_ip = '%s'::cidr WHERE user_id = %s" (str ip) (str user_id))] - ; scott: taken out since we hit email limit (send-registration-email nick email) + (send-registration-email nick email) (do-cmds query) ; timb: doing this update query rather than using previous insert because jdbc ; can't figure out how to convert to cidr on prepared statements [(session-assoc-from-db db-user) @@ -972,7 +972,8 @@ order by count desc limit ? offset ?") (defn reset-request! [session {nick :nick}] (if-let [info (fetch-nick nick)] - (let [email (info :email) + (let [nick (info :nick) ; get correct casing + email (info :email) hash (info :hash) ts (System/currentTimeMillis) token (reset-token nick hash ts) -- cgit v1.2.3-70-g09d2