Improve the registration bit.

Now, we return a proper answer when creating a user through a
POST request.

Maybe in the future we will convert the APIs to use JSON, like
all cool kids do. However, it doesn't look like it makes much
sense in this case.

dudeswave/src/Makefile

@@ -5,7 +5,7 @@ ERLC?=	erlc -server
 
 OBJS=	dudeswave.beam dudeswave_app.beam
 OBJS+=	dudeswave_supervisor.beam dudeswave_handler.beam
-OBJS+=	dudeswave_user_handler.beam
+OBJS+=	dudeswave_newuser_handler.beam
 
 all: ${OBJS}
 

dudeswave/src/dudeswave_app.erl

@@ -37,7 +37,7 @@ start(_Type, StartArgs) ->
 
 	Dispatch = cowboy_router:compile([
 	    {'_', [
-	        {"/user", dudeswave_user_handler, #{bucket => ?USERSBUCKET}},
+	        {"/user/new", dudeswave_newuser_handler, #{bucket => ?USERSBUCKET}},
 	        {"/", dudeswave_handler, #{bucket => ?APPBUCKET}}
 	    ]}
 	]),

dudeswave/src/dudeswave_newuser_handler.erl

@@ -13,7 +13,7 @@
 % ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 % OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 %
--module(dudeswave_user_handler).
+-module(dudeswave_newuser_handler).
 -moduledoc """
 Register a new user.
 """.
@@ -27,7 +27,7 @@ Register a new user.
 %
 -export([allowed_methods/2, content_types_accepted/2,
      known_methods/2, resource_exists/2, is_conflict/2,
-     create_user/2]).
+     previously_existed/2, allow_missing_post/2, create_user/2]).
 
 
 -include_lib("storage/include/storage.hrl").
@@ -42,13 +42,13 @@ init(Req, State) ->
 	{cowboy_rest, Req, State}.
 
 allowed_methods(Req, State) ->
-	{[<<"PUT">>], Req, State}.
+	{[<<"POST">>], Req, State}.
 
 content_types_accepted(Req, State) ->
-	{[{{ <<"application">>, <<"json">>, '*'}, create_user}], Req, State}.
+	{[{<<"application/x-www-form-urlencoded">>, create_user}], Req, State}.
 
 known_methods(Req, State) ->
-	{[<<"PUT">>], Req, State}.
+	{[<<"POST">>], Req, State}.
 
 resource_exists(Req, State) ->
 	{ok, Bucket} = maps:find(bucket, State),
@@ -68,14 +68,26 @@ is_conflict(Req, user_exists) -> {true, Req, []};
 
 is_conflict(Req, State) -> {false, Req, State}.
 
+previously_existed(Req, State) ->
+	{false, Req, State}.
+
+allow_missing_post(Req, State) ->
+	{true, Req, State}.
+
 create_user(Req, {Bucket, [{name, Name}, {username, User}, {password, Pass}]}) ->
 	crypto:rand_seed(),
 	Salt = rand:bytes(32),
 	Hash = crypto:hash(sha256, <<Pass/binary, Salt/binary>>),
 
+	URI = uri_string:recompose(#{
+	    scheme => cowboy_req:scheme(Req),
+	    host => cowboy_req:host(Req),
+	    path => lists:flatten(["/user/", User])
+	}),
+
 	case storage:write(Bucket, User, Hash, [{salt, Salt}, {name, Name}]) of
 		ok ->
-			{true, Req, []};
+			{{true, list_to_binary(URI)}, Req, []};
 		{error, Reason} ->
 			{false, Req, Reason}
 	end.