5 my(%param, %conf, %both);
7 foreach (`find -name "*.pl"`) {
15 if (/IsParam\(['"](\S+?)['"]\)/) {
16 # print "File: $file: IsParam: $1\n";
21 if (/hasParam\(['"](\S+?)['"]\)/) {
22 # print "File: $file: hasParam: $1\n";
27 if (/getChanConfDefault\(['"](\S+?)['"]/) {
28 # print "File: $file: gCCD: $1\n";
33 if (/getChanConf\(['"](\S+?)['"]\)/) {
34 # print "File: $file: gCC: $1\n";
39 if (/IsChanConf\(['"](\S+?)['"]\)/) {
40 # print "File: $file: ICC: $1\n";
45 # command hooks => hasParam => both.
46 # note: this does not support multiple lines.
47 if (/\'Identifier\'[\s\t]=>[\s\t]+\'(\S+?)\'/) {
48 # print "File: $file: command hook: $1\n";
56 print "Conf AND/OR Params:\n";
57 foreach (sort keys %both) {
63 foreach (sort keys %param) {
69 foreach (sort keys %conf) {