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/dudeswave_newuser_handler.erl

@@ -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").
@@ -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.