+ my $val = &getChanConf( $what, $chan );
+ return $val if ( defined $val );
+
+ $param{$what} = $default;
+ &status("config ($chan): auto-setting param{$what} = $default");
+ $cache{config}{$what} = 1;
+ return $default;
+}
+
+#####
+# Usage: &findChanConf($param);
+# About: Retrieve value for 'param' value from any chan.
+# Return: scalar for success, undef for failure.
+sub findChanConf {
+ my ($param) = @_;
+
+ if ( !defined $param ) {
+ &WARN('param == NULL.');
+ return 0;
+ }
+
+ my $c;
+ foreach $c ( keys %chanconf ) {
+ foreach ( keys %{ $chanconf{$c} } ) {
+ next unless (/^$param$/);
+
+ return $chanconf{$c}{$_};
+ }
+ }
+
+ return;
+}
+
+sub showProc {
+ my ($prefix) = $_[0] || '';