26 lines
551 B
Erlang
26 lines
551 B
Erlang
|
%% Feel free to use, reuse and abuse the code in this file.
|
||
|
|
|
||
|
|
-module(ws_timeout_close_h).
|
||
|
|
|
||
|
|
-export([init/2]).
|
||
|
|
-export([websocket_init/1]).
|
||
|
|
-export([websocket_handle/2]).
|
||
|
|
-export([websocket_info/2]).
|
||
|
|
|
||
|
|
init(Req, State) ->
|
||
|
|
{cowboy_websocket, Req, State, #{
|
||
|
|
compress => true
|
||
|
|
}}.
|
||
|
|
|
||
|
|
websocket_init(Timeout) ->
|
||
|
|
_ = erlang:send_after(Timeout, self(), timeout_close),
|
||
|
|
{[], undefined}.
|
||
|
|
|
||
|
|
websocket_handle(_Frame, State) ->
|
||
|
|
{[], State}.
|
||
|
|
|
||
|
|
websocket_info(timeout_close, State) ->
|
||
|
|
{[{close, 3333, <<>>}], State};
|
||
|
|
websocket_info(_Info, State) ->
|
||
|
|
{[], State}.
|