|
|
@ -24,18 +24,12 @@ init({SupName, Port, ListenOpts}) -> |
|
|
|
ListenName = ntCom:lsName(ssl, SupName), |
|
|
|
|
|
|
|
SslOpts = ?getLValue(sslOpts, ListenOpts, []), |
|
|
|
{HandshakeTimeout, LastSslOpts} = |
|
|
|
case lists:keytake(handshake_timeout, 1, SslOpts) of |
|
|
|
{value, {handshake_timeout, Timeout}, TemSslOpts} -> |
|
|
|
{Timeout, TemSslOpts}; |
|
|
|
false -> |
|
|
|
{?SSL_HANDSHAKE_TIMEOUT, SslOpts} |
|
|
|
end, |
|
|
|
SslHSTet = ?getLValue(sslHSTet, ListenOpts, ?SSL_HANDSHAKE_TIMEOUT), |
|
|
|
|
|
|
|
ChildSpecs = [ |
|
|
|
#{ |
|
|
|
id => AptSupName, |
|
|
|
start => {ntSslAcceptorSup, start_link, [AptSupName, LastSslOpts, HandshakeTimeout]}, |
|
|
|
start => {ntSslAcceptorSup, start_link, [AptSupName, SslOpts, SslHSTet]}, |
|
|
|
restart => permanent, |
|
|
|
shutdown => infinity, |
|
|
|
type => supervisor, |
|
|
|