diff options
| -rw-r--r-- | src/site.clj | 5 |
1 files 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) |