% 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.

-module(couch_secondary_sup).
-behaviour(supervisor).
-export([init/1, start_link/0]).

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

init([]) ->
    SecondarySupervisors = [
        {couch_plugin_event,
            {gen_event, start_link, [{local, couch_plugin}]},
            permanent,
            brutal_kill,
            worker,
            dynamic}
    ],
    Daemons = [
        {index_server, {couch_index_server, start_link, []}},
        {query_servers, {couch_proc_manager, start_link, []}},
        {vhosts, {couch_httpd_vhost, start_link, []}},
        {uuids, {couch_uuids, start, []}},
        {auth_cache, {couch_auth_cache, start_link, []}}
    ],

    MaybeHttp = case http_enabled() of
        true -> [{httpd, {couch_httpd, start_link, []}}];
        false -> couch_httpd:set_auth_handlers(), []
    end,

    MaybeHttps = case https_enabled() of
        true -> [{httpsd, {chttpd, start_link, [https]}}];
        false -> []
    end,

    Children = SecondarySupervisors ++ [
        begin
            {Module, Fun, Args} = Spec,

            {Name,
                {Module, Fun, Args},
                permanent,
                brutal_kill,
                worker,
                [Module]}
        end
        || {Name, Spec}
        <- Daemons ++ MaybeHttp ++ MaybeHttps, Spec /= ""],
    {ok, {{one_for_one, 50, 3600},
        couch_epi:register_service(couch_db_epi, Children)}}.

http_enabled() ->
    config:get_boolean("httpd", "enable", false).

https_enabled() ->
    % 1. [ssl] enable = true | false
    % 2. if [daemons] httpsd == {chttpd, start_link, [https]} -> pretend true as well
    SSLEnabled = config:get_boolean("ssl", "enable", false),
    LegacySSL = config:get("daemons", "httpsd"),
    LegacySSLEnabled = LegacySSL =:= "{chttpd, start_link, [https]}",

    SSLEnabled orelse LegacySSLEnabled.