Woops, better pay attention to character case.

1 files changed, 7 insertions, 20 deletions

diff --git a/src/login/lgn_handler.erl b/src/login/lgn_handler.erl
index fe87bc6..d2a6ee2 100644
--- a/src/login/lgn_handler.erl
+++ b/src/login/lgn_handler.erl
@@ -27,30 +27,17 @@ ensure_player_exists (ID, Username, Password, Email) ->
          )
    end,
 
-   case shr_database:fetch(login_db, Username, admin) of
+   UsernameLC = string:lowercase(Username),
+   EmailLC = string:lowercase(Email),
+
+   case shr_database:fetch(login_db, UsernameLC, admin) of
       {ok, _} -> ok;
-      not_found ->
-         shr_database:insert_at
-         (
-            login_db,
-            Username,
-            any,
-            any,
-            ID
-         )
+      not_found -> shr_database:insert_at(login_db, UsernameLC, any, any, ID)
    end,
 
-   case shr_database:fetch(login_db, Email, admin) of
+   case shr_database:fetch(login_db, EmailLC, admin) of
       {ok, _} -> ok;
-      not_found ->
-         shr_database:insert_at
-         (
-            login_db,
-            Email,
-            any,
-            any,
-            ID
-         )
+      not_found -> shr_database:insert_at(login_db, EmailLC, any, any, ID)
    end,
 
    ok.