% The clientdatabase
-module(cldb).
-export([init/0]).
-record(user, {name, passwd, votes}).
init() ->
mnesia:create_schema([node()]),
mnesia:start(),
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.