INN commit: trunk/scripts (innreport_inn.pm)
INN Commit
Russ_Allbery at isc.org
Mon Aug 6 10:25:55 UTC 2007
Date: Monday, August 6, 2007 @ 03:25:54
Author: iulius
Revision: 7635
Better innreport processing of log files (especially for Python
filtering and Cleanfeed rejects).
Add a NoCeM entry for perl-nocem. Only ncmspool was previously
parsed.
Modified:
trunk/scripts/innreport_inn.pm
------------------+
innreport_inn.pm | 45 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 45 insertions(+)
Modified: innreport_inn.pm
===================================================================
--- innreport_inn.pm 2007-08-06 09:39:37 UTC (rev 7634)
+++ innreport_inn.pm 2007-08-06 10:25:54 UTC (rev 7635)
@@ -252,9 +252,19 @@
return 1 if $left =~ /^SERVER perl filtering enabled$/o;
# SERVER perl filtering disabled
return 1 if $left =~ /^SERVER perl filtering disabled$/o;
+ # SERVER Python filtering enabled
+ return 1 if $left =~ /^SERVER Python filtering enabled$/o;
+ # SERVER Python filtering disabled
+ return 1 if $left =~ /^SERVER Python filtering disabled$/o;
# SERVER cancelled +id
return 1 if $left =~ /^SERVER cancelled /o;
}
+ # Python filter
+ return 1 if $left =~ /^defined python methods$/o;
+ return 1 if $left =~ /^python interpreter initialized OK$/o;
+ return 1 if $left =~ /^python: First load, so I can do initialization stuff.$/o;
+ return 1 if $left =~ /^python: spamfilter successfully hooked into INN$/o;
+ return 1 if $left =~ /^python: filter_close running, bye!$/o;
# rejecting[perl]
if ($left =~ /^rejecting\[perl\] <[^>]+> \d+ (.*)/o) {
$innd_filter_perl{$1}++;
@@ -1270,6 +1280,8 @@
return 1 if $left =~ /\S+ cant opendir \S+ I\/O error$/o;
# perl filtering enabled
return 1 if $left =~ /perl filtering enabled$/o;
+ # Python filtering enabled
+ return 1 if $left =~ /Python filtering enabled$/o;
# connect
if ($left =~ /(\S+) (\([0-9a-fA-F:.]*\) )?connect$/o) {
my $cust = $1;
@@ -1611,6 +1623,16 @@
return 1 if $left =~ m/rejected 437 ECP rejected/o;
# rejected 437 "Subject" header too long
return 1 if $left =~ m/header too long/o;
+ # rejected 437 Too long line in header 1163 bytes
+ return 1 if $left =~ m/rejected 437 Too long line in header/o;
+ # rejected 437 Too many newsgroups (meow)
+ return 1 if $left =~ m/rejected 437 Too many newsgroups/o;
+ # rejected 437 Space before colon in "<a" header
+ return 1 if $left =~ m/rejected 437 Space before colon in/o;
+ # rejected 437 EMP (phl)
+ return 1 if $left =~ m/rejected 437 EMP/o;
+ # rejected 437 Scoring filter (8)
+ return 1 if $left =~ m/rejected 437 Scoring filter/o;
# bad_article missing Message-ID
return 1 if $left =~ m/bad_article missing Message-ID/o;
# cant unspool saving to xxx
@@ -1646,6 +1668,29 @@
return 1;
}
+ ########
+ ## nocem
+ if ($prog eq "nocem") {
+ if ($left =~ /processed notice .* by (.*) \((\d+) ids,/o) {
+ $nocem_goodsigs{$1}++;
+ $nocem_totalgood++;
+ $nocem_lastid = $1;
+ $nocem_newids += $2;
+ $nocem_newids{$nocem_lastid} += $2;
+ $nocem_totalids += $2;
+ $nocem_totalids{$nocem_lastid} += $2;
+ return 1;
+ }
+ if ($left =~ /bad signature from (.*)/o) {
+ $nocem_badsigs{$1}++;
+ $nocem_goodsigs{$1} = 0 unless ($nocem_goodsigs{$1});
+ $nocem_totalbad++;
+ $nocem_lastid = $1;
+ return 1;
+ }
+ return 1;
+ }
+
###########
## controlchan
if ($prog eq "controlchan") {
More information about the inn-committers
mailing list