From a0a94d830c5aac69edff2cec23b901157e3e76a4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Sun, 16 Aug 2015 16:51:09 +0200 Subject: Include user headers in HTTP/1 requests Oops! Thanks everyone who reported/submitted patches. --- src/gun_http.erl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/gun_http.erl b/src/gun_http.erl index c075af2..12fb83c 100644 --- a/src/gun_http.erl +++ b/src/gun_http.erl @@ -390,11 +390,12 @@ ws_upgrade(#http_state{version='HTTP/1.0'}, _, _, _, _, _, _) -> error; %% @todo ws_upgrade(State=#http_state{socket=Socket, transport=Transport, out=head}, StreamRef, Host, Port, Path, Headers, WsOpts) -> - %% @todo Add option for setting protocol. - {ExtHeaders, GunExtensions} = case maps:get(compress, WsOpts, false) of - true -> {[{<<"sec-websocket-extensions">>, <<"permessage-deflate; client_max_window_bits; server_max_window_bits=15">>}], + {Headers1, GunExtensions} = case maps:get(compress, WsOpts, false) of + true -> {[{<<"sec-websocket-extensions">>, + <<"permessage-deflate; client_max_window_bits; server_max_window_bits=15">>} + |Headers], [<<"permessage-deflate">>]}; - false -> {[], []} + false -> {Headers, []} end, Key = cow_ws:key(), Headers2 = [ @@ -402,7 +403,7 @@ ws_upgrade(State=#http_state{socket=Socket, transport=Transport, out=head}, {<<"upgrade">>, <<"websocket">>}, {<<"sec-websocket-version">>, <<"13">>}, {<<"sec-websocket-key">>, Key} - |ExtHeaders + |Headers1 ], IsSecure = Transport:secure(), Headers3 = case lists:keymember(<<"host">>, 1, Headers) of -- cgit v1.2.3