From bde55a9f9456b7ab38b8ae35a3dc65cf4044aabe Mon Sep 17 00:00:00 2001
From: Marco Ziener <mziener@lavabit.com>
Date: Thu, 14 Oct 2010 16:14:18 +0200
Subject: Rights Check

---
 server/cldb.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/server/cldb.erl b/server/cldb.erl
index 176576c..982aafc 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]).
+-export([init/0, ask/2, login/2, decVote/2, incVote/2, register/3, check_rights/2]).
 -record(user, {name, passwd, votes, rights}).
 
 init() ->
@@ -47,4 +47,7 @@ incVote(User, Pwd) ->
         end,
     mnesia:transaction(F).
 
+check_rights(User, Name) ->
+    {_, _, Rights} = ask(User, Name),
+    Rights.
                 
-- 
cgit v1.2.3