diff options
Diffstat (limited to 'src/email.clj')
| -rw-r--r-- | src/email.clj | 11 |
1 files changed, 7 insertions, 4 deletions
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})] |