67 lines
2.5 KiB
Erlang
67 lines
2.5 KiB
Erlang
%%% ----------------------------------------------------------------------------
|
|
%%% Copyright (c) 2009, Erlang Training and Consulting Ltd.
|
|
%%% All rights reserved.
|
|
%%%
|
|
%%% Redistribution and use in source and binary forms, with or without
|
|
%%% modification, are permitted provided that the following conditions are met:
|
|
%%% * Redistributions of source code must retain the above copyright
|
|
%%% notice, this list of conditions and the following disclaimer.
|
|
%%% * Redistributions in binary form must reproduce the above copyright
|
|
%%% notice, this list of conditions and the following disclaimer in the
|
|
%%% documentation and/or other materials provided with the distribution.
|
|
%%% * Neither the name of Erlang Training and Consulting Ltd. nor the
|
|
%%% names of its contributors may be used to endorse or promote products
|
|
%%% derived from this software without specific prior written permission.
|
|
%%%
|
|
%%% THIS SOFTWARE IS PROVIDED BY Erlang Training and Consulting Ltd. ''AS IS''
|
|
%%% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
%%% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
%%% ARE DISCLAIMED. IN NO EVENT SHALL Erlang Training and Consulting Ltd. BE
|
|
%%% LIABLE SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
|
|
%%% BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
|
%%% WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
|
%%% OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
|
|
%%% ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
%%% ----------------------------------------------------------------------------
|
|
|
|
-record(fusco_url, {
|
|
host :: string(),
|
|
port :: integer(),
|
|
path :: string(),
|
|
is_ssl:: boolean(),
|
|
user = "" :: string(),
|
|
password = "" :: string()
|
|
}).
|
|
|
|
-record(fusco_cookie, {
|
|
name :: binary(),
|
|
value :: binary(),
|
|
expires :: {{integer(), integer(), integer()},
|
|
{integer(), integer(), integer()}} | atom(),
|
|
path :: binary(),
|
|
path_tokens :: [binary()],
|
|
max_age :: integer() | atom(),
|
|
domain :: binary()
|
|
}).
|
|
|
|
-record(response, {socket,
|
|
ssl,
|
|
version,
|
|
status_code,
|
|
reason,
|
|
headers = [],
|
|
connection,
|
|
cookies = [],
|
|
content_length = 0,
|
|
size,
|
|
in_timestamp,
|
|
transfer_encoding,
|
|
body}).
|
|
|
|
-ifdef(no_binary_to_integer).
|
|
|
|
-import(fusco_binary, [binary_to_integer/1,
|
|
integer_to_binary/1]).
|
|
|
|
-endif.
|