session

(defn login [req]
  (let [username (get-in req [:params :username])
        password (get-in req [:params :password])
        session (:session req)
        found-password (get authdata (keyword username))]
    (if (and found-password (= found-password password))
      (do
        (let [updated-session (assoc session :identity (keyword username))]          
          (assoc req :session updated-session))) 
      (generate-response {:msg "not found user"
                          :value false}))))