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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
%%% This code was developped by IDEALX (http://IDEALX.org/) and
%%% contributors (their names can be found in the CONTRIBUTORS file).
%%% Copyright (C) 2000-2001 IDEALX
%%%
%%% This program is free software; you can redistribute it and/or modify
%%% it under the terms of the GNU General Public License as published by
%%% the Free Software Foundation; either version 2 of the License, or
%%% (at your option) any later version.
%%%
%%% This program is distributed in the hope that it will be useful,
%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%%% GNU General Public License for more details.
%%%
%%% You should have received a copy of the GNU General Public License
%%% along with this program; if not, write to the Free Software
%%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
%%%
%%% In addition, as a special exception, you have the permission to
%%% link the code of this program with any library released under
%%% the EPL license and distribute linked combinations including
%%% the two; the MPL (Mozilla Public License), which EPL (Erlang
%%% Public License) is based on, is included in this exception.
-vc('$Id$ ').
-author('nicolas.niclausse@niclux.org').
%% use by the client to create the request
-record(http_request, {
url,
version="1.1", % default is HTTP/1.1
host_header, % use for the 'Host:' header
get_ims_date, % used when the method is getims
cookie = [],
method = get,
content_type = [],
headers = [],
body = [],
id = 0,
user_agent,
oauth_consumer,
oauth_access_token,
oauth_access_secret,
oauth_url,
userid, % for www_authentication
passwd, % for www_authentication
auth_type,
digest_nonce,
digest_opaque,
digest_cnonce,
digest_nc,
digest_qop,
realm,
soap_action, % for SOAP support
tag, % for tagged requests
use_proxy = false
}).
-record(url,
{scheme, %% http, https, ...
host,
port, %% undefined means use default (80 or 443)
path = [],
querypart = []}).
%% use by the client process to store information about the current request during
%% the parsing of the response, and for the whole session (user_agent and cookies)
-record(http, {content_length= 0, % HTTP header: content length
body_size = 0, % current size of body,
chunk_toread = -1, % chunk data to be read (-1 = not chunked, -2 = not chunked, but last response was)
status = {none,none}, % HTTP resp. status :200, etc. 'none'
% if no current cnx.
close = false, % true if HTTP/1.0 or 'connection: close'
% has been received
partial=false, % true if headers are partially received
compressed={false,false}, % type of compression if body is compressed
cookie=[], %cookies of the current request
user_agent,
session_cookies = [] % Cookies of the session
}).
-record(cookie,{
key,
value,
quoted,
comment,
comment_url,
discard,
domain,
max_age,
expires,
path,
port,
secure,
version}).
%% HTTP Protocol
-define(GET, "GET").
-define(POST, "POST").
-define(PUT, "PUT").
-define(HEAD, "HEAD").
-define(DELETE, "DELETE").
-define(OPTIONS, "OPTIONS").
-define(PATCH, "PATCH").
-define(BODY_PARAM, "application/x-www-form-urlencoded").
-define(USER_AGENT, "Tsung").
-define(USER_AGENT_ERROR_MSG, "Total sum of user agents frequency is not equal to 100").
-define(MAX_HEADER_SIZE, 65536). % used for http_chunk:decode
|
