1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
%% 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}.
|
