summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-20 15:46:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-20 15:46:01 +0000
commitf692e2d9ff6cc99bc8a092f28041839c4a1aa2d5 (patch)
tree3603926fdd41211864eda220277b8c39e6f3bd6f /perl-install/network/netconnect.pm
parent92af971a3ff8e2979074f607f33cdf072dfaedce (diff)
downloaddrakx-backup-do-not-use-f692e2d9ff6cc99bc8a092f28041839c4a1aa2d5.tar
drakx-backup-do-not-use-f692e2d9ff6cc99bc8a092f28041839c4a1aa2d5.tar.gz
drakx-backup-do-not-use-f692e2d9ff6cc99bc8a092f28041839c4a1aa2d5.tar.bz2
drakx-backup-do-not-use-f692e2d9ff6cc99bc8a092f28041839c4a1aa2d5.tar.xz
drakx-backup-do-not-use-f692e2d9ff6cc99bc8a092f28041839c4a1aa2d5.zip
read back new fields
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 61e62717b..b9b2b98df 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -432,7 +432,7 @@ killall pppd
$modem ||= $netcnx->{$netcnx->{type}};
$modem->{device} ||= $first_modem->()->{device};
my %l = getVarsFromSh("$::prefix/usr/share/config/kppprc");
- $modem->{Gateway} ||= $l{Gateway};
+ $modem->{$_} ||= $l{$_} foreach qw (Gateway IPAddr SubnetMask);
$modem->{connection} ||= $l{Name};
$modem->{domain} ||= $l{Domain};
($modem->{dns1}, $modem->{dns2}) = split(',', $l{DNS});
@@ -443,6 +443,7 @@ killall pppd
foreach (cat_("/etc/sysconfig/network-scripts/ifcfg-ppp0")) {
/NAME=(['"]?)(.*)\1/ and $modem->{login} ||= $2;
}
+ $modem->{login} ||= $l{Username};
my $secret = network::tools::read_secret_backend();
foreach (@$secret) {
$modem->{passwd} ||= $_->{passwd} if $_->{login} eq $modem->{login};
@@ -450,7 +451,9 @@ killall pppd
#my $secret = network::tools::read_secret_backend();
#my @cnx_list = map { $_->{server} } @$secret;
$modem->{$_} ||= '' foreach qw(connection phone login passwd auth domain dns1 dns2);
-
+ $modem->{auto_gateway} ||= $modem->{Gateway} eq '0.0.0.0' ? N("Automatic") : N("Manual");
+ $modem->{auto_ip} ||= $modem->{IPAdddr} eq '0.0.0.0' ? N("Automatic") : N("Manual");
+ $modem->{auto_dns} ||= defined $modem->{dns1} || defined $modem->{dns2} ? N("Manual") : N("Automatic");
},
name => N("Dialup: account options"),
data => sub {