%%% @doc Main apns4erl's supervisor.
%%%
%%% Copyright 2017 Erlang Solutions Ltd.
%%%
%%% Licensed under the Apache License, Version 2.0 (the "License");
%%% you may not use this file except in compliance with the License.
%%% You may obtain a copy of the License at
%%%
%%%     http://www.apache.org/licenses/LICENSE-2.0
%%%
%%% Unless required by applicable law or agreed to in writing, software
%%% distributed under the License is distributed on an "AS IS" BASIS,
%%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%%% See the License for the specific language governing permissions and
%%% limitations under the License.
%%% @end
%%% @copyright Inaka <hello@inaka.net>
%%%
-module(apns_sup).
-author("Felipe Ripoll <felipe@inakanetworks.com>").
-behaviour(supervisor).

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

%% Supervisor callbacks
-export([ init/1
        ]).

%%%===================================================================
%%% API functions
%%%===================================================================

%%--------------------------------------------------------------------
%% @doc
%% Starts the supervisor
%%
%% @end
%%--------------------------------------------------------------------
-spec start_link() ->
  {ok, Pid :: pid()} | ignore | {error, Reason :: term()}.
start_link() ->
  supervisor:start_link({local, ?MODULE}, ?MODULE, []).

%% @doc Creates a new connection. It needs an apns_connection:connection()
%%      parameter in order to create the connection with APNs.
-spec create_connection(apns_connection:connection()) -> {ok, pid()}.
create_connection(Connection) ->
  supervisor:start_child(?MODULE, [Connection, self()]).

%%%===================================================================
%%% Supervisor callbacks
%%%===================================================================

-spec init(any()) ->
  {ok, {supervisor:sup_flags(), [supervisor:child_spec()]}}.
init([]) ->
  SupFlags = #{ strategy  => simple_one_for_one
              , intensity => 1000
              , period    => 3600
              },

  Children = [#{ id       => apns_connection
               , start    => {apns_connection, start_link, []}
               , restart  => temporary
               , shutdown => 5000
               , type     => worker
               , modules  => [apns_connection]
               }],

  {ok, {SupFlags, Children}}.