about summary refs log tree commit diff
path: root/web/panettone/src/authentication.lisp
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2021-04-03T17·05-0400
committerglittershark <grfn@gws.fyi>2021-04-04T14·17+0000
commit349b98ccc841587aadc6a2de5684f093cd72d628 (patch)
treec2042ae8d9411ffcb59740afa234aa10be913482 /web/panettone/src/authentication.lisp
parent37d573479ba56eebc5304f5209790ba7a4a3762b (diff)
feat(panettone): Add functions to send email notifications r/2426
Add a new package to panettone, :panettone.email with functions to send
email notifications to users through the SMTP relay on whitby,
respecting the value of `enable_email_notifications` on the
user_settings table.

Change-Id: Ia4ec65965abda06f1fadb178143d66bb8eae6482
Reviewed-on: https://cl.tvl.fyi/c/depot/+/2804
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
Reviewed-by: tazjin <mail@tazj.in>
Diffstat (limited to 'web/panettone/src/authentication.lisp')
-rw-r--r--web/panettone/src/authentication.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/web/panettone/src/authentication.lisp b/web/panettone/src/authentication.lisp
index 50befbc7a168..07b9a6a87cd5 100644
--- a/web/panettone/src/authentication.lisp
+++ b/web/panettone/src/authentication.lisp
@@ -78,6 +78,8 @@ and a retry"
     (ldap-entry->user ldap-entry)))
 
 (defun find-user-by-dn (dn)
+  "Look up the user with the given DN in the LDAP database, returning an
+instance of `user'"
   (with-ldap ()
     (let ((have-results
             (handler-case