Add: initial login form and authentication

1 files changed, 7 insertions, 1 deletions

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)))