20 lines
682 B
Erlang
20 lines
682 B
Erlang
-module(map_app_sup).
|
|
-author('Harald Welte <laforge@gnumonks.org>').
|
|
|
|
-behaviour(supervisor).
|
|
|
|
-export([init/1, start_link/3]).
|
|
|
|
init([{Mod, Args, Opts}, Ssn, AppMod]) ->
|
|
TcapFunc = {tcap_sap_sup, start_link, [Mod, Args, Opts]},
|
|
TcapSpec = {tcap, TcapFunc, permanent, 4000, worker, [tcap_sap_sup, Mod]},
|
|
% FIXME: this should go...
|
|
TcoName = list_to_atom("tcap_tco_ssn_" ++ integer_to_list(Ssn)),
|
|
SssFunc = {gen_server, start_link, [map_ss_server, [Ssn, TcoName], []]},
|
|
SssSpec = {sss, SssFunc, permanent, 4000, worker, [map_ss_server]},
|
|
{ok, {{one_for_one, 1, 1}, [TcapSpec, SssSpec]}}.
|
|
|
|
|
|
start_link(MAO, Ssn, AppMod) ->
|
|
supervisor:start_link(?MODULE, [MAO, Ssn, AppMod]).
|