%%% File : iserve_master.erl
%%% Author : Christian <chsu79@gmail.com>
%%% Description : Bookkeeping of running servers
-module(iserve_master).
-behaviour(gen_server).
-export([start_link/1]).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
terminate/2, code_change/3]).
%%% Records
-record(state, {supervisor}).
%%% API
start_link(SupervisorPid) ->
gen_server:start_link({local, ?MODULE}, ?MODULE, [SupervisorPid], []).
%%% gen_server callbacks
init([SupPid]) ->
%% TODO, look up the sibling server supervisor?
{ok, #state{supervisor=SupPid}}.
handle_call({add_server, Conf}, _From, State) ->
call_add_server(Conf, State);
handle_call({del_server, Id}, _, State) ->
call_del_server(Id, State);
handle_call(_Request, _From, State) ->
{stop, unknown_call, State}.
handle_cast(info, State) ->
erlang:display(State),
{noreply, State};
handle_cast(_Msg, State) ->
{stop, unknown_cast, State}.
handle_info(_Info, State) ->
{noreply, State}.
terminate(_Reason, _State) ->
ok.
code_change(_OldVsn, State, _Extra) ->
{ok, State}.
%%% Internal functions
call_add_server({_Starter, _Port, _Callback, _Context}=Conf, S) ->
{ok, Pid} = iserve_server_sup:add_server(S#state.supervisor, Conf),
%% TODO: Monitor the little bugger
Reply = {ok, Pid},
{reply, Reply, S}.
call_del_server(Pid, S) ->
supervisor:terminate_child(S#state.supervisor, Pid),
{reply, ok, S}.
