-module(ggs_sup).
-behaviour(supervisor).

%% API
-export([start_link/1]).

%% Supervisor callbacks
-export([init/1]).
-define(SERVER, ?MODULE).

start_link(Port) ->
    supervisor:start_link({local, ?SERVER}, ?MODULE, [Port]).

init([Port]) ->
    Dispatcher = {ggs_dispatcher, 
                    {ggs_dispatcher, start_link, [Port]},
                    permanent, 
                    2000, 
                    worker, 
                    [ggs_dispatcher]
                },
    Coordinator = {ggs_coordinator,
                    {ggs_coordinator, start_link, []},
                    permanent, 
                    2000, 
                    worker, 
                    [ggs_coordinator]
                },
    Coordinator_backup = {ggs_coordinator_backup,
                            {ggs_coordinator_backup, start_link, []},
                            permanent, 
                            2000, 
                            worker, 
                            [ggs_coordinator_backup]
                        },
    Children = [Dispatcher, Coordinator_backup, Coordinator],

    RestartStrategy = { one_for_one, % Restart only crashing child
                        10,          % Allow ten crashes per..
                        1            % 1 second, then crash supervisor.
                      },
    {ok, {RestartStrategy, Children}}.