--- a/src/newseasons/views/main.clj Wed Sep 28 21:10:06 2011 -0400
+++ b/src/newseasons/views/main.clj Wed Sep 28 21:20:59 2011 -0400
@@ -31,11 +31,16 @@
; Home ------------------------------------------------------------------------
+(defn check-login [{:keys [email password]}]
+ true)
+
(defpage [:get "/"] []
(t/home))
-(defpage [:post "/"] []
- (t/home))
+(defpage [:post "/"] {:as login}
+ (if (check-login login)
+ (resp/redirect (str "/" (:email login)))
+ (t/home)))
; User ------------------------------------------------------------------------