# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1317259259 14400
# Node ID 78a78bfc7d708888d62ef0c885786e80d559c284
# Parent  3c52063ee45ef54a21191a44dedf52ec6687d559
Login skeleton.

diff -r 3c52063ee45e -r 78a78bfc7d70 src/newseasons/views/main.clj
--- 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 ------------------------------------------------------------------------