some progress

1 files changed, 10 insertions, 1 deletions

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;