diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-23 08:25:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-23 08:25:20 +0000 |
| commit | a37a08955766ea2a2e26e9ec3e14b922fc4b2fb5 (patch) | |
| tree | e1b4d05de7afee832e6f79a4d0b45c863cac66ac /perl-install/network | |
| parent | 47300ec5219cf0cf340932ec3d7bf65e3420808a (diff) | |
| download | drakx-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/network')
| -rw-r--r-- | perl-install/network/netconnect.pm | 6 |
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 { |