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