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 ++++++++++++++++++++++++++++++
 server/client.erl | 13 +++++++++++++
 2 files changed, 43 insertions(+)

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.
+
+
diff --git a/server/client.erl b/server/client.erl
index 31d382f..61260b4 100644
--- a/server/client.erl
+++ b/server/client.erl
@@ -30,3 +30,16 @@ register(Client, {Name, Password}) ->
 
 login(Client, {Node, Name, Password}) ->
     dis ! {Client, {login, {Node, Name, Password}}}.
+
+getVotes() ->
+	media:getVotes(self()),
+	receive
+		Msg ->
+			Client ! Msg
+	end.
+
+vote(Artist,Title) ->
+	media:vote(Artist, Title).
+
+devote(Artist,Title) ->
+	media:devote(Artist, Title).
-- 
cgit v1.2.3