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/11/01 08:31:01 UTC
svn commit: r1894651 - in /spamassassin/tags/sa-update_3.4.4_20211101083059:
./ masses/rule-qa/reports-from-logs
Author: spamassassin_role
Date: Mon Nov 1 08:31:01 2021
New Revision: 1894651
URL: http://svn.apache.org/viewvc?rev=1894651&view=rev
Log:
promotions validated
Added:
spamassassin/tags/sa-update_3.4.4_20211101083059/
- copied from r1894650, spamassassin/trunk/
Modified:
spamassassin/tags/sa-update_3.4.4_20211101083059/masses/rule-qa/reports-from-logs
Modified: spamassassin/tags/sa-update_3.4.4_20211101083059/masses/rule-qa/reports-from-logs
URL: http://svn.apache.org/viewvc/spamassassin/tags/sa-update_3.4.4_20211101083059/masses/rule-qa/reports-from-logs?rev=1894651&r1=1894650&r2=1894651&view=diff
==============================================================================
--- spamassassin/tags/sa-update_3.4.4_20211101083059/masses/rule-qa/reports-from-logs (original)
+++ spamassassin/tags/sa-update_3.4.4_20211101083059/masses/rule-qa/reports-from-logs Mon Nov 1 08:31:01 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 !~ /^#/;