% 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.