From 20ef8cdf4ca01d47d6421e9d24763f427d9a5ff2 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Mon, 25 Oct 2010 19:18:49 -0400 Subject: Added try-catch for register email --- src/site.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3-70-g09d2