You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by sp...@apache.org on 2021/08/03 08:30:55 UTC
svn commit: r1891974 - in /spamassassin/tags/sa-update_3.4.4_20210803083053:
./ masses/rule-qa/reports-from-logs
Author: spamassassin_role
Date: Tue Aug 3 08:30:55 2021
New Revision: 1891974
URL: http://svn.apache.org/viewvc?rev=1891974&view=rev
Log:
promotions validated
Added:
spamassassin/tags/sa-update_3.4.4_20210803083053/
- copied from r1891973, spamassassin/trunk/
Modified:
spamassassin/tags/sa-update_3.4.4_20210803083053/masses/rule-qa/reports-from-logs
Modified: spamassassin/tags/sa-update_3.4.4_20210803083053/masses/rule-qa/reports-from-logs
URL: http://svn.apache.org/viewvc/spamassassin/tags/sa-update_3.4.4_20210803083053/masses/rule-qa/reports-from-logs?rev=1891974&r1=1891973&r2=1891974&view=diff
==============================================================================
--- spamassassin/tags/sa-update_3.4.4_20210803083053/masses/rule-qa/reports-from-logs (original)
+++ spamassassin/tags/sa-update_3.4.4_20210803083053/masses/rule-qa/reports-from-logs Tue Aug 3 08:30:55 2021
@@ -111,14 +111,20 @@ sub locate_input {
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 !~ /^#/;