From ab13a717fe4e443c233694c69573deb11dbdf453 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Thu, 14 Oct 2010 17:37:18 +0200
Subject: changed user database from dict to mnesia (modules: cldb)

---
 server/cldb.erl | 48 ++++++++++++++++++++++++++++--------------------
 1 file changed, 28 insertions(+), 20 deletions(-)

(limited to 'server/cldb.erl')

diff --git a/server/cldb.erl b/server/cldb.erl
index 982aafc..0602b7d 100644
--- a/server/cldb.erl
+++ b/server/cldb.erl
@@ -1,7 +1,7 @@
 % The clientdatabase
 
 -module(cldb).
--export([init/0, ask/2, login/2, decVote/2, incVote/2, register/3, check_rights/2]).
+-export([init/0, ask/2, login/2, decVote/1, incVote/1, register/3, check_rights/1]).
 -record(user, {name, passwd, votes, rights}).
 
 init() ->
@@ -9,45 +9,53 @@ init() ->
     mnesia:start(),
     mnesia:create_table(user, [{attributes, record_info(fields, user)}]),
     io:format("Userdb up and running \n").
-    
+
 ask(User, Pwd) ->
     F = fun() ->
-                mnesia:match_object({user, User, Pwd, '_'})
+                mnesia:match_object({user, User, Pwd, '_', '_'})
         end,
     mnesia:transaction(F).
-    
-                
-    
+
 login(User, Pwd) ->
-    {_, Reason} = ask(User, Pwd),
-    Reason.
+    case ask(User, Pwd) of
+	{atomic, [UserRow|_]} -> {ok, UserRow};
+	_-> {error}
+    end.
 
 register(User, Pwd, Root) ->
-    F = fun() ->
-                mnesia:write(#user{name = User, passwd = Pwd, votes = 5, rights = Root})
-        end,
-    {_, Reason} = mnesia:transaction(F),
-    Reason.
+    case ask(User, '_') of
+	{atomic, []} ->
+	    F = fun() ->
+			mnesia:write(#user{name = User, passwd = Pwd, votes = 5, rights = Root})
+		end,
+	    case mnesia:transaction(F) of
+		{atomic, ok} ->
+		    {ok, user_created};
+		{atomic, Why} ->
+		    {error, Why}
+	    end;
+	_ ->
+	    {error, duplicated_user}
+    end.
 
-decVote(User, Pwd) ->
+decVote(User) ->
     F = fun() ->
-                [Head|_] = ask(User, Pwd),
+                [Head|_] = ask(User, '_'),
                 Votes = Head#user.votes - 1,
                 New = Head#user{votes = Votes},
                 mnesia:write(New)
         end,
     mnesia:transaction(F).
 
-incVote(User, Pwd) ->
+incVote(User) ->
     F = fun() ->
-                [Head|_] = ask(User, Pwd),
+                [Head|_] = ask(User, '_'),
                 Votes = Head#user.votes + 1,
                 New = Head#user{votes = Votes},
                 mnesia:write(New)
         end,
     mnesia:transaction(F).
 
-check_rights(User, Name) ->
-    {_, _, Rights} = ask(User, Name),
+check_rights(User) ->
+    {_, _, Rights} = ask(User, '_'),
     Rights.
-                
-- 
cgit v1.2.3


From f2164544210f511664ed7186107789ec55ec3edf Mon Sep 17 00:00:00 2001
From: Michael Wittig <michael.wittig@fu-berlin.de>
Date: Thu, 14 Oct 2010 17:49:42 +0200
Subject: finally finished, need to be read again

---
 server/cldb.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'server/cldb.erl')

diff --git a/server/cldb.erl b/server/cldb.erl
index 0602b7d..d514ff9 100644
--- a/server/cldb.erl
+++ b/server/cldb.erl
@@ -59,3 +59,11 @@ incVote(User) ->
 check_rights(User) ->
     {_, _, Rights} = ask(User, '_'),
     Rights.
+
+% after a song every client gets on more vote
+give_votes([Head|Rest]) -> 
+	User = Head#user.name,
+	incVote(User),
+	give_votes(Rest);
+give_votes([]) -> ok.
+
-- 
cgit v1.2.3