diff --git a/src/misc/ntCom.erl b/src/misc/ntCom.erl index 3b8e151..ec30e23 100644 --- a/src/misc/ntCom.erl +++ b/src/misc/ntCom.erl @@ -113,6 +113,13 @@ lsName(ssl, PrName) -> lsName(udp, PrName) -> binary_to_atom(<<(atom_to_binary(PrName))/binary, "URs">>). +supName(tcp, PrName) -> + binary_to_atom(<<(atom_to_binary(PrName))/binary, "TSup">>); +supName(ssl, PrName) -> + binary_to_atom(<<(atom_to_binary(PrName))/binary, "SSup">>); +supName(udp, PrName) -> + binary_to_atom(<<(atom_to_binary(PrName))/binary, "USup">>). + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% This is a generic "port_command" interface used by TCP, UDP, SCTP, depending %% on the driver it is mapped to, and the "Data". It actually sends out data,-- diff --git a/src/proxyPt/ntPptMgrSup.erl b/src/proxyPt/ntPptMgrSup.erl index cfdc65b..acd6359 100644 --- a/src/proxyPt/ntPptMgrSup.erl +++ b/src/proxyPt/ntPptMgrSup.erl @@ -15,7 +15,7 @@ -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}). + supervisor:start_link({local, ntCom:supName(ssl, SupName)}, ?MODULE, {SupName, Port, ListenOpts}). init({SupName, Port, ListenOpts}) -> SupFlag = #{strategy => one_for_one, intensity => 100, period => 3600}, diff --git a/src/ssl/ntSslMgrSup.erl b/src/ssl/ntSslMgrSup.erl index 28541c7..873e314 100644 --- a/src/ssl/ntSslMgrSup.erl +++ b/src/ssl/ntSslMgrSup.erl @@ -15,7 +15,7 @@ -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}). + supervisor:start_link({local, ntCom:supName(ssl, SupName)}, ?MODULE, {SupName, Port, ListenOpts}). init({SupName, Port, ListenOpts}) -> SupFlag = #{strategy => one_for_one, intensity => 100, period => 3600}, diff --git a/src/tcp/ntTcpMgrSup.erl b/src/tcp/ntTcpMgrSup.erl index 1c9fd76..be6b8f6 100644 --- a/src/tcp/ntTcpMgrSup.erl +++ b/src/tcp/ntTcpMgrSup.erl @@ -15,7 +15,7 @@ -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}). + supervisor:start_link({local, ntCom:supName(tcp, SupName)}, ?MODULE, {SupName, Port, ListenOpts}). init({SupName, Port, ListenOpts}) -> SupFlag = #{strategy => one_for_one, intensity => 100, period => 3600},