-module(ggs_server_sup).
-behaviour(supervisor).

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

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

start(Port) ->
    [FirstArg] = Port, 
    {IntPort, _} = string:to_integer(FirstArg),
    start_link(IntPort).

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

init([Port]) ->
    GGSServer =    {ggs_server, 
                    {ggs_server, start_link, [Port]},
                    permanent, 
                    2000, 
                    worker, 
                    [ggs_server]
                },
    MnesiaServer = {ggs_mnesia_controller_server,
                    {ggs_mnesia_controller_server, start_link, []},
                    permanent,
                    2000,
                    worker,
                    [ggs_mnesia_controller_server]
                },
    Children = [MnesiaServer, GGSServer],

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