diff options
| author | Griffin Smith <grfn@gws.fyi> | 2021-04-03T17·05-0400 |
|---|---|---|
| committer | glittershark <grfn@gws.fyi> | 2021-04-04T14·17+0000 |
| commit | 349b98ccc841587aadc6a2de5684f093cd72d628 (patch) | |
| tree | c2042ae8d9411ffcb59740afa234aa10be913482 /web/panettone/src/authentication.lisp | |
| parent | 37d573479ba56eebc5304f5209790ba7a4a3762b (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.lisp | 2 |
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 |