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.103 by root, Thu Feb 24 12:13:11 2011 UTC vs.
Revision 1.120 by root, Sun Jun 8 23:36:36 2014 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.1'; 51our $VERSION = 2.21;
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;
… …
89C<http_request> returns a "cancellation guard" - you have to keep the 89C<http_request> returns a "cancellation guard" - you have to keep the
90object at least alive until the callback get called. If the object gets 90object at least alive until the callback get called. If the object gets
91destroyed before the callback is called, the request will be cancelled. 91destroyed before the callback is called, the request will be cancelled.
92 92
93The callback will be called with the response body data as first argument 93The callback will be called with the response body data as first argument
94(or C<undef> if an error occured), and a hash-ref with response headers 94(or C<undef> if an error occurred), and a hash-ref with response headers
95(and trailers) as second argument. 95(and trailers) as second argument.
96 96
97All the headers in that hash are lowercased. In addition to the response 97All the headers in that hash are lowercased. In addition to the response
98headers, the "pseudo-headers" (uppercase to avoid clashing with possible 98headers, the "pseudo-headers" (uppercase to avoid clashing with possible
99response headers) C<HTTPVersion>, C<Status> and C<Reason> contain the 99response headers) C<HTTPVersion>, C<Status> and C<Reason> contain the
… …
123C<590>-C<599> and the C<Reason> pseudo-header will contain an error 123C<590>-C<599> and the C<Reason> pseudo-header will contain an error
124message. Currently the following status codes are used: 124message. Currently the following status codes are used:
125 125
126=over 4 126=over 4
127 127
128=item 595 - errors during connection etsbalishment, proxy handshake. 128=item 595 - errors during connection establishment, proxy handshake.
129 129
130=item 596 - errors during TLS negotiation, request sending and header processing. 130=item 596 - errors during TLS negotiation, request sending and header processing.
131 131
132=item 597 - errors during body receiving or processing. 132=item 597 - errors during body receiving or processing.
133 133
… …
154 154
155=over 4 155=over 4
156 156
157=item recurse => $count (default: $MAX_RECURSE) 157=item recurse => $count (default: $MAX_RECURSE)
158 158
159Whether to recurse requests or not, e.g. on redirects, authentication 159Whether to recurse requests or not, e.g. on redirects, authentication and
160retries and so on, and how often to do so. 160other retries and so on, and how often to do so.
161
162Only redirects to http and https URLs are supported. While most common
163redirection forms are handled entirely within this module, some require
164the use of the optional L<URI> module. If it is required but missing, then
165the request will fail with an error.
161 166
162=item headers => hashref 167=item headers => hashref
163 168
164The request headers to use. Currently, C<http_request> may provide its own 169The request headers to use. Currently, C<http_request> may provide its own
165C<Host:>, C<Content-Length:>, C<Connection:> and C<Cookie:> headers and 170C<Host:>, C<Content-Length:>, C<Connection:> and C<Cookie:> headers and
… …
168they won't be sent at all). 173they won't be sent at all).
169 174
170You really should provide your own C<User-Agent:> header value that is 175You really should provide your own C<User-Agent:> header value that is
171appropriate for your program - I wouldn't be surprised if the default 176appropriate for your program - I wouldn't be surprised if the default
172AnyEvent string gets blocked by webservers sooner or later. 177AnyEvent string gets blocked by webservers sooner or later.
178
179Also, make sure that your headers names and values do not contain any
180embedded newlines.
173 181
174=item timeout => $seconds 182=item timeout => $seconds
175 183
176The time-out to use for various stages - each connect attempt will reset 184The time-out to use for various stages - each connect attempt will reset
177the timeout, as will read or write activity, i.e. this is not an overall 185the timeout, as will read or write activity, i.e. this is not an overall
… …
239context) - only connections using the same unique ID will be reused. 247context) - only connections using the same unique ID will be reused.
240 248
241=item on_prepare => $callback->($fh) 249=item on_prepare => $callback->($fh)
242 250
243In rare cases you need to "tune" the socket before it is used to 251In rare cases you need to "tune" the socket before it is used to
244connect (for exmaple, to bind it on a given IP address). This parameter 252connect (for example, to bind it on a given IP address). This parameter
245overrides the prepare callback passed to C<AnyEvent::Socket::tcp_connect> 253overrides the prepare callback passed to C<AnyEvent::Socket::tcp_connect>
246and behaves exactly the same way (e.g. it has to provide a 254and behaves exactly the same way (e.g. it has to provide a
247timeout). See the description for the C<$prepare_cb> argument of 255timeout). See the description for the C<$prepare_cb> argument of
248C<AnyEvent::Socket::tcp_connect> for details. 256C<AnyEvent::Socket::tcp_connect> for details.
249 257
… …
381 389
382Example: do a HTTP HEAD request on https://www.google.com/, use a 390Example: do a HTTP HEAD request on https://www.google.com/, use a
383timeout of 30 seconds. 391timeout of 30 seconds.
384 392
385 http_request 393 http_request
386 GET => "https://www.google.com", 394 HEAD => "https://www.google.com",
387 headers => { "user-agent" => "MySearchClient 1.0" }, 395 headers => { "user-agent" => "MySearchClient 1.0" },
388 timeout => 30, 396 timeout => 30,
389 sub { 397 sub {
390 my ($body, $hdr) = @_; 398 my ($body, $hdr) = @_;
391 use Data::Dumper; 399 use Data::Dumper;
… …
686 694
687 $cb->(undef, $hdr); 695 $cb->(undef, $hdr);
688 () 696 ()
689} 697}
690 698
699our %IDEMPOTENT = (
700 DELETE => 1,
701 GET => 1,
702 HEAD => 1,
703 OPTIONS => 1,
704 PUT => 1,
705 TRACE => 1,
706
707 ACL => 1,
708 "BASELINE-CONTROL" => 1,
709 BIND => 1,
710 CHECKIN => 1,
711 CHECKOUT => 1,
712 COPY => 1,
713 LABEL => 1,
714 LINK => 1,
715 MERGE => 1,
716 MKACTIVITY => 1,
717 MKCALENDAR => 1,
718 MKCOL => 1,
719 MKREDIRECTREF => 1,
720 MKWORKSPACE => 1,
721 MOVE => 1,
722 ORDERPATCH => 1,
723 PROPFIND => 1,
724 PROPPATCH => 1,
725 REBIND => 1,
726 REPORT => 1,
727 SEARCH => 1,
728 UNBIND => 1,
729 UNCHECKOUT => 1,
730 UNLINK => 1,
731 UNLOCK => 1,
732 UPDATE => 1,
733 UPDATEREDIRECTREF => 1,
734 "VERSION-CONTROL" => 1,
735);
736
691sub http_request($$@) { 737sub http_request($$@) {
692 my $cb = pop; 738 my $cb = pop;
693 my ($method, $url, %arg) = @_; 739 my ($method, $url, %arg) = @_;
694 740
695 my %hdr; 741 my %hdr;
… …
770 $hdr{"user-agent"} = $USERAGENT unless exists $hdr{"user-agent"}; 816 $hdr{"user-agent"} = $USERAGENT unless exists $hdr{"user-agent"};
771 817
772 $hdr{"content-length"} = length $arg{body} 818 $hdr{"content-length"} = length $arg{body}
773 if length $arg{body} || $method ne "GET"; 819 if length $arg{body} || $method ne "GET";
774 820
775 my $idempotent = $method =~ /^(?:GET|HEAD|PUT|DELETE|OPTIONS|TRACE)$/; 821 my $idempotent = $IDEMPOTENT{$method};
776 822
777 # default value for keepalive is true iff the request is for an idempotent method 823 # default value for keepalive is true iff the request is for an idempotent method
778 my $persistent = exists $arg{persistent} ? !!$arg{persistent} : $idempotent; 824 my $persistent = exists $arg{persistent} ? !!$arg{persistent} : $idempotent;
779 my $keepalive = exists $arg{keepalive} ? !!$arg{keepalive} : !$proxy; 825 my $keepalive = exists $arg{keepalive} ? !!$arg{keepalive} : !$proxy;
780 my $was_persistent; # true if this is actually a recycled connection 826 my $was_persistent; # true if this is actually a recycled connection
781 827
782 # the key to use in the keepalive cache 828 # the key to use in the keepalive cache
783 my $ka_key = "$uhost\x00$arg{sessionid}"; 829 my $ka_key = "$uscheme\x00$uhost\x00$uport\x00$arg{sessionid}";
784 830
785 $hdr{connection} = ($persistent ? $keepalive ? "keep-alive " : "" : "close ") . "Te"; #1.1 831 $hdr{connection} = ($persistent ? $keepalive ? "keep-alive, " : "" : "close, ") . "Te"; #1.1
786 $hdr{te} = "trailers" unless exists $hdr{te}; #1.1 832 $hdr{te} = "trailers" unless exists $hdr{te}; #1.1
787 833
788 my %state = (connect_guard => 1); 834 my %state = (connect_guard => 1);
789 835
790 my $ae_error = 595; # connecting 836 my $ae_error = 595; # connecting
… …
800 # send request 846 # send request
801 $hdl->push_write ( 847 $hdl->push_write (
802 "$method $rpath HTTP/1.1\015\012" 848 "$method $rpath HTTP/1.1\015\012"
803 . (join "", map "\u$_: $hdr{$_}\015\012", grep defined $hdr{$_}, keys %hdr) 849 . (join "", map "\u$_: $hdr{$_}\015\012", grep defined $hdr{$_}, keys %hdr)
804 . "\015\012" 850 . "\015\012"
805 . (delete $arg{body}) 851 . $arg{body}
806 ); 852 );
807 853
808 # return if error occured during push_write() 854 # return if error occurred during push_write()
809 return unless %state; 855 return unless %state;
810 856
811 # reduce memory usage, save a kitten, also re-use it for the response headers. 857 # reduce memory usage, save a kitten, also re-use it for the response headers.
812 %hdr = (); 858 %hdr = ();
813 859
… …
840 886
841 %hdr = (%$hdr, @pseudo); 887 %hdr = (%$hdr, @pseudo);
842 } 888 }
843 889
844 # redirect handling 890 # redirect handling
845 # microsoft and other shitheads don't give a shit for following standards, 891 # relative uri handling forced by microsoft and other shitheads.
846 # try to support some common forms of broken Location headers. 892 # we give our best and fall back to URI if available.
847 if ($hdr{location} !~ /^(?: $ | [^:\/?\#]+ : )/x) { 893 if (exists $hdr{location}) {
894 my $loc = $hdr{location};
895
896 if ($loc =~ m%^//%) { # //
897 $loc = "$rscheme:$loc";
898
899 } elsif ($loc eq "") {
900 $loc = $url;
901
902 } elsif ($loc !~ /^(?: $ | [^:\/?\#]+ : )/x) { # anything "simple"
848 $hdr{location} =~ s/^\.\/+//; 903 $loc =~ s/^\.\/+//;
849 904
905 if ($loc !~ m%^[.?#]%) {
850 my $url = "$rscheme://$uhost:$uport"; 906 my $prefix = "$rscheme://$uhost:$uport";
851 907
852 unless ($hdr{location} =~ s/^\///) { 908 unless ($loc =~ s/^\///) {
853 $url .= $upath; 909 $prefix .= $upath;
854 $url =~ s/\/[^\/]*$//; 910 $prefix =~ s/\/[^\/]*$//;
911 }
912
913 $loc = "$prefix/$loc";
914
915 } elsif (eval { require URI }) { # uri
916 $loc = URI->new_abs ($loc, $url)->as_string;
917
918 } else {
919 return _error %state, $cb, { @pseudo, Status => 599, Reason => "Cannot parse Location (URI module missing)" };
920 #$hdr{Status} = 599;
921 #$hdr{Reason} = "Unparsable Redirect (URI module missing)";
922 #$recurse = 0;
923 }
855 } 924 }
856 925
857 $hdr{location} = "$url/$hdr{location}"; 926 $hdr{location} = $loc;
858 } 927 }
859 928
860 my $redirect; 929 my $redirect;
861 930
862 if ($recurse) { 931 if ($recurse) {
… …
864 933
865 # industry standard is to redirect POST as GET for 934 # industry standard is to redirect POST as GET for
866 # 301, 302 and 303, in contrast to HTTP/1.0 and 1.1. 935 # 301, 302 and 303, in contrast to HTTP/1.0 and 1.1.
867 # also, the UA should ask the user for 301 and 307 and POST, 936 # also, the UA should ask the user for 301 and 307 and POST,
868 # industry standard seems to be to simply follow. 937 # industry standard seems to be to simply follow.
869 # we go with the industry standard. 938 # we go with the industry standard. 308 is defined
939 # by rfc7238
870 if ($status == 301 or $status == 302 or $status == 303) { 940 if ($status == 301 or $status == 302 or $status == 303) {
871 # HTTP/1.1 is unclear on how to mutate the method 941 # HTTP/1.1 is unclear on how to mutate the method
872 $method = "GET" unless $method eq "HEAD"; 942 $method = "GET" unless $method eq "HEAD";
873 $redirect = 1; 943 $redirect = 1;
874 } elsif ($status == 307) { 944 } elsif ($status == 307 or $status == 308) {
875 $redirect = 1; 945 $redirect = 1;
876 } 946 }
877 } 947 }
878 948
879 my $finish = sub { # ($data, $err_status, $err_reason[, $persistent]) 949 my $finish = sub { # ($data, $err_status, $err_reason[, $persistent])
… …
959 my $body = ""; 1029 my $body = "";
960 my $on_body = $arg{on_body} || sub { $body .= shift; 1 }; 1030 my $on_body = $arg{on_body} || sub { $body .= shift; 1 };
961 1031
962 $state{read_chunk} = sub { 1032 $state{read_chunk} = sub {
963 $_[1] =~ /^([0-9a-fA-F]+)/ 1033 $_[1] =~ /^([0-9a-fA-F]+)/
964 or $finish->(undef, $ae_error => "Garbled chunked transfer encoding"); 1034 or return $finish->(undef, $ae_error => "Garbled chunked transfer encoding");
965 1035
966 my $len = hex $1; 1036 my $len = hex $1;
967 1037
968 if ($len) { 1038 if ($len) {
969 $cl += $len; 1039 $cl += $len;
… …
1047 _destroy_state %state; 1117 _destroy_state %state;
1048 1118
1049 %state = (); 1119 %state = ();
1050 $state{recurse} = 1120 $state{recurse} =
1051 http_request ( 1121 http_request (
1052 $method => $url, 1122 $method => $url,
1053 %arg, 1123 %arg,
1124 recurse => $recurse - 1,
1054 keepalive => 0, 1125 keepalive => 0,
1055 sub { 1126 sub {
1056 %state = (); 1127 %state = ();
1057 &$cb 1128 &$cb
1058 } 1129 }
… …
1135 if ($persistent && $KA_CACHE{$ka_key}) { 1206 if ($persistent && $KA_CACHE{$ka_key}) {
1136 $was_persistent = 1; 1207 $was_persistent = 1;
1137 1208
1138 $state{handle} = ka_fetch $ka_key; 1209 $state{handle} = ka_fetch $ka_key;
1139 $state{handle}->destroyed 1210 $state{handle}->destroyed
1140 and die "got a destructed habndle. pah\n";#d# 1211 and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d#
1141 $prepare_handle->(); 1212 $prepare_handle->();
1142 $state{handle}->destroyed 1213 $state{handle}->destroyed
1143 and die "got a destructed habndle. pa2\n";#d# 1214 and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d#
1144 $handle_actual_request->(); 1215 $handle_actual_request->();
1145 $state{handle}->destroyed
1146 and die "got a destructed habndle. pa3\n";#d#
1147 1216
1148 } else { 1217 } else {
1149 my $tcp_connect = $arg{tcp_connect} 1218 my $tcp_connect = $arg{tcp_connect}
1150 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect }; 1219 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect };
1151 1220
… …
1192Sets the default proxy server to use. The proxy-url must begin with a 1261Sets the default proxy server to use. The proxy-url must begin with a
1193string of the form C<http://host:port>, croaks otherwise. 1262string of the form C<http://host:port>, croaks otherwise.
1194 1263
1195To clear an already-set proxy, use C<undef>. 1264To clear an already-set proxy, use C<undef>.
1196 1265
1197When AnyEvent::HTTP is laoded for the first time it will query the 1266When AnyEvent::HTTP is loaded for the first time it will query the
1198default proxy from the operating system, currently by looking at 1267default proxy from the operating system, currently by looking at
1199C<$ENV{http_proxy>}. 1268C<$ENV{http_proxy>}.
1200 1269
1201=item AnyEvent::HTTP::cookie_jar_expire $jar[, $session_end] 1270=item AnyEvent::HTTP::cookie_jar_expire $jar[, $session_end]
1202 1271
… …
1204C<$session_end> is given and true, then additionally remove all session 1273C<$session_end> is given and true, then additionally remove all session
1205cookies. 1274cookies.
1206 1275
1207You should call this function (with a true C<$session_end>) before you 1276You should call this function (with a true C<$session_end>) before you
1208save cookies to disk, and you should call this function after loading them 1277save cookies to disk, and you should call this function after loading them
1209again. If you have a long-running program you can additonally call this 1278again. If you have a long-running program you can additionally call this
1210function from time to time. 1279function from time to time.
1211 1280
1212A cookie jar is initially an empty hash-reference that is managed by this 1281A cookie jar is initially an empty hash-reference that is managed by this
1213module. It's format is subject to change, but currently it is like this: 1282module. It's format is subject to change, but currently it is like this:
1214 1283
1215The key C<version> has to contain C<1>, otherwise the hash gets 1284The key C<version> has to contain C<1>, otherwise the hash gets
1216emptied. All other keys are hostnames or IP addresses pointing to 1285emptied. All other keys are hostnames or IP addresses pointing to
1217hash-references. The key for these inner hash references is the 1286hash-references. The key for these inner hash references is the
1218server path for which this cookie is meant, and the values are again 1287server path for which this cookie is meant, and the values are again
1219hash-references. The keys of those hash-references is the cookie name, and 1288hash-references. Each key of those hash-references is a cookie name, and
1220the value, you guessed it, is another hash-reference, this time with the 1289the value, you guessed it, is another hash-reference, this time with the
1221key-value pairs from the cookie, except for C<expires> and C<max-age>, 1290key-value pairs from the cookie, except for C<expires> and C<max-age>,
1222which have been replaced by a C<_expires> key that contains the cookie 1291which have been replaced by a C<_expires> key that contains the cookie
1223expiry timestamp. 1292expiry timestamp. Session cookies are indicated by not having an
1293C<_expires> key.
1224 1294
1225Here is an example of a cookie jar with a single cookie, so you have a 1295Here is an example of a cookie jar with a single cookie, so you have a
1226chance of understanding the above paragraph: 1296chance of understanding the above paragraph:
1227 1297
1228 { 1298 {
… …
1252 1322
1253The default value for the C<recurse> request parameter (default: C<10>). 1323The default value for the C<recurse> request parameter (default: C<10>).
1254 1324
1255=item $AnyEvent::HTTP::TIMEOUT 1325=item $AnyEvent::HTTP::TIMEOUT
1256 1326
1257The default timeout for conenction operations (default: C<300>). 1327The default timeout for connection operations (default: C<300>).
1258 1328
1259=item $AnyEvent::HTTP::USERAGENT 1329=item $AnyEvent::HTTP::USERAGENT
1260 1330
1261The default value for the C<User-Agent> header (the default is 1331The default value for the C<User-Agent> header (the default is
1262C<Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)>). 1332C<Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)>).
… …
1270 1340
1271The default value for this is C<4>, and it is highly advisable to not 1341The default value for this is C<4>, and it is highly advisable to not
1272increase it much. 1342increase it much.
1273 1343
1274For comparison: the RFC's recommend 4 non-persistent or 2 persistent 1344For comparison: the RFC's recommend 4 non-persistent or 2 persistent
1275connections, older browsers used 2, newers (such as firefox 3) typically 1345connections, older browsers used 2, newer ones (such as firefox 3)
1276use 6, and Opera uses 8 because like, they have the fastest browser and 1346typically use 6, and Opera uses 8 because like, they have the fastest
1277give a shit for everybody else on the planet. 1347browser and give a shit for everybody else on the planet.
1278 1348
1279=item $AnyEvent::HTTP::PERSISTENT_TIMEOUT 1349=item $AnyEvent::HTTP::PERSISTENT_TIMEOUT
1280 1350
1281The time after which idle persistent conenctions get closed by 1351The time after which idle persistent connections get closed by
1282AnyEvent::HTTP (default: C<3>). 1352AnyEvent::HTTP (default: C<3>).
1283 1353
1284=item $AnyEvent::HTTP::ACTIVE 1354=item $AnyEvent::HTTP::ACTIVE
1285 1355
1286The number of active connections. This is not the number of currently 1356The number of active connections. This is not the number of currently
… …
1327 # other formats fail in the loop below 1397 # other formats fail in the loop below
1328 1398
1329 for (0..11) { 1399 for (0..11) {
1330 if ($m eq $month[$_]) { 1400 if ($m eq $month[$_]) {
1331 require Time::Local; 1401 require Time::Local;
1332 return Time::Local::timegm ($S, $M, $H, $d, $_, $y); 1402 return eval { Time::Local::timegm ($S, $M, $H, $d, $_, $y) };
1333 } 1403 }
1334 } 1404 }
1335 1405
1336 undef 1406 undef
1337} 1407}
… …
1351 set_proxy $ENV{http_proxy}; 1421 set_proxy $ENV{http_proxy};
1352}; 1422};
1353 1423
1354=head2 SHOWCASE 1424=head2 SHOWCASE
1355 1425
1356This section contaisn some more elaborate "real-world" examples or code 1426This section contains some more elaborate "real-world" examples or code
1357snippets. 1427snippets.
1358 1428
1359=head2 HTTP/1.1 FILE DOWNLOAD 1429=head2 HTTP/1.1 FILE DOWNLOAD
1360 1430
1361Downloading files with HTTP can be quite tricky, especially when something 1431Downloading files with HTTP can be quite tricky, especially when something
… …
1365last modified time to check for file content changes, and works with many 1435last modified time to check for file content changes, and works with many
1366HTTP/1.0 servers as well, and usually falls back to a complete re-download 1436HTTP/1.0 servers as well, and usually falls back to a complete re-download
1367on older servers. 1437on older servers.
1368 1438
1369It calls the completion callback with either C<undef>, which means a 1439It calls the completion callback with either C<undef>, which means a
1370nonretryable error occured, C<0> when the download was partial and should 1440nonretryable error occurred, C<0> when the download was partial and should
1371be retried, and C<1> if it was successful. 1441be retried, and C<1> if it was successful.
1372 1442
1373 use AnyEvent::HTTP; 1443 use AnyEvent::HTTP;
1374 1444
1375 sub download($$$) { 1445 sub download($$$) {
… …
1383 1453
1384 warn stat $fh; 1454 warn stat $fh;
1385 warn -s _; 1455 warn -s _;
1386 if (stat $fh and -s _) { 1456 if (stat $fh and -s _) {
1387 $ofs = -s _; 1457 $ofs = -s _;
1388 warn "-s is ", $ofs;#d# 1458 warn "-s is ", $ofs;
1389 $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9]; 1459 $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9];
1390 $hdr{"range"} = "bytes=$ofs-"; 1460 $hdr{"range"} = "bytes=$ofs-";
1391 } 1461 }
1392 1462
1393 http_get $url, 1463 http_get $url,

Diff Legend

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