diff options
| author | Bram Verburg <[email protected]> | 2017-03-17 10:35:49 +0200 |
|---|---|---|
| committer | Bram Verburg <[email protected]> | 2017-03-17 10:35:49 +0200 |
| commit | a13e73d70d2af0a686701a3c8b16b82b664abd19 (patch) | |
| tree | eb65fc99bdcef423cbdb41c818d6fccfd52ccc47 /lib/inets/src/http_lib/http_request.erl | |
| parent | a748cafdc7063d9f181ba12088db6458793ced2f (diff) | |
| download | otp-a13e73d70d2af0a686701a3c8b16b82b664abd19.tar.gz otp-a13e73d70d2af0a686701a3c8b16b82b664abd19.tar.bz2 otp-a13e73d70d2af0a686701a3c8b16b82b664abd19.zip | |
Omit port from Host header on redirect to well-known port
ERL-316, as part of 19.3, adds the port number to the Host header
upon automatic redirection. The port number is included even if it
is a well-known port (80, 443). This is different from the
behaviour of most HTTP clients, as well as httpc's own for new
requests.
The added port number can lead to problems such as this one, where
the request signature assumes the client will not send the :443
suffix on redirection to an https URL:
https://github.com/nerves-project/nerves/issues/96
I was unable to add a test case, since that would require a server
on a well-known port, but I manually verified that the GitHub/S3
signing issue was indeed resolved with this patch.
Diffstat (limited to 'lib/inets/src/http_lib/http_request.erl')
| -rw-r--r-- | lib/inets/src/http_lib/http_request.erl | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/inets/src/http_lib/http_request.erl b/lib/inets/src/http_lib/http_request.erl index c77b616f0d..4c50edb5ef 100644 --- a/lib/inets/src/http_lib/http_request.erl +++ b/lib/inets/src/http_lib/http_request.erl @@ -22,7 +22,7 @@ -include("http_internal.hrl"). --export([headers/2, http_headers/1, is_absolut_uri/1, key_value/1]). +-export([headers/2, http_headers/1, is_absolut_uri/1, key_value/1, normalize_host/3]). key_value(KeyValueStr) -> @@ -85,6 +85,22 @@ is_absolut_uri("https://" ++ _) -> is_absolut_uri(_) -> false. +%%------------------------------------------------------------------------- +%% normalize_host(Scheme, Host, Port) -> string() +%% Scheme - http | https +%% Host - string() +%% Port - integer() +%% +%% Description: returns a normalized Host header value, with the port +%% number omitted for well-known ports +%%------------------------------------------------------------------------- +normalize_host(https, Host, 443 = _Port) -> + Host; +normalize_host(http, Host, 80 = _Port) -> + Host; +normalize_host(_Scheme, Host, Port) -> + Host ++ ":" ++ integer_to_list(Port). + %%%======================================================================== %%% Internal functions %%%======================================================================== |