commit 5ec8fdc20fa686432f6a5563f2c0aa6cf873ce2e
author spamassassin_role <spamassassin_role@unknown> Tue Feb 23 08:30:45 2021 +0000
committer spamassassin_role <spamassassin_role@unknown> Tue Feb 23 08:30:45 2021 +0000
tree f275adaf8dd7b867647ad2737de4dbfd2082ed69
parent 347e4ed9292b2d5160e56d75a422bfe428cd2f73

promotions validated

git-svn-id: https://svn.apache.org/repos/asf/spamassassin/tags/sa-update_3.4.4_20210223083043@1886822 13f79535-47bb-0310-9956-ffa450edef68

masses/rule-qa/reports-from-logs

diff --git a/masses/rule-qa/reports-from-logs b/masses/rule-qa/reports-from-logs
index c2a2a5c..32581a9 100755
--- a/masses/rule-qa/reports-from-logs
+++ b/masses/rule-qa/reports-from-logs
@@ -111,14 +111,20 @@
   my @files = sort readdir(CORPUS);
   closedir(CORPUS);
 
+  warn "found ", $#files + 1, " files in $logsdir";
+
   @files = grep {
     /^(?:spam|ham)-(?:net-)?\S+\.log$/ && -f "$logsdir/$_" && -M _ < 10 
   } @files;
 
+  warn "kept ", $#files + 1, " files";
+
   foreach my $file (@files) {
     my $tag = 0;
     my $headers = '';
 
+    warn "processing $logsdir/$file";
+
     open(FILE, "$logsdir/$file") or warn "cannot read $logsdir/$file";
     while (my $line = <FILE>) {
       last if $line !~ /^#/;