From aa16b66ce4c64dd165292f5fb931d57f09d436d6 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Thu, 14 Oct 2010 10:25:44 +0200
Subject: removed name in server module

use references for assign the answers to the client
---
 client/client.erl | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'client')

diff --git a/client/client.erl b/client/client.erl
index d0bae4c..b1d8b0c 100644
--- a/client/client.erl
+++ b/client/client.erl
@@ -24,10 +24,8 @@ rpc(Server, Function, Params) ->
 register(Server, Name, Password) ->
     rpc(Server, register, [self(), {Name, Password}]),
     receive
-	{_, ok, Msg} ->
-	    Msg;
-	{_, error, Msg} ->
-	    {error, Msg}
+	{_, Msg} ->
+	    Msg
     end.
 
 login(Server, Name, Password) ->
@@ -38,10 +36,10 @@ login(Server, Name, Password) ->
 	_ ->
 	    rpc(Server, login, [self(), {node(), Name, Password}]),
 	    receive
-		{_, ok, {ok, {logged_in, {Pid, _}}}} ->
-		    server:registration(Pid, cli),
+		{ok, {ok, {logged_in, Pid}}} ->
+		    register(cli, Pid),
 		    {ok, logged_in};
-		{_, _, Msg} ->
+		{_, Msg} ->
 		    Msg;
 		Msg ->
 		    Msg
-- 
cgit v1.2.3