SUPERVISOR:
start_link() ->
    supervisor:start_link({local, ?MODULE}, ?MODULE, []).

init(_Args) ->
    {ok, {{one_for_one, 1, 1}, % 60
          [{server, {server, start_link, []},
            permanent, brutal_kill, worker, [server]}]}}.

stop() ->
    exit(whereis(?MODULE), normal).


DATABASE:
init() ->
    mnesia:create_schema([node()]),
    mnesia:start(),
    mnesia:create_table(entity,
        [ {disc_copies, [node()] },
             {attributes, record_info(fields, entity)} ]).