diff options
| author | Marco Ziener <mziener@lavabit.com> | 2010-10-14 15:47:04 +0200 |
|---|---|---|
| committer | Marco Ziener <mziener@lavabit.com> | 2010-10-14 15:47:04 +0200 |
| commit | 6054521e117539d2a5d16f08a6b107e13c9dc370 (patch) | |
| tree | 522efb547d6079fdcbc74e7561ceb1cf0141fb3c /server | |
| parent | 6eef92b9297377aeb1fdd1e55fbb89ea38d1be78 (diff) | |
| download | erlang-6054521e117539d2a5d16f08a6b107e13c9dc370.tar.gz erlang-6054521e117539d2a5d16f08a6b107e13c9dc370.tar.xz erlang-6054521e117539d2a5d16f08a6b107e13c9dc370.zip | |
Cleaned
Diffstat (limited to 'server')
| -rw-r--r-- | server/cldb.erl | 11 |
1 files changed, 11 insertions, 0 deletions
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. |