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