You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.3 KiB
51 lines
1.3 KiB
-module(ntSslMgrSup).
|
|
|
|
-behaviour(supervisor).
|
|
|
|
-include("eNet.hrl").
|
|
-include("ntCom.hrl").
|
|
|
|
-export([
|
|
start_link/3
|
|
]).
|
|
|
|
-export([
|
|
init/1
|
|
]).
|
|
|
|
-spec(start_link(SupName :: atom(), Port :: inet:port_number(), ListenOpts :: [listenOpt()]) -> {ok, pid()} | {error, term()}).
|
|
start_link(SupName, Port, ListenOpts) ->
|
|
supervisor:start_link({local, SupName}, ?MODULE, {SupName, Port, ListenOpts}).
|
|
|
|
init({SupName, Port, ListenOpts}) ->
|
|
SupFlag = #{strategy => one_for_one, intensity => 100, period => 3600},
|
|
|
|
AptSupName = ntCom:asName(ssl, SupName),
|
|
ListenName = ntCom:lsName(ssl, SupName),
|
|
|
|
SslOpts = ?getLValue(sslOpts, ListenOpts, []),
|
|
SslHSTet = ?getLValue(sslHSTet, ListenOpts, ?SSL_HANDSHAKE_TIMEOUT),
|
|
|
|
ChildSpecs = [
|
|
#{
|
|
id => AptSupName,
|
|
start => {ntSslAcceptorSup, start_link, [AptSupName, SslOpts, SslHSTet]},
|
|
restart => permanent,
|
|
shutdown => infinity,
|
|
type => supervisor,
|
|
modules => [ntSslAcceptorSup]
|
|
},
|
|
#{
|
|
id => ListenName,
|
|
start => {ntSslListener, start_link, [ListenName, AptSupName, Port, ListenOpts]},
|
|
restart => permanent,
|
|
shutdown => 3000,
|
|
type => worker,
|
|
modules => [ntSslListener]
|
|
}],
|
|
{ok, {SupFlag, ChildSpecs}}.
|
|
|
|
|
|
|
|
|
|
|