From dddb984c918379c145193ad7426454f354c5eaa9 Mon Sep 17 00:00:00 2001 From: sostler Date: Tue, 6 Apr 2010 21:45:45 -0400 Subject: Added debug email page; removed useless to-array --- src/email.clj | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/email.clj') diff --git a/src/email.clj b/src/email.clj index 2a68e7b..47d05a8 100644 --- a/src/email.clj +++ b/src/email.clj @@ -37,7 +37,8 @@ (.setText msg (:text mail)) (javax.mail.Transport/send msg)))) -(def mail-templates (new StringTemplateGroup "dumpfm-mail" "template/mail")) +(def mail-templates (StringTemplateGroup. "dumpfm-mail" "template/mail" )) +;;(.setErrorListener mail-templates StringTemplateGroup/DEFAULT_ERROR_LISTENER) (.setRefreshInterval mail-templates 3) (defn parse-mail-template [temp props] @@ -58,9 +59,11 @@ :subject subject :text text)) -(defn send-registration-email [nick email] - (let [[s b] (parse-mail-template "welcome" {"nick" nick})] - (dump-mail [email] s b))) +(defn send-registration-email + ([nick email] (send-registration-email nick email "welcome")) + ([nick email temp] + (let [[s b] (parse-mail-template temp {"nick" nick})] + (dump-mail [email] s b)))) (defn send-reset-email [nick email key] (let [[s b] (parse-mail-template "reset" {"nick" nick "key" key})] -- cgit v1.2.3-70-g09d2