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)