blob: 66ea299858d38db0b46aa77fe83bfdd095945c91 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
(in-package :panettone.email)
(declaim (optimize (safety 3)))
(defvar *smtp-server* "localhost"
"The host for SMTP connections")
(defvar *smtp-server-port* 2525
"The port for SMTP connections")
(defvar *notification-from* "tvlbot@tazj.in"
"The email address to send email notifications from")
(defvar *notification-from-display-name* "Panettone"
"The Display Name to use when sending email notifications")
(defvar *notification-subject-prefix* "[panettone]"
"String to prefix all email subjects with")
(defun send-email-notification (&key to subject message)
"Sends an email to TO with the given SUBJECT and MESSAGE, using the current
values of `*smtp-server*', `*smtp-server-port*' and `*email-notification-from*'"
(let ((subject (if *notification-subject-prefix*
(format nil "~A ~A"
*notification-subject-prefix*
subject)
subject)))
(cl-smtp:send-email
*smtp-server*
*notification-from*
to
subject
message
:port *smtp-server-port*
:display-name *notification-from-display-name*)))
(defun user-has-email-notifications-enabled-p (dn)
"Returns T if the user with the given DN has enabled email notifications"
(enable-email-notifications-p (settings-for-user dn)))
(defun notify-user (dn &key subject message)
"Sends an email notification to the user with DN with the given SUBJECT and
MESSAGE, iff that user has not disabled email notifications"
(when (user-has-email-notifications-enabled-p dn)
(when-let* ((user (find-user-by-dn dn))
(user-mail (mail user)))
(send-email-notification
:to user-mail
:subject subject
:message message))))
|
