runs

2025-12-16 22:09:10 -08:00
parent cbfc496057
commit e160701403
11 changed files with 95 additions and 156 deletions
@@ -0,0 +1,70 @@
+%%% @doc
+%%% front end web development lab Client Supervisor
+%%%
+%%% This process supervises the client socket handlers themselves. It is a peer of the
+%%% fd_httpd_client_man (the manager interface to this network service component),
+%%% and a child of the supervisor named fd_httpd_clients.
+%%%
+%%% Because we don't know (or care) how many client connections the server may end up
+%%% handling this is a simple_one_for_one supervisor which can spawn and manage as
+%%% many identically defined workers as required, but cannot supervise any other types
+%%% of processes (one of the tradeoffs of the "simple" in `simple_one_for_one').
+%%%
+%%% http://erlang.org/doc/design_principles/sup_princ.html#id79244
+%%% @end
+
+-module(fd_httpd_client_sup).
+-vsn("0.1.0").
+-behaviour(supervisor).
+-author("Peter Harpending <peterharpending@qpq.swiss>").
+-copyright("Peter Harpending <peterharpending@qpq.swiss>").
+-license("BSD-2-Clause-FreeBSD").
+
+
+-export([start_acceptor/1]).
+-export([start_link/0]).
+-export([init/1]).
+
+
+
+-spec start_acceptor(ListenSocket) -> Result
+    when ListenSocket :: gen_tcp:socket(),
+         Result       :: {ok, pid()}
+                       | {error, Reason},
+         Reason       :: {already_started, pid()}
+                       | {shutdown, term()}
+                       | term().
+%% @private
+%% Spawns the first listener at the request of the fd_httpd_client_man when
+%% fewd:listen/1 is called, or the next listener at the request of the
+%% currently listening fd_httpd_client when a connection is made.
+%%
+%% Error conditions, supervision strategies and other important issues are
+%% explained in the supervisor module docs:
+%% http://erlang.org/doc/man/supervisor.html
+
+start_acceptor(ListenSocket) ->
+    supervisor:start_child(?MODULE, [ListenSocket]).
+
+
+-spec start_link() -> {ok, pid()}.
+%% @private
+%% This supervisor's own start function.
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, none).
+
+
+-spec init(none) -> {ok, {supervisor:sup_flags(), [supervisor:child_spec()]}}.
+%% @private
+%% The OTP init/1 function.
+
+init(none) ->
+    RestartStrategy = {simple_one_for_one, 1, 60},
+    Client    = {fd_httpd_client,
+                 {fd_httpd_client, start_link, []},
+                 temporary,
+                 brutal_kill,
+                 worker,
+                 [fd_httpd_client]},
+    {ok, {RestartStrategy, [Client]}}.