X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Ffindparam.pl;h=679b9caf0d48892307e2ceb3b258e6663122426d;hb=d2f87ccd1d5f93afedc8f9f13b9f35260328614a;hp=04f363ae96ffacf9db4dfc790013d75f6978b557;hpb=a34f0d55596836839c3a921fc873e9257908e421;p=infobot.git

diff --git a/scripts/findparam.pl b/scripts/findparam.pl
old mode 100644
new mode 100755
index 04f363a..679b9ca
--- a/scripts/findparam.pl
+++ b/scripts/findparam.pl
@@ -2,62 +2,73 @@
 
 use strict;
 
-my(%param, %conf, %both);
+my ( %param, %conf, %both );
 
 foreach (`find -name "*.pl"`) {
     chop;
-    my $file = $_;
+    my $file  = $_;
+    my $debug = 0;
 
-    open(IN, $file);
+    open( IN, $file );
     while (<IN>) {
-	chop;
-
-	if (/IsParam\(['"](\S+?)['"]\)/) {
-#	    print "File: $file: IsParam: $1\n";
-	    $param{$1}++;
-	    next;
-	}
-
-	if (/hasParam\(['"](\S+?)['"]\)/) {
-#	    print "File: $file: hasParam: $1\n";
-	    $param{$1}++;
-	    next;
-	}
-
-	if (/getChanConfDefault\(['"](\S+?)['"]/) {
-#	    print "File: $file: gCCD: $1\n";
-	    $both{$1}++;
-	    next;
-	}
-
-	if (/getChanConf\(['"](\S+?)['"]\)/) {
-#	    print "File: $file: gCC: $1\n";
-	    $conf{$1}++;
-	    next;
-	}
-
-	if (/IsChanConf\(['"](\S+?)['"]\)/) {
-#	    print "File: $file: ICC: $1\n";
-	    $conf{$1}++;
-	    next;
-	}
+        chop;
+
+        if (/IsParam\(['"](\S+?)['"]\)/) {
+            print "File: $file: IsParam: $1\n" if $debug;
+            $param{$1}++;
+            next;
+        }
+
+        if (/IsChanConfOrWarn\(['"](\S+?)['"]\)/) {
+            print "File: $file: IsChanConfOrWarn: $1\n" if $debug;
+            $both{$1}++;
+            next;
+        }
+
+        if (/getChanConfDefault\(['"](\S+?)['"]/) {
+            print "File: $file: gCCD: $1\n" if $debug;
+            $both{$1}++;
+            next;
+        }
+
+        if (/getChanConf\(['"](\S+?)['"]/) {
+            print "File: $file: gCC: $1\n" if $debug;
+            $conf{$1}++;
+            next;
+        }
+
+        if (/IsChanConf\(['"](\S+?)['"]\)/) {
+            print "File: $file: ICC: $1\n" if $debug;
+            $conf{$1}++;
+            next;
+        }
+
+        # 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" if $debug;
+            $both{$1}++;
+            next;
+        }
     }
     close IN;
 }
 
 print "Conf AND/OR Params:\n";
-foreach (sort keys %both) {
+foreach ( sort keys %both ) {
     print "    $_\n";
 }
 print "\n";
 
 print "Params:\n";
-foreach (sort keys %param) {
+foreach ( sort keys %param ) {
     print "    $_\n";
 }
 print "\n";
 
 print "Conf:\n";
-foreach (sort keys %conf) {
+foreach ( sort keys %conf ) {
     print "    $_\n";
 }
+
+# vim:ts=4:sw=4:expandtab:tw=80