From 6054521e117539d2a5d16f08a6b107e13c9dc370 Mon Sep 17 00:00:00 2001
From: Marco Ziener <mziener@lavabit.com>
Date: Thu, 14 Oct 2010 15:47:04 +0200
Subject: Cleaned

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

(limited to 'server')

diff --git a/server/cldb.erl b/server/cldb.erl
index 0f9f407..9aad688 100644
--- a/server/cldb.erl
+++ b/server/cldb.erl
@@ -10,3 +10,14 @@ init() ->
     mnesia:create_table(track, [{attributes, record_info(fields, track)}]),
     io:format("Userdb up and running \n").
     
+
+ask(User, Pwd) ->
+    F = fun() ->
+                mnesia:match_object({user, User, Pwd, _}),
+        end,
+    
+                
+    
+login(User, Pwd) ->
+    {_, Reason} = ask(User, Pwd),
+    Reason.
-- 
cgit v1.2.3