svn commit: r776340 - /spamassassin/trunk/masses/rule-qa/reports-from-logs

[jm...@apache.org]

Author: jm
Date: Tue May 19 14:48:45 2009
New Revision: 776340

URL: http://svn.apache.org/viewvc?rev=776340&view=rev
Log:
gen reports backwards; newer stuff is more relevant

Modified:
    spamassassin/trunk/masses/rule-qa/reports-from-logs

Modified: spamassassin/trunk/masses/rule-qa/reports-from-logs
URL: http://svn.apache.org/viewvc/spamassassin/trunk/masses/rule-qa/reports-from-logs?rev=776340&r1=776339&r2=776340&view=diff
==============================================================================
--- spamassassin/trunk/masses/rule-qa/reports-from-logs (original)
+++ spamassassin/trunk/masses/rule-qa/reports-from-logs Tue May 19 14:48:45 2009
@@ -57,8 +57,8 @@
 my $logsdir = "$cf{html}/logs";
 print "reading logs from '$logsdir'\n";
 
-locate();
-current();
+locate_input();
+generate_logs();
 clean_up();
 exit;
 
@@ -96,7 +96,7 @@
   $ENV{TZ} = 'UTC';
 }
 
-sub locate {
+sub locate_input {
   opendir(CORPUS, $logsdir);
   my @files = sort readdir(CORPUS);
   closedir(CORPUS);
@@ -198,7 +198,7 @@
 }
 
 
-sub current {
+sub generate_logs {
   my $classes = $cf{output_classes};
   $classes ||= "DETAILS.new DETAILS.all DETAILS.age NET.new NET.all NET.age";
 
@@ -209,7 +209,7 @@
     if (!$rtype) { warn "no rtype in $entry"; next; }
     if ($class eq 'HTML') { warn "class HTML in $entry obsolete, ignored"; next; }
 
-    foreach my $daterev (sort keys %logs_by_daterev) {
+    foreach my $daterev (reverse sort keys %logs_by_daterev) {
       my $rev;
       if ($daterev !~ /\/r(\d+)/) {
         warn "bad daterev: $daterev"; next;