(Broken) still working on it...

1 files changed, 2 insertions, 47 deletions

diff --git a/src/login/query/lgn_sign_up.erl b/src/login/query/lgn_sign_up.erl
index 4111597..0632ac1 100644
--- a/src/login/query/lgn_sign_up.erl
+++ b/src/login/query/lgn_sign_up.erl
@@ -54,56 +54,11 @@ register_user (Input) ->
    Password = Input#input.password,
    Email = Input#input.email,
 
-   UsernameLC = string:lowercase(Username),
-   EmailLC = string:lowercase(Email),
-
-   shr_janitor:new(login_db, UsernameLC),
-   shr_janitor:new(login_db, EmailLC),
-
-   ok = shr_database:reserve(login_db, UsernameLC, janitor),
-   ok = shr_database:reserve(login_db, EmailLC, janitor),
-
-   Player = shr_player:new(<<"">>, Username, Password, Email),
-
-   {ok, PlayerID} = shr_database:insert(player_db, janitor, janitor, Player),
-
-   shr_janitor:new(player_db, PlayerID),
-
-   LoginUpdateQueryOps =
-      [
-         shr_db_query:set_value(PlayerID),
-         shr_db_query:set_read_permission(any),
-         shr_db_query:set_write_permission([{user, PlayerID}])
-      ],
-
-   PlayerUpdateQueryOps =
-      [
-         shr_db_query:set_field(shr_player:get_id_field(), PlayerID),
-         shr_db_query:set_read_permission(any),
-         shr_db_query:set_write_permission([{user, PlayerID}])
-      ],
-
-   ok =
-      shr_database:commit
-      (
-         shr_db_query:new(login_db, UsernameLC, janitor, LoginUpdateQueryOps)
-      ),
-
-   ok =
-      shr_database:commit
-      (
-         shr_db_query:new(login_db, EmailLC, janitor, LoginUpdateQueryOps)
-      ),
-
-   ok =
-      shr_database:commit
-      (
-         shr_db_query:new(player_db, PlayerID, janitor, PlayerUpdateQueryOps)
-      ),
+   GeneratedPlayer = spe_player:generate(Username, Password, Email),
 
    #query_state
    {
-      player = shr_player:set_id(PlayerID, Player)
+      player = GeneratedPlayer
    }.
 
 -spec generate_reply(query_state()) -> binary().