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/client.erl')

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


From 37a33b4ef3a8d9c4a1b984e44bfe5be03525c302 Mon Sep 17 00:00:00 2001
From: Jakob Pfender <jpfender@zedat.fu-berlin.de>
Date: Thu, 14 Oct 2010 10:30:13 +0200
Subject: client-side voting

---
 client/client.erl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'client/client.erl')

diff --git a/client/client.erl b/client/client.erl
index d0bae4c..a287af3 100644
--- a/client/client.erl
+++ b/client/client.erl
@@ -74,3 +74,33 @@ handle({change_state, NewState}, _) ->
 
 handle(Cmd, Server) ->
     {{error, {unknown_command, Cmd}}, Server}.
+
+%queries the server for the current votes this client possesses
+getVotes() ->
+	rpc(Server, getVotes, self()),
+	receive
+		Msg ->
+			Msg
+	end.
+
+%positive vote, increments the votes for {Artist, Title} by one
+vote(Artist, Title) ->
+	rpc(Server, vote, [Artist, Title]),
+	receive
+		{_, ok, Msg} ->
+			Msg;
+		{_, error, Msg} ->
+			{error, Msg}
+	end.
+
+%negative vote, decrements the votes for {Artist, Title} by one
+devote(Artist, Title) ->
+	rpc(Server, devote, [Artist, Title]),
+	receive
+		{_, ok, Msg} ->
+			Msg;
+		{_, error, Msg} ->
+			{error, Msg}
+	end.
+
+
-- 
cgit v1.2.3


From 2a672cf96dc272213a36d15f78ec19b6579de4df Mon Sep 17 00:00:00 2001
From: Jakob Pfender <jpfender@zedat.fu-berlin.de>
Date: Thu, 14 Oct 2010 10:34:39 +0200
Subject: 'server is unboun' fixed

---
 client/client.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'client/client.erl')

diff --git a/client/client.erl b/client/client.erl
index 85f0e9d..67be4ee 100644
--- a/client/client.erl
+++ b/client/client.erl
@@ -74,7 +74,7 @@ handle(Cmd, Server) ->
     {{error, {unknown_command, Cmd}}, Server}.
 
 %queries the server for the current votes this client possesses
-getVotes() ->
+getVotes(Server) ->
 	rpc(Server, getVotes, self()),
 	receive
 		Msg ->
-- 
cgit v1.2.3