aboutsummaryrefslogtreecommitdiffstats
path: root/test/handlers/ws_deflate_opts_h.erl
blob: 1c15efecdcfd106889e2ab47bfec4911e454bcde (plain) (blame)
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
26
27
28
29
30
31
32
33
34
35
36
%% This module enables compression and returns deflate
%% options depending on the query string.

-module(ws_deflate_opts_h).
-behavior(cowboy_websocket).

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

init(Req=#{qs := Qs}, State) ->
	{Name, Value} = case Qs of
		<<"server_context_takeover">> -> {server_context_takeover, takeover};
		<<"server_no_context_takeover">> -> {server_context_takeover, no_takeover};
		<<"client_context_takeover">> -> {client_context_takeover, takeover};
		<<"client_no_context_takeover">> -> {client_context_takeover, no_takeover};
		<<"server_max_window_bits">> -> {server_max_window_bits, 9};
		<<"client_max_window_bits">> -> {client_max_window_bits, 9};
		<<"level">> -> {level, best_speed};
		<<"mem_level">> -> {mem_level, 1};
		<<"strategy">> -> {strategy, rle}
	end,
	{cowboy_websocket, Req, State, #{
		compress => true,
		deflate_opts => #{Name => Value}
	}}.

websocket_handle({text, Data}, State) ->
	{reply, {text, Data}, State};
websocket_handle({binary, Data}, State) ->
	{reply, {binary, Data}, State};
websocket_handle(_, State) ->
	{ok, State}.

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