diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-10-25 19:18:49 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-10-25 19:18:49 -0400 |
| commit | 20ef8cdf4ca01d47d6421e9d24763f427d9a5ff2 (patch) | |
| tree | 1ecfc37b6ecee194cf04304e3638dbb453cdcbe3 | |
| parent | 95b8cfe4abce19275e9302c2d0150b096f609704 (diff) | |
Added try-catch for register email
| -rw-r--r-- | src/site.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/site.clj b/src/site.clj index cd35419..58d7dac 100644 --- a/src/site.clj +++ b/src/site.clj @@ -327,7 +327,8 @@ WHERE user_id IN (let [db-user (fetch-nick nick)
user_id (db-user :user_id)
query (format "UPDATE users SET created_ip = '%s'::cidr WHERE user_id = %s" (str ip) (str user_id))]
- (send-registration-email nick email)
+ (try (send-registration-email nick email)
+ (catch Exception e nil))
(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)
|