5 my(%param, %conf, %both);
7 foreach (`find -name "*.pl"`) {
16 if (/IsParam\(['"](\S+?)['"]\)/) {
17 print "File: $file: IsParam: $1\n" if $debug;
22 if (/IsChanConfOrWarn\(['"](\S+?)['"]\)/) {
23 print "File: $file: IsChanConfOrWarn: $1\n" if $debug;
28 if (/getChanConfDefault\(['"](\S+?)['"]/) {
29 print "File: $file: gCCD: $1\n" if $debug;
34 if (/getChanConf\(['"](\S+?)['"]/) {
35 print "File: $file: gCC: $1\n" if $debug;
40 if (/IsChanConf\(['"](\S+?)['"]\)/) {
41 print "File: $file: ICC: $1\n" if $debug;
46 # command hooks => IsChanConfOrWarn => both.
47 # note: this does not support multiple lines.
48 if (/\'Identifier\'[\s\t]=>[\s\t]+\'(\S+?)\'/) {
49 print "File: $file: command hook: $1\n" if $debug;
57 print "Conf AND/OR Params:\n";
58 foreach (sort keys %both) {
64 foreach (sort keys %param) {
70 foreach (sort keys %conf) {