From d1c3af4f92f169853262dcc7f6c58bdd287c21ca Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Wed, 13 Oct 2010 15:03:09 +0200 Subject: some progress --- server/dispatcher.erl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'server/dispatcher.erl') diff --git a/server/dispatcher.erl b/server/dispatcher.erl index 86b2627..a296c78 100644 --- a/server/dispatcher.erl +++ b/server/dispatcher.erl @@ -8,18 +8,18 @@ init() -> dict:new(). handle(_, {register, {User, Password}}, Dict) -> - case dict:find(User) of - {ok, _} -> + case dict:find(User, Dict) of + {ok, _}-> {{error, duplicated_user}, Dict}; - true -> + _ -> {{ok, user_created}, dict:store(User, Password, Dict)} end; handle(From, {login, {User, Password}}, Dict) -> - case dict:find(User) of + case dict:find(User, Dict) of {ok, Password} -> {{ok, {logged_in, client:start(From)}}, Dict}; - true -> + _ -> {{error, user_or_password_invalid}, Dict} end; -- cgit v1.2.3