aboutsummaryrefslogtreecommitdiffstats
path: root/test/ws_SUITE_data/ws_subprotocol.erl
blob: 3079bc60678ab60798031f5f4c390baa1d2f9406 (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/2]).
-export([websocket_info/2]).

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, State) ->
	{ok, State}.

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