From b29dda5113a994d2ad18f9e6048d9b69c91a79c7 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Wed, 13 Oct 2010 23:20:54 +0200 Subject: some progress --- server/dispatcher.erl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'server/dispatcher.erl') diff --git a/server/dispatcher.erl b/server/dispatcher.erl index 4cef276..390f9e5 100644 --- a/server/dispatcher.erl +++ b/server/dispatcher.erl @@ -2,10 +2,18 @@ -export([start/0, init/0, handle/3]). start() -> - server:start(dis, dispatcher). code:purge(server), code:load_abs("../common/server"), + case server:start(dis, dispatcher) of + true -> + io:format("Server started... ~n"), + true; + _ -> + io:format("Error starting server! Exiting.~n"), + exit(1) + end. + init() -> dict:new(). @@ -14,6 +22,7 @@ handle(_, {register, {User, Password}}, Dict) -> {ok, _}-> {{error, duplicated_user}, Dict}; _ -> + io:format("User created: ~s~n", [User]), {{ok, user_created}, dict:store(User, Password, Dict)} end; -- cgit v1.2.3