您最多选择25个主题
主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
64 行
1.8 KiB
64 行
1.8 KiB
-module(eWSrv).
|
|
|
|
-include("wsCom.hrl").
|
|
|
|
-export([
|
|
start/0
|
|
, stop/0
|
|
, openSrv/2
|
|
, openSrv/3
|
|
, closeSrv/1
|
|
, wSrvName/1
|
|
]).
|
|
|
|
start() ->
|
|
application:ensure_all_started(eWSrv).
|
|
|
|
stop() ->
|
|
application:stop(eWSrv).
|
|
|
|
wSrvName(Port) ->
|
|
binary_to_atom(<<"$WSrv", (integer_to_binary(Port))/binary>>).
|
|
|
|
openSrv(Port, WsOpts) ->
|
|
T1WsOpts = lists:keystore(conMod, 1, WsOpts, {conMod, wsHttp}),
|
|
WsMod = ?wsGLV(wsMod, WsOpts, wsEgHer),
|
|
T2WsOpts = lists:keystore(conArgs, 1, T1WsOpts, {conArgs, WsMod}),
|
|
TcpOpts = ?wsGLV(tcpOpts, T2WsOpts, []),
|
|
NewTcpOpts = wsUtil:mergeOpts(?DefWsOpts, TcpOpts),
|
|
LWsOpts = lists:keystore(tcpOpts, 1, T2WsOpts, {tcpOpts, NewTcpOpts}),
|
|
|
|
WSrvName = wSrvName(Port),
|
|
|
|
case ?wsGLV(sslOpts, WsOpts, false) of
|
|
false ->
|
|
{ok, _} = eNet:openTcp(WSrvName, Port, LWsOpts);
|
|
_ ->
|
|
{ok, _} = eNet:openSsl(WSrvName, Port, LWsOpts)
|
|
end.
|
|
|
|
openSrv(WSrvName, Port, WsOpts) ->
|
|
T1WsOpts = lists:keystore(conMod, 1, WsOpts, {conMod, wsHttp}),
|
|
WsMod = ?wsGLV(wsMod, WsOpts, wsEgHer),
|
|
T2WsOpts = lists:keystore(conArgs, 1, T1WsOpts, {conArgs, WsMod}),
|
|
TcpOpts = ?wsGLV(tcpOpts, T2WsOpts, []),
|
|
NewTcpOpts = wsUtil:mergeOpts(?DefWsOpts, TcpOpts),
|
|
LWsOpts = lists:keystore(tcpOpts, 1, T2WsOpts, {tcpOpts, NewTcpOpts}),
|
|
|
|
case ?wsGLV(sslOpts, WsOpts, false) of
|
|
false ->
|
|
{ok, _} = eNet:openTcp(WSrvName, Port, LWsOpts);
|
|
_ ->
|
|
{ok, _} = eNet:openSsl(WSrvName, Port, LWsOpts)
|
|
end.
|
|
|
|
closeSrv(WSrvNameOrPort) ->
|
|
WSrvName =
|
|
case is_integer(WSrvNameOrPort) of
|
|
true ->
|
|
wSrvName(WSrvNameOrPort);
|
|
_ ->
|
|
WSrvNameOrPort
|
|
end,
|
|
supervisor:terminate_child(eWSrv_sup, WSrvName),
|
|
supervisor:delete_child(eWSrv_sup, WSrvName).
|