modify for new debian release

[infobot.git] / scripts / findparam.pl

diff --git a/scripts/findparam.pl b/scripts/findparam.pl
old mode 100644 (file)
new mode 100755 (executable)
index 0a559d1..679b9ca
--- a/scripts/findparam.pl
+++ b/scripts/findparam.pl
@@ -2,72 +2,72 @@
 
 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;
+        chop;
 
-       if (/IsParam\(['"](\S+?)['"]\)/) {
-           print "File: $file: IsParam: $1\n" if $debug;
-           $param{$1}++;
-           next;
-       }
+        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 (/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 (/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 (/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;
-       }
+        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;
-       }
+        # 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";
 }