From cabc0995c0e0964ecbef18470c6a483022879071 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Mon, 4 Oct 2010 06:04:19 +0200 Subject: Major reorganisation of the core, still unfinished... --- src/core/ephraim_account.erl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 src/core/ephraim_account.erl (limited to 'src/core/ephraim_account.erl') diff --git a/src/core/ephraim_account.erl b/src/core/ephraim_account.erl new file mode 100644 index 0000000..d79e118 --- /dev/null +++ b/src/core/ephraim_account.erl @@ -0,0 +1,17 @@ +-module(ephraim_account). +-behaviour(supervisor). +-export([start_link/0]). +-export([init/1]). + +start_link() -> + {ok, Pid} = supervisor:start_link(?MODULE, []), + + {ok, EventManager} = supervisor:start_child(Pid, {event_man, {gen_event, start_link, []}, permanent, 1000, worker, [gen_event]}), + ephraim_account_event_proxy:start(EventManager), + + {ok, Connection} = supervisor:start_child(Pid, {connection, {ephraim_conn, start_link, [EventManager]}, permanent, 10000, worker, [ephraim_conn]}), + {ok, _} = supervisor:start_child(Pid, {roster, {ephraim_roster, start_link, [EventManager, Connection]}, permanent, 1000, worker, [ephraim_roster]}), + {ok, Pid}. + +init(_Args) -> + {ok, {{one_for_all, 0, 1}, []}}. -- cgit v1.2.3