summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-23 08:25:20 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-23 08:25:20 +0000
commita37a08955766ea2a2e26e9ec3e14b922fc4b2fb5 (patch)
treee1b4d05de7afee832e6f79a4d0b45c863cac66ac /perl-install
parent47300ec5219cf0cf340932ec3d7bf65e3420808a (diff)
downloaddrakx-backup-do-not-use-a37a08955766ea2a2e26e9ec3e14b922fc4b2fb5.tar
drakx-backup-do-not-use-a37a08955766ea2a2e26e9ec3e14b922fc4b2fb5.tar.gz
drakx-backup-do-not-use-a37a08955766ea2a2e26e9ec3e14b922fc4b2fb5.tar.bz2
drakx-backup-do-not-use-a37a08955766ea2a2e26e9ec3e14b922fc4b2fb5.tar.xz
drakx-backup-do-not-use-a37a08955766ea2a2e26e9ec3e14b922fc4b2fb5.zip
read ppp config earlier and prevent provider choice to overwrite it (but if
user select a *new* provider)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index af8151148..9fd5e28dc 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -408,6 +408,8 @@ Take a look at http://www.linmodems.org"),
ppp_provider =>
{
pre => sub {
+ network::modem::ppp_read_conf($netcnx, $netc) if !$modem_conf_read;
+ $modem_conf_read = 1;
@isp = map {
my $country = $_;
map {
@@ -427,7 +429,7 @@ Take a look at http://www.linmodems.org"),
($country, $provider) = split('/', $provider);
$country = { reverse %countries }->{$country};
my %l = getVarsFromSh("$db_path/$country/$provider");
- if ($old_provider ne $provider) {
+ if (defined $old_provider && $old_provider ne $provider) {
$modem->{connection} = $l{Name};
$modem->{phone} = $l{Phonenumber};
$modem->{$_} = $l{$_} foreach qw(Authentication AutoName Domain Gateway IPAddr SubnetMask);
@@ -447,8 +449,6 @@ Take a look at http://www.linmodems.org"),
q(ifdown ppp0
killall pppd
), $netcnx->{type});
- network::modem::ppp_read_conf($netcnx, $netc) if !$modem_conf_read;
- $modem_conf_read = 1;
},
name => N("Dialup: account options"),
data => sub {