- for my $val (keys(%{$Config{$section}})) {
- print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
- #for my $val (qw(host login password)) {
- # if (defined($cfg->val($section, $val))) {
- # print "$val: <" . $cfg->val($section, $val) . ">\n";
- # }
- #}
+ for my $val (qw(host login password)) {
+ if (defined(${$Config{$section}}{$val})) {
+ print "$section: $val: <" . ${$Config{$section}}{$val}.">\n";
+ }