bagder: curl-www/dl remcheck.pl,1.16,1.17

Update of /cvsroot/curl/curl-www/dl
In directory labb:/tmp/cvs-serv26839

Modified Files:
	remcheck.pl 
Log Message:
the regex miss stuff, and increased -z time to 6 weeks


Index: remcheck.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/dl/remcheck.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- remcheck.pl	25 May 2005 11:11:20 -0000	1.16
+++ remcheck.pl	24 Jun 2005 21:27:05 -0000	1.17
@@ -132,8 +132,8 @@
     if(!$head) {
         my $t = time();
     
-        # two weeks ago
-        $t -= (24*3600)*14;
+        # six weeks ago
+        $t -= (24*3600)*7*6;
 
         my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
             gmtime($t);
@@ -163,6 +163,7 @@
     return @content;
 }
 
+my $regexmisses=0;
 my $update=0;
 my $uptodate=0;
 my $missing=0;
@@ -303,7 +304,10 @@
                     last;
                 }
             }
-            logmsg " NO line matched the regex!\n" if(!$match);
+            if(!$match) {
+                $regexmisses++;
+                logmsg "<div class=\"buildfail\">NO line matched the regex!</div>\n";
+            }
         }
         else {
             # since there's no regex, just do a head request to verify the
@@ -312,7 +316,7 @@
 
             # store version as of now
             my $ver = $version;
-            my $cl, $st;
+            my ($cl, $st);
 
             ($cl, $st) = content_length(@data);
 
@@ -389,6 +393,7 @@
 logmsg "$failedcheck packages failed to get checked\n";
 logmsg "$localpackage packages are local and taken care of differently\n";
 logmsg "$oldies checks were skipped due to old release number\n";
+logmsg "$regexmisses regexes didn't match on successful URL fetches\n";
 
 if($missing) {
     logmsg "$missing listed packages lacked autocheck URL\n";

_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits