gistfile1.clj

(defn login-controller [session params]
  (if
    (valid-login? (params :name) (params :password))
    (do
      (println "valud:" (get-uid-for-username (params :name)))
      (session-assoc :login true :uid (get-uid-for-username (params :name)))
      (redirect-to "/view/")
      )
    (redirect-to "/login/")))