Add the macros file.

dudeswave/include/defines.hrl

@@ -0,0 +1,23 @@
+%
+% Copyright (c) 2024 Andrea Biscuola <a@abiscuola.com>
+%
+% Permission to use, copy, modify, and distribute this software for any
+% purpose with or without fee is hereby granted, provided that the above
+% copyright notice and this permission notice appear in all copies.
+%
+% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+%
+
+-define(APPBUCK, dudeswave).
+-define(USERSBUCK, dudes).
+-define(COOKIESBUCK, cookies).
+-define(RANDBYTES, 32).
+-define(DEFVALIDITY, 365).
+-define(DUDENAME, "dudename").
+-define(DUDEAUTH, "dudeauth").

dudeswave/src/dudeswave_auth.erl

@@ -26,7 +26,8 @@ from the dudeswave database.
 
 -export([authenticate/2, details/1, new/3,
     update/4, delete/1, logout/2, auth_cookies/1, invalidate_cookies/1,
-    set_auth_cookies/4]).
+    set_auth_cookies/4, read_login_data/1, read_new_user_data/1,
+    read_update_user_data/1]).
 
 -doc """
 Verify a session with an existing cookie.
@@ -262,8 +263,8 @@ Spec:
 	Cookie :: binary().
 
 auth_cookies(Req) ->
-	#{dudeauth := Cookie, dudename := User} = cowboy_req:match_cookies([dudeauth,
-	    dudename], Req),
+	#{?DUDEAUTH := Cookie, ?DUDENAME := User} = cowboy_req:match_cookies([?DUDEAUTH,
+	    ?DUDENAME], Req),
 
 	{User, Cookie}.
 
@@ -286,9 +287,9 @@ completely invalidated.
 	Req0 :: cowboy_req:req().
 
 invalidate_cookies(Req) ->
-	Req0 = cowboy_req:set_resp_cookie(<<"dudeauth">>, <<"">>, Req,
+	Req0 = cowboy_req:set_resp_cookie(<<"?DUDEAUTH">>, <<"">>, Req,
 	    #{max_age => 0}),
-	Req1 = cowboy_req:set_resp_cookie(<<"dudename">>, <<"">>, Req0,
+	Req1 = cowboy_req:set_resp_cookie(<<"?DUDENAME">>, <<"">>, Req0,
 	    #{max_age => 0}),
 
 	Req1.
@@ -317,9 +318,89 @@ A new request object `Req0`is returned, with the user and auth cookies set.
 	Req0 :: cowboy_req:req().
 
 set_auth_cookies(Req, User, Cookie, Validity) ->
-	Req0 = cowboy_req:set_resp_cookie(<<"dudeauth">>, Cookie, Req,
+	Req0 = cowboy_req:set_resp_cookie(<<"?DUDEAUTH">>, Cookie, Req,
 	    #{max_age => Validity}),
-	Req1 = cowboy_req:set_resp_cookie(<<"dudename">>, User, Req0,
+	Req1 = cowboy_req:set_resp_cookie(<<"?DUDENAME">>, User, Req0,
 	    #{max_age => Validity}),
 
 	Req1.
+
+-doc """
+Spec:
+
+```
+-spec read_login_data(Req) -> {User, Pass, Req0} when
+	Req :: cowboy_req:req(),
+	User :: binary(),
+	Pass :: binary(),
+	Req0 :: cowboy_req:req().
+```
+Read the login details from the `Req` body and return `User` and `Password`.
+""".
+-spec read_login_data(Req) -> {User, Pass, Req0} when
+	Req :: cowboy_req:req(),
+	User :: binary(),
+	Pass :: binary(),
+	Req0 :: cowboy_req:req().
+
+read_login_data(Req) ->
+	{ok, Data, Req0} = cowboy_req:read_body(Req),
+	#{<<"user">> := User, <<"password">> := Pass} = json:decode(Data),
+
+	{User, Pass, Req0}.
+
+-doc """
+Read new registration informations from the request
+
+Spec:
+
+```
+-spec read_new_user_data(Req) -> {User, Pass, Email Req0} when
+	Req :: cowboy_req:req(),
+	User :: binary(),
+	Pass :: binary(),
+	Email :: binary(),
+	Req0 :: cowboy_req:req().
+```
+""".
+-spec read_new_user_data(Req) -> {User, Pass, Email, Req0} when
+	Req :: cowboy_req:req(),
+	User :: binary(),
+	Pass :: binary(),
+	Email :: binary(),
+	Req0 :: cowboy_req:req().
+
+read_new_user_data(Req) ->
+	{ok, Data, Req0} = cowboy_req:read_body(Req),
+	#{<<"user">> := User, <<"password">> := Pass,
+	    <<"email">> := Email}  = json:decode(Data),
+
+	{User, Pass, Email, Req0}.
+
+-doc """
+Update user informations.
+
+Spec:
+
+```
+-spec read_update_user_data(Req) -> {Email, Desc, Name, Req0} when
+	Req :: cowboy_req:req(),
+	Email :: binary(),
+	Desc :: binary(),
+	Name :: binary(),
+	Req0 :: cowboy_req:req().
+```
+""".
+-spec read_update_user_data(Req) -> {Email, Desc, Name, Req0} when
+	Req :: cowboy_req:req(),
+	Email :: binary(),
+	Desc :: binary(),
+	Name :: binary(),
+	Req0 :: cowboy_req:req().
+
+read_update_user_data(Req) ->
+	{ok, Data, Req0} = cowboy_req:read_body(Req),
+	#{<<"email">> := Email, <<"description">> := Desc,
+	    <<"name">> := Name} = json:decode(Data),
+
+	{Email, Desc, Name, Req0}.

dudeswave/src/dudeswave_auth_handler.erl

@@ -117,7 +117,8 @@ resource_exists(Req, State) ->
 	case dudeswave_auth:details(User) of
 		[] ->
 			{false, Req, State};
-		{error, Reason} -> exit(Reason);
+		{error, Reason} ->
+			exit(Reason);
 		_ ->
 			NewState = State#{
 			    user_exists => true
@@ -127,8 +128,7 @@ resource_exists(Req, State) ->
 
 previously_existed(Req, State) -> {false, Req, State}.
 
-is_conflict(Req, #{user_exists := true}) ->
-	{false, Req, []};
+is_conflict(Req, #{user_exists := true}) -> {false, Req, []};
 
 is_conflict(Req, State) -> {true, Req, State}.
 
@@ -151,8 +151,7 @@ delete_completed(Req, State) -> {false, Req, State}.
 %
 
 login(Req, State) ->
-	{ok, Data, Req0} = cowboy_req:read_body(Req),
-	#{<<"user">> := User, <<"password">> := Pass} = json:decode(Data),
+	{User, Pass, Req0} = dudeswave_auth:read_login_data(Req),
 
 	case dudeswave_auth:authenticate(User, {password, Pass}) of
 		{true, Cookie, Validity} ->

dudeswave/src/dudeswave_user_handler.erl

@@ -76,6 +76,7 @@ PUT /api/v1/user
 
 ```
 {
+	"username": "foo",
 	"email": "foo@example.com",
 	"password": "123456"
 }
@@ -148,10 +149,8 @@ forbidden(Req, State) ->
 			{User, Auth} = dudeswave_auth:auth_cookies(Req),
 
 			case dudeswave_auth:authenticate(User, {cookie, Auth}) of
-				{error, service_unavailable} ->
-					{true, Req, State};
-				true ->
-					{false, Req, State};
+				{error, service_unavailable} -> {true, Req, State};
+				true -> {false, Req, State};
 				false -> {true, Req, State}
 			end
 	end.
@@ -180,8 +179,10 @@ resource_exists(Req, State) ->
 	{User, _} = dudeswave_auth:auth_cookies(Req),
 
 	case dudeswave_auth:details(User) of
-		[] -> {false, Req, State};
-		{error, _} -> {false, Req, State};
+		[] ->
+			{false, Req, State};
+		{error, _} ->
+			{false, Req, State};
 		Details ->
 			NewState = State#{
 			    details => Details,
@@ -215,10 +216,7 @@ delete_completed(Req, State) -> {true, Req, State}.
 %
 
 create_user(Req, State) ->
-	{User, _} = dudeswave_auth:auth_cookies(Req),
-
-	{ok, Data, Req0} = cowboy_req:read_body(Req),
-	#{<<"password">> := Pass, <<"email">> := Email}  = json:decode(Data),
+	{User, Pass, Email, Req0} = dudeswave_auth:read_new_user_data(Req),
 
 	case dudeswave_auth:new(User, Pass, Email) of
 		ok -> {true, Req0, []};
@@ -227,10 +225,7 @@ create_user(Req, State) ->
 
 modify_user(Req, State) ->
 	{User, _} = dudeswave_auth:auth_cookies(Req),
-
-	{ok, Data, Req0} = cowboy_req:read_body(Req),
-	#{<<"email">> := Email, <<"description">> := Desc,
-	    <<"name">> := Name} = json:decode(Data),
+	{Email, Desc, Name, Req0} = dudeswave_auth:read_update_user_data(Req),
 
 	case dudeswave_auth:update(User, Name, Email, Desc) of
 		ok -> {true, Req0, []};