From 9b51a908448c23eff673934f023d247a6c47519d Mon Sep 17 00:00:00 2001 From: Grant Shangreaux Date: Fri, 31 May 2024 13:39:05 -0500 Subject: Add: initial login form and authentication --- site/user-known.lisp | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 site/user-known.lisp (limited to 'site/user-known.lisp') diff --git a/site/user-known.lisp b/site/user-known.lisp new file mode 100644 index 0000000..1c48c9a --- /dev/null +++ b/site/user-known.lisp @@ -0,0 +1,13 @@ +(in-package #:vampire) + +(defclass user-known () + ((user :accessor user))) + +(defmethod wknd:authenticate ((req user-known)) + (or + (do> + key :when= (wknd:get-cookie +session-cookie+) + session :when= (object-with-key key) + :when (typep session 'session) + (setf (user req) (user session))) + (weekend:endpoint-redirect 'login))) -- cgit v1.2.3