danf: curl-www/dl remcheck.pl,1.22,1.23
[email protected] Fri, 06 Feb 2009 19:51:22 +0000
| Newsgroups | gmane.comp.web.curl.www.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/curl/curl-www/dl
In directory labb:/tmp/cvs-serv9981
Modified Files:
remcheck.pl
Log Message:
Use --ftp-method singlecwd for more efficient ftp transfers
Index: remcheck.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/remcheck.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- remcheck.pl 21 Mar 2007 18:44:13 -0000 1.22
+++ remcheck.pl 6 Feb 2009 19:51:20 -0000 1.23
@@ -127,7 +127,7 @@
my %urlhash;
sub geturl {
my ($url, $head) = @_;
- my $curlcmd="curl -Lfsm120";
+ my $curlcmd="curl -Lfsm120 --ftp-method singlecwd";
if(!$head) {
my $t = time();
@@ -230,7 +230,9 @@
# package check in a random matter
my $r = rand(100);
- # 20% continue rate
+ # 20% continue rate. This gives a 79% chance that it will be
+ # checked at least every week (when run once a day), and a 99.9%
+ # chance that it will be checked at least once every month.
my $skip = ($r > 20);
logmsg sprintf(" Not a recent version, %s\n",
$skip?"SKIP":"but check anyway");