diff options
| author | sostler <sbostler@gmail.com> | 2010-04-23 22:41:38 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-04-23 22:41:38 -0400 |
| commit | 1e73dda53e47407bd51f15c9b7b61917533276e2 (patch) | |
| tree | 900dd809a73c149a36845fd34b887cb2bd704d43 | |
| parent | a3476c0dbb0069a48cc23564c82f5a5b44c20bee (diff) | |
Added dummy email lookup
| -rw-r--r-- | src/email.clj | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/email.clj b/src/email.clj index 75121cf..1124f48 100644 --- a/src/email.clj +++ b/src/email.clj @@ -61,15 +61,20 @@ :host "smtpout.secureserver.net" :port 25 :ssl false - :to to + :to [(join to ",")] :subject subject :text text :mime (classify-mimetype text))) -(def admins ["opuscule@gmail.com" - "sbostler@gmail.com" - "stfn6000@gmail.com" - "theryderproject@gmail.com"]) +(def *admin-lists* {"dumpfmprod" ["opuscule@gmail.com" + "sbostler@gmail.com" + "stfn6000@gmail.com" + "theryderproject@gmail.com"] + "sostler" ["sbostler@gmail.com"]}) + +(defn get-admins [] + (or (*admin-lists* (System/getProperty "user.name")) + (*admin-lists* "dumpfmprod"))) (defn send-registration-email ([nick email] (send-registration-email nick email "welcome")) @@ -85,6 +90,5 @@ (let [subject (format "%s was muted by %s for %s" user-nick admin-nick duration) body (format "Reason: %s" - reason) - recips (join admins ",")] - (dump-mail [recips] subject body))) + reason)] + (dump-mail (get-admins) subject body))) |