marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Define handler for /survey/:id

Browse source
This commit is contained in:
Marcus Kammer 2024-05-28 21:34:03 +02:00
parent c7a3e3bb45
commit a6fd8cbc59
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/main.lisp
View file

@ -72,10 +72,29 @@
(store-response (make-db-path (today)) (reverse response)) (store-response (make-db-path (today)) (reverse response))
(format nil "~A" response))) (format nil "~A" response)))
(defun starts-with-subseq (subseq seq)
"Check if the sequence SEQ starts with the subsequence SUBSEQ."
(let ((subseq-length (length subseq)))
(and (<= subseq-length (length seq))
(string= subseq (subseq seq 0 subseq-length)))))
(defun survey-uri-p (request)
"Predicate function to check if the request URI matches the survey pattern.
The URI should start with \"/survey/\" followed by a numeric ID."
(let ((uri (hunchentoot:request-uri request)))
(and (starts-with-subseq "/survey/" uri)
(let ((id (subseq uri (length "/survey/"))))
(every #'digit-char-p id)))))
(define-easy-handler (survey-handler :uri #'survey-uri-p) ()
(let ((id (subseq (hunchentoot:request-uri*) (length "/survey/"))))
(setf (content-type*) "text/plain")
(format nil "Survey ID: ~a" id)))
(define-easy-handler (new-survey :uri "/new-survey") nil (define-easy-handler (new-survey :uri "/new-survey") nil
(dev.metalisp.survey/pages:new-survey)) (dev.metalisp.survey/pages:new-survey))
(define-easy-handler (write-survey :uri "/create-survey" (define-easy-handler (create-survey :uri "/create-survey"
:default-request-type :post) nil :default-request-type :post) nil
(let ((post-params (post-params* *request*)) (let ((post-params (post-params* *request*))
(unique-id (cl-uuid:make-random-uuid))))) (uid (* (get-universal-time) (random 999))))))