| % SPDX-License-Identifier: LicenseRef-Sovereign-Leviathan-SL-AGPL3-001 | |
| % Licensing: see LICENSE in the repository root. | |
| %%%------------------------------------------------------------------- | |
| %%% @doc HK-BROWSER plane supervisor: the session registry and the | |
| %%% session pool are two independent children (not one | |
| %%% `simple_one_for_one' supervisor mixing a singleton with dynamic | |
| %%% children, which OTP does not allow) so that neither can take the | |
| %%% other down. `one_for_one': the registry restarting (it holds no | |
| %%% durable state other than in-memory pid mappings, which are | |
| %%% rebuilt as sessions re-register) does not restart live sessions, | |
| %%% and a session-pool restart storm does not restart the registry. | |
| %%% @end | |
| %%%------------------------------------------------------------------- | |
| -module(hk_browser_sup). | |
| -behaviour(supervisor). | |
| -export([start_link/0, init/1]). | |
| start_link() -> | |
| hk_sup_util:start_link_retry( | |
| fun() -> supervisor:start_link({local, ?MODULE}, ?MODULE, []) end). | |
| init([]) -> | |
| SupFlags = #{strategy => one_for_one, intensity => 10, period => 10}, | |
| Children = [ | |
| #{id => hk_browser_registry, | |
| start => {hk_browser_registry, start_link, []}, | |
| restart => permanent, | |
| shutdown => 5000, | |
| type => worker, | |
| modules => [hk_browser_registry]}, | |
| #{id => hk_browser_session_sup, | |
| start => {hk_browser_session_sup, start_link, []}, | |
| restart => permanent, | |
| shutdown => infinity, | |
| type => supervisor, | |
| modules => [hk_browser_session_sup]} | |
| ], | |
| {ok, {SupFlags, Children}}. | |