Mailing List Archive

svn commit: r1892399 - in /spamassassin/tags/sa-update_3.4.4_20210817083058: ./ masses/rule-qa/reports-from-logs
Author: spamassassin_role
Date: Tue Aug 17 08:31:00 2021
New Revision: 1892399

URL: http://svn.apache.org/viewvc?rev=1892399&view=rev
Log:
promotions validated

Added:
spamassassin/tags/sa-update_3.4.4_20210817083058/
- copied from r1892398, spamassassin/trunk/
Modified:
spamassassin/tags/sa-update_3.4.4_20210817083058/masses/rule-qa/reports-from-logs

Modified: spamassassin/tags/sa-update_3.4.4_20210817083058/masses/rule-qa/reports-from-logs
URL: http://svn.apache.org/viewvc/spamassassin/tags/sa-update_3.4.4_20210817083058/masses/rule-qa/reports-from-logs?rev=1892399&r1=1892398&r2=1892399&view=diff
==============================================================================
--- spamassassin/tags/sa-update_3.4.4_20210817083058/masses/rule-qa/reports-from-logs (original)
+++ spamassassin/tags/sa-update_3.4.4_20210817083058/masses/rule-qa/reports-from-logs Tue Aug 17 08:31:00 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 !~ /^#/;