various fixes.
This commit is contained in:
@@ -7,6 +7,7 @@
|
||||
|
||||
(defn wrap-secure [handler]
|
||||
(fn [request]
|
||||
#_(println "AUTHENTICATE" (authenticated? request))
|
||||
(cond (authenticated? request)
|
||||
(handler request)
|
||||
|
||||
@@ -22,6 +23,7 @@
|
||||
|
||||
(defn wrap-admin [handler]
|
||||
(fn [request]
|
||||
#_(println "ADMIN " (is-admin? (:identity request)) (:identity request))
|
||||
(if (is-admin? (:identity request))
|
||||
(handler request)
|
||||
(do
|
||||
@@ -33,6 +35,7 @@
|
||||
(defn wrap-client-redirect-unauthenticated [handler]
|
||||
(fn [request]
|
||||
(let [response (handler request)]
|
||||
#_(println "HEREEEEE" (get response :status))
|
||||
(if (= 401 (get response :status))
|
||||
(-> response
|
||||
(assoc-in [:headers "hx-redirect"] (str "/login?"
|
||||
|
||||
Reference in New Issue
Block a user