-module(iserve_sup).
-behaviour(supervisor).
-export([
start_link/0,
init/1
]).
start_link() ->
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
init([]) ->
Supervisor = self(),
%% The servers supervisor is for keeping individual servers,
%% adding and removing them dynamically
Servers = {servers_sup,
{iserve_server_sup, start_link, [Supervisor]},
permanent, 2000, worker, [iserve_server_sup]},
%% The master is for book keeping all running servers and
%% to hold information about them.
Master = {master,
{iserve_master, start_link, [iserve_server_sup]},
permanent, 2000, worker, [iserve_master]},
{ok,
{ {one_for_one, 5, 60},
[Servers, Master]}}.
