ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-HTTP/HTTP.pm
(Generate patch)

Comparing AnyEvent-HTTP/HTTP.pm (file contents):
Revision 1.135 by root, Mon Sep 10 07:03:12 2018 UTC vs.
Revision 1.138 by root, Fri Aug 5 20:45:09 2022 UTC

… …
46use AnyEvent::Util (); 46use AnyEvent::Util ();
47use AnyEvent::Handle (); 47use AnyEvent::Handle ();
48 48
49use base Exporter::; 49use base Exporter::;
50 50
51our $VERSION = 2.24; 51our $VERSION = 2.25;
52 52
53our @EXPORT = qw(http_get http_post http_head http_request); 53our @EXPORT = qw(http_get http_post http_head http_request);
54 54
55our $USERAGENT = "Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)"; 55our $USERAGENT = "Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)";
56our $MAX_RECURSE = 10; 56our $MAX_RECURSE = 10;
… …
200Currently, if your proxy requires authorization, you have to specify an 200Currently, if your proxy requires authorization, you have to specify an
201appropriate "Proxy-Authorization" header in every request. 201appropriate "Proxy-Authorization" header in every request.
202 202
203Note that this module will prefer an existing persistent connection, 203Note that this module will prefer an existing persistent connection,
204even if that connection was made using another proxy. If you need to 204even if that connection was made using another proxy. If you need to
205ensure that a new conneciton is made in this case, you can either force 205ensure that a new connection is made in this case, you can either force
206C<persistent> to false or e.g. use the proxy address in your C<sessionid>. 206C<persistent> to false or e.g. use the proxy address in your C<sessionid>.
207 207
208=item body => $string 208=item body => $string
209 209
210The request body, usually empty. Will be sent as-is (future versions of 210The request body, usually empty. Will be sent as-is (future versions of
… …
272to do this, but you can provide your own C<tcp_connect> function - 272to do this, but you can provide your own C<tcp_connect> function -
273obviously, it has to follow the same calling conventions, except that it 273obviously, it has to follow the same calling conventions, except that it
274may always return a connection guard object. 274may always return a connection guard object.
275 275
276The connections made by this hook will be treated as equivalent to 276The connections made by this hook will be treated as equivalent to
277connecitons made the built-in way, specifically, they will be put into 277connections made the built-in way, specifically, they will be put into
278and taken from the persistent conneciton cache. If your C<$tcp_connect> 278and taken from the persistent connection cache. If your C<$tcp_connect>
279function is incompatible with this kind of re-use, consider switching off 279function is incompatible with this kind of re-use, consider switching off
280C<persistent> connections and/or providing a C<sessionid> identifier. 280C<persistent> connections and/or providing a C<sessionid> identifier.
281 281
282There are probably lots of weird uses for this function, starting from 282There are probably lots of weird uses for this function, starting from
283tracing the hosts C<http_request> actually tries to connect, to (inexact 283tracing the hosts C<http_request> actually tries to connect, to (inexact
… …
716} 716}
717 717
718our %IDEMPOTENT = ( 718our %IDEMPOTENT = (
719 DELETE => 1, 719 DELETE => 1,
720 GET => 1, 720 GET => 1,
721 QUERY => 1,
721 HEAD => 1, 722 HEAD => 1,
722 OPTIONS => 1, 723 OPTIONS => 1,
723 PUT => 1, 724 PUT => 1,
724 TRACE => 1, 725 TRACE => 1,
725 726
… …
1238# $state{handle}->destroyed 1239# $state{handle}->destroyed
1239# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d# 1240# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d#
1240 $prepare_handle->(); 1241 $prepare_handle->();
1241# $state{handle}->destroyed 1242# $state{handle}->destroyed
1242# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d# 1243# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d#
1244 $rpath = $upath;
1243 $handle_actual_request->(); 1245 $handle_actual_request->();
1244 1246
1245 } else { 1247 } else {
1246 my $tcp_connect = $arg{tcp_connect} 1248 my $tcp_connect = $arg{tcp_connect}
1247 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect }; 1249 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect };

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines