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 --- vampire.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'vampire.lisp') diff --git a/vampire.lisp b/vampire.lisp index 247ff4d..86ef4fa 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -41,13 +41,19 @@ (defun when-logged-in? (fn) ( 'session-user fn 'redirect-to-root)) - +(defvar *server*) +(setf (documentation '*server* 'variable) + "The hunchentoot acceptor instance") (defun start-vampire (config) (setf *config* config) (initialize-database config ) (start-downloader-service config) + (setf *server* (make-instance 'hunchentoot:easy-acceptor + :port (port config))) + (hunchentoot:start *server*) + (when (swank-port config) (swank:create-server :port (swank-port config) :dont-close t))) -- cgit v1.2.3