From 201c53cb9f8217d497fb7acae2fa7d64f04f4022 Mon Sep 17 00:00:00 2001
From: YAMAMOTO Takashi <yamt@mwd.biglobe.ne.jp>
Date: Sun, 25 Aug 2013 02:11:49 +0900
Subject: make cowboy_client:request() allow to override Host header
this will be used by tests
---
src/cowboy_client.erl | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
(limited to 'src')
diff --git a/src/cowboy_client.erl b/src/cowboy_client.erl
index b5f96b3..10aaa9c 100644
--- a/src/cowboy_client.erl
+++ b/src/cowboy_client.erl
@@ -93,16 +93,19 @@ request(Method, URL, Headers, Body, Client=#client{
end,
VersionBin = atom_to_binary(Version, latin1),
%% @todo do keepalive too, allow override...
- Headers2 = [
- {<<"host">>, FullHost},
+ Headers2 = case lists:keyfind(<<"host">>, 1, Headers) of
+ false -> [{<<"host">>, FullHost}|Headers];
+ _ -> Headers
+ end,
+ Headers3 = [
{<<"user-agent">>, <<"Cow">>}
- |Headers],
- Headers3 = case iolist_size(Body) of
- 0 -> Headers2;
- Length -> [{<<"content-length">>, integer_to_list(Length)}|Headers2]
+ |Headers2],
+ Headers4 = case iolist_size(Body) of
+ 0 -> Headers3;
+ Length -> [{<<"content-length">>, integer_to_list(Length)}|Headers3]
end,
HeadersData = [[Name, <<": ">>, Value, <<"\r\n">>]
- || {Name, Value} <- Headers3],
+ || {Name, Value} <- Headers4],
Data = [Method, <<" ">>, Path, <<" ">>, VersionBin, <<"\r\n">>,
HeadersData, <<"\r\n">>, Body],
raw_request(Data, Client2).
--
cgit v1.2.3