78a78bfc7d70

Login skeleton.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 28 Sep 2011 21:20:59 -0400
parents 3c52063ee45e
children 57686202ddc5
branches/tags (none)
files src/newseasons/views/main.clj

Changes

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