… | |
… | |
713 | |
713 | |
714 | my $proxy = $arg{proxy} || $PROXY; |
714 | my $proxy = $arg{proxy} || $PROXY; |
715 | my $timeout = $arg{timeout} || $TIMEOUT; |
715 | my $timeout = $arg{timeout} || $TIMEOUT; |
716 | |
716 | |
717 | my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment |
717 | my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment |
718 | $url =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?|; |
718 | $url =~ m|^([^:/?#]+):(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?$|; |
719 | |
719 | |
720 | $uscheme = lc $uscheme; |
720 | $uscheme = lc $uscheme; |
721 | |
721 | |
722 | my $uport = $uscheme eq "http" ? 80 |
722 | my $uport = $uscheme eq "http" ? 80 |
723 | : $uscheme eq "https" ? 443 |
723 | : $uscheme eq "https" ? 443 |
… | |
… | |
1333 | snippets. |
1333 | snippets. |
1334 | |
1334 | |
1335 | =head2 HTTP/1.1 FILE DOWNLOAD |
1335 | =head2 HTTP/1.1 FILE DOWNLOAD |
1336 | |
1336 | |
1337 | Downloading files with HTTP can be quite tricky, especially when something |
1337 | Downloading files with HTTP can be quite tricky, especially when something |
1338 | goes wrong and you want tor esume. |
1338 | goes wrong and you want to resume. |
1339 | |
1339 | |
1340 | Here is a function that initiates and resumes a download. It uses the |
1340 | Here is a function that initiates and resumes a download. It uses the |
1341 | last modified time to check for file content changes, and works with many |
1341 | last modified time to check for file content changes, and works with many |
1342 | HTTP/1.0 servers as well, and usually falls back to a complete re-download |
1342 | HTTP/1.0 servers as well, and usually falls back to a complete re-download |
1343 | on older servers. |
1343 | on older servers. |