git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@841
c11ca15a-4712-0410-83d8-
924469b57eb5
foreach (`find -name "*.pl"`) {
chop;
my $file = $_;
foreach (`find -name "*.pl"`) {
chop;
my $file = $_;
open(IN, $file);
while (<IN>) {
chop;
if (/IsParam\(['"](\S+?)['"]\)/) {
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+?)['"]\)/) {
$param{$1}++;
next;
}
if (/hasParam\(['"](\S+?)['"]\)/) {
-# print "File: $file: hasParam: $1\n";
+ print "File: $file: hasParam: $1\n" if $debug;
$param{$1}++;
next;
}
if (/getChanConfDefault\(['"](\S+?)['"]/) {
$param{$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+?)['"]\)/) {
$both{$1}++;
next;
}
if (/getChanConf\(['"](\S+?)['"]\)/) {
-# print "File: $file: gCC: $1\n";
+ print "File: $file: gCC: $1\n" if $debug;
$conf{$1}++;
next;
}
if (/IsChanConf\(['"](\S+?)['"]\)/) {
$conf{$1}++;
next;
}
if (/IsChanConf\(['"](\S+?)['"]\)/) {
-# print "File: $file: ICC: $1\n";
+ print "File: $file: ICC: $1\n" if $debug;
# command hooks => hasParam => both.
# note: this does not support multiple lines.
if (/\'Identifier\'[\s\t]=>[\s\t]+\'(\S+?)\'/) {
# command hooks => hasParam => 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;