diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-09-15 09:43:47 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-09-15 09:43:47 +0000 |
| commit | 84a2b110659c0d45545c070eddc49758f604787d (patch) | |
| tree | 90baf77ae2cea347471db0ebfe8d0a85ec3f5df4 /perl-install | |
| parent | 9dcbb2ae8746be5e5e95590a96c7431e0cc000b9 (diff) | |
| download | drakx-84a2b110659c0d45545c070eddc49758f604787d.tar drakx-84a2b110659c0d45545c070eddc49758f604787d.tar.gz drakx-84a2b110659c0d45545c070eddc49758f604787d.tar.bz2 drakx-84a2b110659c0d45545c070eddc49758f604787d.tar.xz drakx-84a2b110659c0d45545c070eddc49758f604787d.zip | |
add "Unlisted - edit manually" entry in modem provider list (fix #11549)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 416bbf49e..09dfcc8c6 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -561,17 +561,20 @@ Take a look at http://www.linmodems.org"), }, name => N("Select your provider:"), data => sub { - [ { label => N("Provider:"), type => "list", val => \$provider, separator => '/', list => \@isp } ] + [ { label => N("Provider:"), type => "list", val => \$provider, separator => '/', + list => [ N("Unlisted - edit manually"), @isp ] } ] }, post => sub { - ($country, $provider) = split('/', $provider); - $country = { reverse %countries }->{$country}; - my %l = getVarsFromSh("$::prefix$db_path/$country/$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); - ($modem->{dns1}, $modem->{dns2}) = split(',', $l{DNS}); + if ($provider ne N("Unlisted - edit manually")) { + ($country, $provider) = split('/', $provider); + $country = { reverse %countries }->{$country}; + my %l = getVarsFromSh("$::prefix$db_path/$country/$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); + ($modem->{dns1}, $modem->{dns2}) = split(',', $l{DNS}); + } } return "ppp_account"; }, |