From 6b1f8c043b61d27be473b90cf79a09a49297ce0f Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 10 Aug 2018 17:11:42 +0200 Subject: Woops, better pay attention to character case. --- src/login/lgn_handler.erl | 27 +++++++-------------------- 1 file changed, 7 insertions(+), 20 deletions(-) (limited to 'src/login/lgn_handler.erl') 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. -- cgit v1.2.3-70-g09d2