diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/src/site.clj b/src/site.clj index 3a9c379..cf6ae14 100644 --- a/src/site.clj +++ b/src/site.clj @@ -246,7 +246,7 @@ (set-cookie *login-token-key* "dummy" :expires "Thu, 01-Jan-1970 00:00:01 GMT" :domain *cookie-domain*) - (redirect-to "http://dump.fm/")]) + (redirect-to "/")]) ;; Registration @@ -759,10 +759,12 @@ ORDER BY cnt DESC (.toString st))) (defn validated-log [session room-key offset params] - (let [room-key (if (= (lower-case room-key) "www") "dumpfm" room-key)] - (if (validate-room-access room-key session) - (log session (lookup-room room-key) offset params) - (resp-error "UNKNOWN_ROOM")))) + (if (is-vip? session) + (let [room-key (if (= (lower-case room-key) "www") "dumpfm" room-key)] + (if (validate-room-access room-key session) + (log session (lookup-room room-key) offset params) + (resp-error "UNKNOWN_ROOM"))) + (redirect-to "/"))) ;; Hiscore test... redis test... @@ -1324,16 +1326,16 @@ ORDER BY cnt DESC (GET "/error/ie" (serve-template "error_ie" session)) ;; Put username routes below all others in priority - (GET "/:nick" (profile session (params :nick))) - (GET "/:nick/" (profile session (params :nick))) - (GET "/:nick/altars" (altar-log session params)) - (GET "/:nick/altars/" (altar-log session params)) - (GET "/:nick/altars/:id" (altar-log session params)) - (GET "/:nick/tag/:tag" (tagged-dumps-by-nick session params (request-url request))) + (GET "/:nick" (profile session (params :nick))) + (GET "/:nick/" (profile session (params :nick))) + (GET "/:nick/altars" (altar-log session params)) + (GET "/:nick/altars/" (altar-log session params)) + (GET "/:nick/altars/:id" (altar-log session params)) + (GET "/:nick/tag/:tag" (tagged-dumps-by-nick session params (request-url request))) (GET "/:nick/tag/:tag/:offset" (tagged-dumps-by-nick session params (request-url request))) - (GET "/:nick/favorites" (favorites-handler session (params :nick) nil nil)) - (GET "/:nick/favorites/" (favorites-handler session (params :nick) nil nil)) - (GET "/:nick/favorites/:date" (favorites-handler session (params :nick) (params :date) nil)) + (GET "/:nick/favorites" (favorites-handler session (params :nick) nil nil)) + (GET "/:nick/favorites/" (favorites-handler session (params :nick) nil nil)) + (GET "/:nick/favorites/:date" (favorites-handler session (params :nick) (params :date) nil)) (GET "/:nick/favorites/:date/" (favorites-handler session (params :nick) (params :date) nil)) (GET "/:nick/favorites/:date/:msg" (favorites-handler session (params :nick) (params :date) (params :msg))) (GET "/:nick/favs" (favorites-handler session (params :nick) nil nil)) |