yangtse: curl-www/auto summarize.pl,1.59,1.60 update.pl,1.4,1.5
[email protected] Thu, 01 Oct 2009 13:25:37 +0000
| Newsgroups | gmane.comp.web.curl.www.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/curl/curl-www/auto
In directory giant.haxx.se:/var/tmp/cvs-serv5272/auto
Modified Files:
summarize.pl update.pl
Log Message:
More selective specification of the daily build log file name
Index: update.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/update.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- update.pl 25 Sep 2009 14:10:38 -0000 1.4
+++ update.pl 1 Oct 2009 13:25:35 -0000 1.5
@@ -1,7 +1,7 @@
#!/usr/bin/perl
opendir(DIR, "inbox");
-my @logs = grep { /^inbox/ } readdir(DIR);
+my @logs = grep { /^inbox.*log$/ } readdir(DIR);
closedir DIR;
map {$logfile{$_}="p";} (@logs);
@@ -46,7 +46,7 @@
system('find inbox -mtime +15 -exec rm {} \;');
# build md5 checksum file
- system("md5sum inbox/inbox* > md5");
+ system("md5sum inbox/inbox*log > md5");
# build the summary
system("nice ./summarize.pl");
Index: summarize.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/summarize.pl,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- summarize.pl 17 Jul 2009 04:19:15 -0000 1.59
+++ summarize.pl 1 Oct 2009 13:25:35 -0000 1.60
@@ -7,7 +7,7 @@
require "ccwarn.pm";
opendir(DIR, "inbox");
-my @logs = grep { /^inbox/ } readdir(DIR);
+my @logs = grep { /^inbox.*log$/ } readdir(DIR);
closedir(DIR);
my $prefix ="table";