email.lisp

;;
;;  RoL-server  -  Rails on Lisp application server
;;
;;  Copyright 2012-2015 Thomas de Grivel <thomas@lowh.net>
;;
;;  Permission to use, copy, modify, and distribute this software for any
;;  purpose with or without fee is hereby granted, provided that the above
;;  copyright notice and this permission notice appear in all copies.
;;
;;  THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;;  WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;;  MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;;  ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;;  ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;;  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;

(in-package :RoL-server)

(defun send-email (controller action email subject)
  (let* ((template.txt (find-template '.txt action controller))
         (txt (when template.txt
                (with-output-to-string (*template-output*)
                  (print-template template.txt))))
         (template.html (find-template '.html action controller))
         (html (when template.html
                 (with-output-to-string (*template-output*)
                   (print-template template.html)))))
    (cl-smtp:send-email *smtp-server*
                        "noreply@mentats.kmx.io"
                        email
                        subject
                        txt
                        :authentication `(,*smtp-user* ,*smtp-password*)
                        :html-message html)))