43 lines
1.3 KiB
Erlang
43 lines
1.3 KiB
Erlang
-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}}.
|
|
|