diff options
Diffstat (limited to 'src/bitgloo_web/core.clj')
| -rw-r--r-- | src/bitgloo_web/core.clj | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/bitgloo_web/core.clj b/src/bitgloo_web/core.clj index bd4ba6b..133afac 100644 --- a/src/bitgloo_web/core.clj +++ b/src/bitgloo_web/core.clj @@ -15,7 +15,8 @@ (defn image? [path] (some (partial str/ends-with? path) image-extensions)) -(defn home-redirect [uri] (if (= "/" uri) "/home" uri)) +;(defn home-redirect [uri] (if (= "/" uri) "/home" uri)) +(defn home-redirect [uri] uri) (defn request-handler [content-path request] (let [path (str content-path (home-redirect (:uri request)))] @@ -31,6 +32,10 @@ (when (.exists (io/file path)) (resp/file-response path)) (handler request))))) +(defn wrap-no-params [handler] + (fn [request] + (when (nil? (:query-string request)) (handler request)))) + (defn wrap-only-gets [handler] (fn [request] (when (= :get (:request-method request)) (handler request)))) @@ -61,6 +66,7 @@ (wrap-resource "public") (wrap-content-type) (wrap-not-modified) + (wrap-no-params) (wrap-only-gets) (wrap-not-found) (wrap-log-transactions) |