From 7349c4b9f5e27ef37f82d55748d01c2de088d73b Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Fri, 16 Sep 2022 19:01:14 +0100 Subject: [PATCH] remove unused code and reformat some comments in web.lisp file. --- src/web.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/web.lisp b/src/web.lisp index 0b62a95..7df2299 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -53,7 +53,6 @@ `(,+forbidden+ (:content-type "text/plain") ("Denied"))) ((uiop:file-exists-p (ritherdon-archive.config:database-name)) `(,+service-unavailable+ (:location "/"))) - ;; (render #P"initial-setup.html" `(:token ,(auth:csrf-token)))) (t (nera-db:init-db (lack.request:request-body-parameters ningle:*request*)) ;; Redirect to /setup-complete? @@ -66,12 +65,12 @@ (utils:set-alert "This feature has been disabled.") (redirect "/")) (hermetic:auth (:logged-in) - ;; Authorised (Logged in users can't sign-up). + ;; Hermetic Authorised (Logged in users can't sign-up). (progn (utils:set-alert "You need to be signed out to create a new account.") (redirect "/dashboard")) - ;; Not Authorised + ;; Hermetic Not Authorised (let ((alert (utils:get-and-reset-alert))) (render "sign-up.html" `(:token ,(auth:csrf-token)