aboutsummaryrefslogtreecommitdiffstats
path: root/test/ws_SUITE_data/ws_subprotocol.erl
blob: a042dd2b4417028361b84cf9cc66ec3e3d6ab939 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
%% Feel free to use, reuse and abuse the code in this file.

-module(ws_subprotocol).

-export([init/2]).
-export([websocket_handle/3]).
-export([websocket_info/3]).

init(Req, Opts) ->
	[Protocol | _] = cowboy_req:parse_header(<<"sec-websocket-protocol">>, Req),
	Req2 = cowboy_req:set_resp_header(<<"sec-websocket-protocol">>, Protocol, Req),
	{cowboy_websocket, Req2, Opts, 1000}.

websocket_handle(_Frame, Req, State) ->
	{ok, Req, State}.

websocket_info(_Info, Req, State) ->
	{ok, Req, State}.