diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-07-31 22:50:31 -0700 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-07-31 22:50:31 -0700 |
| commit | 0e142c1a5a74973bd2122bd123ba45136477b191 (patch) | |
| tree | c94f8edc6c706528410ce2ab51c4216045c60d7c /src | |
| parent | 4cfea99f87486704e5f17d075d488bc733ffa19e (diff) | |
Send registration emails, get correct casing for pw reset emails
Diffstat (limited to 'src')
| -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) |