add missing modules
diff --git a/src/map_app_sup.erl b/src/map_app_sup.erl
new file mode 100644
index 0000000..c0961f7
--- /dev/null
+++ b/src/map_app_sup.erl
@@ -0,0 +1,19 @@
+-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]).