* Add vim formatting comments ( # vim:ts=4:sw=4:expandtab:tw=80 )

[infobot.git] / scripts / findparam.pl

diff --git a/scripts/findparam.pl b/scripts/findparam.pl
index 8dd54080b39dde15e9699f638f78fc396f978f33..0a559d168f8ca0761ca43dd224844ea62edcf8af 100644 (file)
--- a/scripts/findparam.pl
+++ b/scripts/findparam.pl
@@ -7,45 +7,46 @@ my(%param, %conf, %both);
 foreach (`find -name "*.pl"`) {
     chop;
     my $file = $_;
+    my $debug = 0;
 
     open(IN, $file);
     while (<IN>) {
        chop;
 
        if (/IsParam\(['"](\S+?)['"]\)/) {
-#          print "File: $file: IsParam: $1\n";
+           print "File: $file: IsParam: $1\n" if $debug;
            $param{$1}++;
            next;
        }
 
-       if (/hasParam\(['"](\S+?)['"]\)/) {
-#          print "File: $file: hasParam: $1\n";
-           $param{$1}++;
+       if (/IsChanConfOrWarn\(['"](\S+?)['"]\)/) {
+           print "File: $file: IsChanConfOrWarn: $1\n" if $debug;
+           $both{$1}++;
            next;
        }
 
        if (/getChanConfDefault\(['"](\S+?)['"]/) {
-#          print "File: $file: gCCD: $1\n";
+           print "File: $file: gCCD: $1\n" if $debug;
            $both{$1}++;
            next;
        }
 
-       if (/getChanConf\(['"](\S+?)['"]\)/) {
-#          print "File: $file: gCC: $1\n";
+       if (/getChanConf\(['"](\S+?)['"]/) {
+           print "File: $file: gCC: $1\n" if $debug;
            $conf{$1}++;
            next;
        }
 
        if (/IsChanConf\(['"](\S+?)['"]\)/) {
-#          print "File: $file: ICC: $1\n";
+           print "File: $file: ICC: $1\n" if $debug;
            $conf{$1}++;
            next;
        }
 
-       # command hooks => hasParam => both.
+       # command hooks => IsChanConfOrWarn => both.
        # note: this does not support multiple lines.
        if (/\'Identifier\'[\s\t]=>[\s\t]+\'(\S+?)\'/) {
-#          print "File: $file: command hook: $1\n";
+           print "File: $file: command hook: $1\n" if $debug;
            $both{$1}++;
            next;
        }
@@ -69,3 +70,5 @@ print "Conf:\n";
 foreach (sort keys %conf) {
     print "    $_\n";
 }
+
+# vim:ts=4:sw=4:expandtab:tw=80