Change API, add login method.

Author: ForNeVeR

src/hyperspace/server/database/user.clj

@@ -3,7 +3,11 @@
   (:use [azql.core :only [select from insert! values]]
         [hyperspace.server.database.datasource :only [db-spec]]))
 
-(defn create [login password]
+(defn create [{login :login password :password}]
   (insert! db-spec :users
            (values [{:login    login
-                     :password (password/encrypt password)}])))
+                     :password (password/encrypt password)}])))
+
+(defn login [{login :login password :password}]
+  ;; TODO: log in and save session
+  nil)

src/hyperspace/swagger/server.clj

@@ -4,7 +4,8 @@
             [schema.core :as s]
             [hyperspace.server.database.user :as user]))
 
-(s/defschema Total {:total Long})
+(s/defschema User {:login String
+                   :password String})
 
 (defapi app
         (swagger-ui)
@@ -15,8 +16,16 @@
         (swaggered "user"
                    :description "user manipulation"
                    (POST* "/register" []
-                          :return String
-                          :query-params [login :- String
-                                         password :- String]
+                          :body [user User]
                           :summary "register user"
-                          (ok (user/create login password)))))
+                          (do (user/create user)
+                              (ok nil)))
+
+                   (POST* "/login" []
+                          :return String
+                          :body [user User]
+                          :summary "log in and get session token"
+                          (let [session (user/login user)]
+                            (if session
+                              (ok session)
+                              (forbidden "invalid username or password"))))))