[109] Add: logout action and some session endpoint refactor

1 files changed, 1 insertions, 19 deletions

diff --git a/site/login.lisp b/site/login.lisp
index d859e0d..7d07bb2 100644
--- a/site/login.lisp
+++ b/site/login.lisp
@@ -5,28 +5,10 @@
   :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.html))
-
-(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))))
-
 (defun login-page ()
   (page (:title "V A M P I R E ~ LOGIN")
     (:div (:h1 "I vant to suck your blood")
-          (:form :method "POST" :action (wknd:route-to 'login.user)
+          (:form :method "POST" :action (wknd:route-to 'session.create)
                  (:input :placeholder "Name" :name "name")
                  (:br)
                  (:input :placeholder "Password" :type "password" :name "password")