12 lines
371 B
Clojure
12 lines
371 B
Clojure
|
(ns beherbergung.auth.mail.local.mailutils
|
||
|
|
(:require [clojure.java.shell :refer [sh]]))
|
||
|
|
|
||
|
|
(defn send-message
|
||
|
|
"A plugin replacement for com.draines/postal to be used with GNU Mailutils"
|
||
|
|
([_server msg] (send-message msg))
|
||
|
|
([msg]
|
||
|
|
(sh "mail" "-s" (str (:subject msg))
|
||
|
|
(str "-aFrom:" (:from msg))
|
||
|
|
(str (:to msg))
|
||
|
|
:in (str (:body msg)))))
|