login: with decorator

Author: vindarel

content/tutorial/src/session-example.lisp

@@ -83,14 +83,25 @@
 
 ;; Views.
 (defun loggedin-p ()
-  (hunchentoot:session-value 'user))
+  (hunchentoot:session-value 'name))
 
-;; GET
-(easy-routes:defroute admin-route ("/admin/" :method :get) ()
+(defun @auth (next)
+  (log:info "checking session")
   (if (loggedin-p)
-      (render *template-welcome*)
+      (funcall next)
       (render *template-login*)))
 
+;; GET
+(easy-routes:defroute admin-route ("/admin/" :method :get :decorators ((@auth))) ()
+  (render *template-welcome* :name (hunchentoot:session-value 'name)))
+
+;; using @auth is equivalent to doing a check in the route body:
+#|
+(if (loggedin-p)
+  (render *template-welcome*)
+  (render *template-login*))
+|#
+
 ;; POST
 (easy-routes:defroute admin-route/POST ("/admin/" :method :post) (name password)
   (cond