promotions validated
git-svn-id: https://svn.apache.org/repos/asf/spamassassin/tags/sa-update_3.4.4_20211007083055@1893959 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/masses/rule-qa/reports-from-logs b/masses/rule-qa/reports-from-logs
index 92a470a..f86a6c6 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 !~ /^#/;