erliam

-module(erliam_sup).

-behaviour(supervisor).

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

-define(SERVER, ?MODULE).

%%%% API

start_link(Opts) ->
    supervisor:start_link({local, ?SERVER}, ?MODULE, Opts).

%%%% SUPERVISOR CALLBACKS

init(_) ->
    configure_httpc_profile(),

    SupFlags =
        #{strategy => one_for_one,
          intensity => 10,
          period => 10},

    CredSrv =
        #{id => erliam_srv,
          type => worker,
          shutdown => 5000,
          start => {erliam_srv, start_link, []}},

    {ok, {SupFlags, [CredSrv]}}.

%%%% INTERNAL FUNCTIONS

configure_httpc_profile() ->
    Profile = erliam:httpc_profile(),
    inets:start(httpc, [{profile, Profile}]),
    ok =
        httpc:set_options([{max_sessions, 8},
                           {max_keep_alive_length, 0},
                           {max_pipeline_length, 0},
                           {keep_alive_timeout, 1000}],
                          Profile).