diff options
Diffstat (limited to 'src/email.clj')
| -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))) |