busytone

-module(busytone_sup).
-behaviour(supervisor).
-export([start_link/0, init/1, cfg/1]).
-include_lib("busytone/include/busytone.hrl").

-define(CHILD(M, A), #{ id => M, start => {M, start_link, A}, restart => permanent, shutdown => 2000, type => worker }).

cfg(K) -> {ok, V} = application:get_env(busytone, K), V.

start_link() ->
	supervisor:start_link(?MODULE, []).

init(_Args) ->
	lager:notice("start"),
	SupFlags = #{strategy => one_for_one, intensity => 9000, period => 5},
	Fs = cfg(freeswitch_drone),
	Host = cfg(reach_host),
	Port = cfg(reach_port),
	Admin = cfg(admin_user),
	FSURI = cfg(freeswitch_tmpl),
	ChildSpecs = [
		?CHILD(call_sup, [FSURI]),
		?CHILD(fswitch, [Fs]),
		?CHILD(agent_sup, [Host, Port]),
		?CHILD(test_sup, []),
		?CHILD(watcher, [{admin, start_link, [Admin]}, 0])
	],
	{ok, {SupFlags, ChildSpecs}}.