78a78bfc7d70

--- 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 ------------------------------------------------------------------------