Add: initial login form and authentication

1 files changed, 27 insertions, 1 deletions

diff --git a/site/login.lisp b/site/login.lisp
index afbd80e..66d20ff 100644
--- a/site/login.lisp
+++ b/site/login.lisp
@@ -1,10 +1,36 @@
 (in-package #:vampire)
 
 (defun login-page ()
-  "login")
+  (with-html-string
+    (:div (:h1 "I vant to suck your blood")
+	  (:form :method "POST" :action "/login"
+		 (:input :placeholder "Name" :name "name")
+		 (:br)
+		 (:input :placeholder "Password" :type "password" :name "password")
+		 (:br)
+		 (:button :type "submit" "Click to Login")))
+    (:a :href "/new-account" "Come to the Dark Side")))
 
 (wknd:defendpoint login
   :get :route "login"
   :returns "text/html"
   :handle (login-page))
 
+(wknd:defendpoint login-user
+  :post :route "login"
+  :parameters
+  (name string)
+  (password string)
+  :properties
+  (user user)
+  :authenticate (authenticate-login-user name password)
+  :handle (wknd:endpoint-redirect 'home))
+
+(defun authenticate-login-user (name password)
+  (do>
+    found-user :when= (user-with-name name)
+    :when (equal (user-pwhash found-user)
+		 (hash-string password (user-pwsalt found-user)))
+    session := (db:with-transaction () (make-instance 'session :user found-user))
+    (wknd:set-cookie +session-cookie+ :value (key session))))
+