-for my $section ($cfg->Sections) {
- for my $val (qw(host login password)) {
- if (defined($cfg->val($section, $val))) {
- print "$val: <" . $cfg->val($section, $val) . ">\n";
- }
- }
- push(@sections, $section);
+for my $section (@sections) {
+ 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";
+ # }
+ #}
+
+ }