Add a middleware for checking if the user is logged in, and redirect

to the login page otherwize.

src/clj/polls/middleware.clj

@@ -9,7 +9,8 @@
     [polls.config :refer [env]]
     [ring.middleware.flash :refer [wrap-flash]]
     [immutant.web.middleware :refer [wrap-session]]
-    [ring.middleware.defaults :refer [site-defaults wrap-defaults]])
+    [ring.middleware.defaults :refer [site-defaults wrap-defaults]]
+    [ring.util.http-response :as response])
   )
 
 (defn wrap-internal-error [handler]
@@ -38,6 +39,13 @@
       ;; since they're not compatible with this middleware
       ((if (:websocket? request) handler wrapped) request))))
 
+(defn wrap-auth [handler]
+  (fn [request]
+    (let [response (handler request)]
+      (if (contains? (request :session) :user)
+        response
+        (response/found (str "/login?redirect=" (request :path-info) "?" (request :query-string)))))))
+
 (defn wrap-base [handler]
   (-> ((:middleware defaults) handler)
       wrap-flash

src/clj/polls/routes/home.clj

@@ -35,7 +35,8 @@
 (defn home-routes []
   [ "" 
    {:middleware [middleware/wrap-csrf
-                 middleware/wrap-formats]}
+                 middleware/wrap-formats
+                 middleware/wrap-auth]}
    ["/" {:get home-page}]
    ["/detail" {:get detail-page :post save-vote}]
    ["/results" {:get results-page}]