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

loads of tweaks for adding may newsletter and misson trip reports

Browse source 
This includes server pieces that are not live just yet
This commit is contained in:
Chris Cochrun 2023-06-09 07:14:42 -05:00
parent a0f462eae0
commit 341c3cbcd3
37 changed files with 62 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
src/server/ChristianChad.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 679 KiB

After

Width:  |  Height:  |  Size: 679 KiB

Before After
Before After

5
src/server/main.lisp
View file

@ -67,7 +67,7 @@
:external-format :latin-1))
(hunchentoot:define-easy-handler (respond :uri "/health-form") ()
(setf (hunchentoot:content-type*) "application/json")
(setf (hunchentoot:content-type*) "plain/text")
(let ((request-type (hunchentoot:request-method hunchentoot:*request*)))
(cond ((eq request-type :get) nil)
((eq request-type :post)
@ -133,5 +133,6 @@
(apply #'concatenate 'string content) image-file-name)))
(setq *last-list-data* (append *last-list-data* form-list))))
(post-health-form *last-list-data*))))))
(post-health-form *last-list-data*)
(format nil "thankyou"))))))