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

adding a lot more log info

Browse source
This commit is contained in:
Chris Cochrun 2024-04-27 07:28:29 -05:00
parent af84a8da2d
commit 08853a78d5
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/main.lisp
View file

@ -354,6 +354,8 @@ with the image attached"
(trim-whitespace (trim-whitespace
(cdr (assoc "parent-last-name" form (cdr (assoc "parent-last-name" form
:test 'string=)))))) :test 'string=))))))
(log:info (format nil "Mailing out the camp form for ~"
(concat first-name " " last-name)))
(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"
@ -398,6 +400,8 @@ with the image attached"
(trim-whitespace (trim-whitespace
(cdr (assoc "parent-last-name" form (cdr (assoc "parent-last-name" form
:test 'string=)))))) :test 'string=))))))
(log:info (format nil "Mailing out the health form for ~"
(concat first-name " " last-name)))
(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"
@ -461,10 +465,13 @@ with the image attached"
(when data (when data
(mail-health-form data attachment) (mail-health-form data attachment)
(cond ((string= registration "now") (cond ((string= registration "now")
(log:info "Sending them to pay now")
(setf (hunchentoot:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ")) (setf (hunchentoot:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ"))
((string= registration "full") ((string= registration "full")
(log:info "Sending them to pay full amount")
(setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE")) (setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE"))
((string= registration "later") ((string= registration "later")
(log:info "Sending the health form thank you snippet")
(with-html-string (with-html-string
(:div (:div
:class "mt-8" :class "mt-8"
@ -489,15 +496,18 @@ with the image attached"
(cond ((string= registration "now") (cond ((string= registration "now")
(setf (hunchentoot:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ") (setf (hunchentoot:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ")
(log:info (tbnl:headers-out*)) (log:info (tbnl:headers-out*))
(log:info "Sending them to pay now")
(mail-camp-form data nil)) (mail-camp-form data nil))
((string= registration "full") ((string= registration "full")
(setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE") (setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE")
(log:info (tbnl:headers-out*)) (log:info (tbnl:headers-out*))
(log:info "Sending them to pay full amount")
(mail-camp-form data nil)) (mail-camp-form data nil))
((string= registration "later") ((string= registration "later")
(let ((first-name (cdr (assoc "first-name" data :test 'string=))) (let ((first-name (cdr (assoc "first-name" data :test 'string=)))
(last-name (cdr (assoc "last-name" data :test 'string=)))) (last-name (cdr (assoc "last-name" data :test 'string=))))
(mail-camp-form data nil) (mail-camp-form data nil)
(log:info "Sending the camp thank you snippet")
(with-html-string (with-html-string
(:div (:div
:class "mt-8" :class "mt-8"
@ -511,6 +521,7 @@ with the image attached"
(when (string= health "bleh") (when (string= health "bleh")
(setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form/?registration=~A" registration)) (setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form/?registration=~A" registration))
(log:info (tbnl:headers-out*)) (log:info (tbnl:headers-out*))
(log:info "Sending them to the health form for camp")
(mail-camp-form data nil))))) (mail-camp-form data nil)))))
(defun main () (defun main ()