INN commit: trunk/scripts (inncheck.in)
INN Commit
Russ_Allbery at isc.org
Sun Feb 1 18:24:26 UTC 2009
Date: Sunday, February 1, 2009 @ 10:24:25
Author: iulius
Revision: 8316
Remove warnings from inncheck if control.ctl contains
lines for encoding settings.
Modified:
trunk/scripts/inncheck.in
-------------+
inncheck.in | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
Modified: inncheck.in
===================================================================
--- inncheck.in 2009-02-01 16:00:01 UTC (rev 8315)
+++ inncheck.in 2009-02-01 18:24:25 UTC (rev 8316)
@@ -145,6 +145,8 @@
## The control.ctl and control.ctl.local files.
##
%control'messages = (
+ '/encoding/', 1,
+ '/localencoding/', 1,
'all', 1,
'checkgroups', 1,
'ihave', 1,
@@ -172,6 +174,14 @@
input: while ( <IN> ) {
next input if &spacious($file, ++$line);
+ if (/^\/localencoding\//) {
+ unless ( ($msg, $act) =
+ /^(\/localencoding\/):([^:=]+)$/ ) {
+ print "$file:$line: malformed line.\n";
+ }
+ next input;
+ }
+
unless ( ($msg, $from, $ng, $act) =
/^([^:]+):([^:]+):([^:]+):(.+)$/ ) {
print "$file:$line: malformed line.\n";
@@ -199,7 +209,7 @@
$act =~ s/=.*//;
$act = "verify" if ($act =~ /^verify-.+/) ;
print "$file:$line: unknown action `$act'\n"
- if !defined $control'actions{$act};
+ if !defined $control'actions{$act} and $msg !~ /^\//;
}
1;
}
More information about the inn-committers
mailing list