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

Check if survey id is valid

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 13:12:56 +02:00
parent f1bedd6c7c
commit 799d351917
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/handlers/questionnaire.lisp
View file

@ -5,7 +5,8 @@
(let ((parts (split-uri uri))) (let ((parts (split-uri uri)))
(and (= (length parts) 3) (and (= (length parts) 3)
(string= (first parts) "survey") (string= (first parts) "survey")
(every #'digit-char-p (second parts))))) (every #'digit-char-p (second parts))
(valid-survey-id-p (parse-integer (second parts))))))
(defun questionnaire-uri (request) (defun questionnaire-uri (request)
(questionnaire-uri-p (request-uri request))) (questionnaire-uri-p (request-uri request)))

6
src/handlers/survey.lisp
View file

@ -2,17 +2,19 @@
(defun survey-uri-p (uri) (defun survey-uri-p (uri)
"Check if the request URI matches the pattern '/survey/<numeric>'" "Check if the request URI matches the pattern '/survey/<numeric>'"
(check-type uri string)
(let ((parts (split-uri uri))) (let ((parts (split-uri uri)))
(and (= (length parts) 2) (and (= (length parts) 2)
(string= (first parts) "survey") (string= (first parts) "survey")
(every #'digit-char-p (second parts))))) (every #'digit-char-p (second parts))
(valid-survey-id-p (parse-integer (second parts))))))
(defun survey-uri (request) (defun survey-uri (request)
(let ((uri (request-uri request))) (let ((uri (request-uri request)))
(survey-uri-p uri))) (survey-uri-p uri)))
(define-easy-handler (survey :uri #'survey-uri) () (define-easy-handler (survey :uri #'survey-uri) ()
(let* ((id (subseq (request-uri*) (length "/survey/"))) (let* ((id (second (split-uri (request-uri*))))
(survey (assoc (parse-integer id) (survey (assoc (parse-integer id)
(load-response (make-surveys-db-path))))) (load-response (make-surveys-db-path)))))
(ml-survey/views:survey survey))) (ml-survey/views:survey survey)))