summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-15 09:43:47 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-15 09:43:47 +0000
commit84a2b110659c0d45545c070eddc49758f604787d (patch)
tree90baf77ae2cea347471db0ebfe8d0a85ec3f5df4
parent9dcbb2ae8746be5e5e95590a96c7431e0cc000b9 (diff)
downloaddrakx-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)
-rw-r--r--perl-install/network/netconnect.pm21
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";
},