section 4 video 4

Author: tlipski

src/project1/core.clj

@@ -6,6 +6,8 @@
 	   [ring.middleware.keyword-params]
    	   [ring.middleware.multipart-params]
 	   [ring.middleware.cookies]
+	   [ring.middleware.session]
+	   [ring.middleware.session.memory]
   	   [project1.html :as html]
            [clojure.string]))
 
@@ -73,10 +75,20 @@
  {:body (layout [:div [:p "Cookies:"]
 		[:pre (:cookies request)]])})
 
+(defn session-handler [request]
+ {:body (layout [:div [:p "Session:"]
+		[:pre (:session request)]])})
+
+(defn logout-handler [request]
+ {:body "Logged out."
+  :session nil})
+
 (defn form-handler [request]
  {:status 200
   :headers {"Content-type" "text/html"}
   :cookies {:username (:login (:params request))}
+  :session {:username (:login (:params request))
+	    :cnt (inc (or (:cnt (:session request)) 0))}
   :body (layout
     	 [:div
   	   [:p "Params:"]
@@ -98,6 +110,8 @@
   "/test3" (handlers/handler3 request)
   "/form"  (form-handler request)
   "/cookies" (cookie-handler request)
+  "/session" (session-handler request)
+  "/logout" (logout-handler request)
   nil))
 
 (defn wrapping-handler [request]
@@ -118,5 +132,11 @@
   ring.middleware.keyword-params/wrap-keyword-params
   ring.middleware.params/wrap-params
   ring.middleware.multipart-params/wrap-multipart-params
+  (ring.middleware.session/wrap-session
+   {:cookie-name "ring-session"
+    :root "/" 
+    :cookie-attrs {:max-age 600
+ 		   :secure false}
+    :store (ring.middleware.session.memory/memory-store)})
   ring.middleware.cookies/wrap-cookies
   simple-log-middleware))