From d99ee258065745640287b7be3d8867c4d5437f71 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Tue, 11 Nov 2014 17:51:01 +0000 Subject: [PATCH] Fix to redirects to play nice with Tomcat. --- src/smeagol/routes/wiki.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/smeagol/routes/wiki.clj b/src/smeagol/routes/wiki.clj index 63080f3..1039348 100644 --- a/src/smeagol/routes/wiki.clj +++ b/src/smeagol/routes/wiki.clj @@ -32,7 +32,7 @@ (let [params (keywordize-keys (:params request)) content (or (:content params) "Introduction")] (spit file-path source-text) - (response/redirect (str "wiki?" content)) + (response/redirect (str "/wiki?" content)) )) (defn edit-page @@ -76,7 +76,7 @@ :header (util/md->html "/content/_header.md") :content (local-links (util/md->html file-name)) :user (session/get :user)}) - true (response/redirect (str "edit?content=" content))))) + true (response/redirect (str "/edit?content=" content))))) (defn auth-page "Render the auth page" @@ -91,11 +91,11 @@ (= action "Logout!") (do (session/remove! :user) - (response/redirect "wiki")) + (response/redirect "/wiki")) (and username password (auth/authenticate username password)) (do (session/put! :user username) - (response/redirect "wiki")) + (response/redirect "/wiki")) true (layout/render "auth.html" {:title (if user (str "Logout " user) "Log in")