17 lines
644 B
Clojure
17 lines
644 B
Clojure
(ns beherbergung.auth.mail.send
|
|
(:require ;[postal.core :refer [send-message]]
|
|
[beherbergung.auth.mail.local.mailutils :refer [send-message]]
|
|
[beherbergung.config.state :refer [env]]))
|
|
|
|
(defn send-mail [msg*]
|
|
(let [server {:host (:mail-host env)
|
|
:user (:mail-user env)
|
|
:pass (:mail-pass env)
|
|
:port (:mail-port env)
|
|
:tls true}
|
|
msg (assoc msg* :from (or (:mail-from env)
|
|
(:mail-user-from env)))
|
|
result (send-message server msg)]
|
|
(or (= :SUCCESS (:error result))
|
|
(= 0 (:exit result)))))
|