%%% Copyright (c) 2014-2015, NORDUnet A/S.
%%% See LICENSE for licensing information.

-module(catlfish_sup).
-behaviour(supervisor).

-export([start_link/1, init/1]).

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

permanent_worker(Name, {Module, Function, Args}) ->
    permanent_worker(Name, {Module, Function, Args}, [Module]).

permanent_worker(Name, StartFunc, Modules) ->
    {Name,
     StartFunc,
     permanent,
     10000,
     worker, Modules}.

gen_http_config(Config, SSLOptions, SSLFlag) ->
    {ChildName, IpAddress, Port, Module} = Config,
    {ok, IPv4Address} = inet:parse_ipv4strict_address(IpAddress),
    WebConfig = [{ip, IPv4Address},
                 {port, Port},
                 {ssl, SSLFlag},
                 {acceptor_pool_size,
                  application:get_env(catlfish, http_server_pool_size, 16)},
                 {ssl_opts, SSLOptions}
                ],
    {ChildName,
     {catlfish_web, start, [WebConfig, Module, ChildName]},
     permanent, 5000, worker, dynamic}.

init([]) ->
    SSLOptions =
        [{certfile, application:get_env(catlfish, https_certfile, none)},
         {keyfile, application:get_env(catlfish, https_keyfile, none)},
         {cacertfile, application:get_env(catlfish, https_cacertfile, none)}],
    Servers =
        lists:map(fun (Config) ->
                          gen_http_config(Config, SSLOptions, true)
                  end, application:get_env(catlfish, https_servers, [])) ++
        lists:map(fun (Config) ->
                          gen_http_config(Config, SSLOptions, false)
                  end, application:get_env(catlfish, http_servers, [])),
    lager:debug("Starting servers ~p", [Servers]),
    RateLimit = permanent_worker(ratelimit, {ratelimit, start_link, []}),
    {ok,
     {{one_for_one, 3, 10},
      [RateLimit | Servers]}}.