- for my $val (@{$Config{$section}}) {
- print $val."\n";
- #for my $val (qw(host login password)) {
- # if (defined($cfg->val($section, $val))) {
- # print "$val: <" . $cfg->val($section, $val) . ">\n";
- # }
- #}
-
+ if (defined(${$Config{$section}}{host})) {
+ $g_host->append_text($section);
+ if (defined(${$Config{$section}}{login}) &&
+ defined(${$Config{$section}}{password})) {
+ $ua->credentials(${$Config{$section}}{host}.":80",
+ "snom",
+ ${$Config{$section}}{login},
+ ${$Config{$section}}{password});
+ }