TFC/tfcconnection
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

adding ethan to emails

Browse source
This commit is contained in:
Chris Cochrun 2024-04-25 11:28:39 -05:00
parent 9876ccacb9
commit 99aff941dd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/main.lisp
View file

@ -293,7 +293,7 @@ with the image attached"
(not (cl-smtp:send-email (not (cl-smtp:send-email
"mail.tfcconnection.org" "mail.tfcconnection.org"
"no-reply@mail.tfcconnection.org" "no-reply@mail.tfcconnection.org"
'("chris@tfcconnection.org" "chris@cochrun.xyz") '("chris@tfcconnection.org" "ethan@tfcconnection.org")
(format nil "~a ~a filled out a Camp Form!" first-name last-name) (format nil "~a ~a filled out a Camp Form!" first-name last-name)
(format nil "Camp Form for ~a ~a" first-name last-name) (format nil "Camp Form for ~a ~a" first-name last-name)
:display-name "TFC ADMIN" :display-name "TFC ADMIN"
@ -335,7 +335,7 @@ with the image attached"
(not (cl-smtp:send-email (not (cl-smtp:send-email
"mail.tfcconnection.org" "mail.tfcconnection.org"
"no-reply@mail.tfcconnection.org" "no-reply@mail.tfcconnection.org"
'("chris@tfcconnection.org" "chris@cochrun.xyz") '("chris@tfcconnection.org" "ethan@tfcconnection.org")
(format nil "~a ~a filled out a Health Form!" first-name last-name) (format nil "~a ~a filled out a Health Form!" first-name last-name)
(format nil "Health Form for ~a ~a" first-name last-name) (format nil "Health Form for ~a ~a" first-name last-name)
:display-name "TFC ADMIN" :display-name "TFC ADMIN"