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

switching lisp server to new naming scheme

Browse source
This commit is contained in:
Chris Cochrun 2024-04-25 21:35:15 -05:00
parent 3353f59268
commit 51e9d7fc9b
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/main.lisp
View file

@ -279,18 +279,18 @@ with the image attached to us"
"Takes the form as an alist and sends a table formatted email "Takes the form as an alist and sends a table formatted email
with the image attached" with the image attached"
(let* ((first-name (trim-whitespace (let* ((first-name (trim-whitespace
(cdr (assoc "firstname" form (cdr (assoc "first-name" form
:test 'string=)))) :test 'string=))))
(last-name (trim-whitespace (last-name (trim-whitespace
(cdr (assoc "lastname" form (cdr (assoc "last-name" form
:test 'string=)))) :test 'string=))))
(parent-name (concatenate 'string (parent-name (concatenate 'string
(trim-whitespace (trim-whitespace
(cdr (assoc "parentfirstname" form (cdr (assoc "parent-first-name" form
:test 'string=))) :test 'string=)))
" " " "
(trim-whitespace (trim-whitespace
(cdr (assoc "parentlastname" form (cdr (assoc "parent-last-name" form
:test 'string=)))))) :test 'string=))))))
(not (cl-smtp:send-email (not (cl-smtp:send-email
"mail.tfcconnection.org" "mail.tfcconnection.org"
@ -321,18 +321,18 @@ with the image attached"
"Takes the form as an alist and sends a table formatted email "Takes the form as an alist and sends a table formatted email
with the image attached" with the image attached"
(let* ((first-name (trim-whitespace (let* ((first-name (trim-whitespace
(cdr (assoc "firstname" form (cdr (assoc "first-name" form
:test 'string=)))) :test 'string=))))
(last-name (trim-whitespace (last-name (trim-whitespace
(cdr (assoc "lastname" form (cdr (assoc "last-name" form
:test 'string=)))) :test 'string=))))
(parent-name (concatenate 'string (parent-name (concatenate 'string
(trim-whitespace (trim-whitespace
(cdr (assoc "parentfirstname" form (cdr (assoc "parent-first-name" form
:test 'string=))) :test 'string=)))
" " " "
(trim-whitespace (trim-whitespace
(cdr (assoc "parentlastname" form (cdr (assoc "parent-last-name" form
:test 'string=)))))) :test 'string=))))))
(not (cl-smtp:send-email (not (cl-smtp:send-email
"mail.tfcconnection.org" "mail.tfcconnection.org"
@ -364,17 +364,17 @@ with the image attached"
(let* ((data (tbnl:post-parameters* tbnl:*request*)) (let* ((data (tbnl:post-parameters* tbnl:*request*))
(registration (cdr (assoc "registration" data :test 'string=))) (registration (cdr (assoc "registration" data :test 'string=)))
(image (cdr (assoc "image" data :test 'string=))) (image (cdr (assoc "image" data :test 'string=)))
(first-name (cdr (assoc "firstname" data :test 'string=))) (first-name (cdr (assoc "first-name" data :test 'string=)))
(last-name (cdr (assoc "lastname" data :test 'string=))) (last-name (cdr (assoc "last-name" data :test 'string=)))
(image (cdr (assoc "image" data :test 'string=))) (image (cdr (assoc "image" data :test 'string=)))
(attachment nil)) (attachment nil))
(loop :for d :in data (loop :for d :in data
:do (progn :do (progn
(uiop:println d) (uiop:println d)
(if (string= "firstname" (car d)) (if (string= "first-name" (car d))
(progn (progn
(setf first-name (cdr d)))) (setf first-name (cdr d))))
(if (string= "lastname" (car d)) (if (string= "last-name" (car d))
(progn (progn
(setf last-name (cdr d)))) (setf last-name (cdr d))))
(if (string= "image" (car d)) (if (string= "image" (car d))
@ -428,8 +428,8 @@ with the image attached"
(log:info (tbnl:headers-out*)) (log:info (tbnl:headers-out*))
(mail-camp-form data nil)) (mail-camp-form data nil))
((string= registration "later") ((string= registration "later")
(let ((first-name (cdr (assoc "firstname" data :test 'string=))) (let ((first-name (cdr (assoc "first-name" data :test 'string=)))
(last-name (cdr (assoc "lastname" data :test 'string=)))) (last-name (cdr (assoc "last-name" data :test 'string=))))
(mail-camp-form data nil) (mail-camp-form data nil)
(with-html-string (with-html-string
(:div (:div