diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-27 11:20:09 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-27 11:20:09 +0000 |
| commit | 2384f791ed6370bf745b32848190f10077c8376c (patch) | |
| tree | 9d8be22e27165d2b1c0155ef5bd5e7846131b67c /perl-install | |
| parent | 1a1f12759be65c77c7f93d14ffb46498f5fc3d87 (diff) | |
| download | drakx-2384f791ed6370bf745b32848190f10077c8376c.tar drakx-2384f791ed6370bf745b32848190f10077c8376c.tar.gz drakx-2384f791ed6370bf745b32848190f10077c8376c.tar.bz2 drakx-2384f791ed6370bf745b32848190f10077c8376c.tar.xz drakx-2384f791ed6370bf745b32848190f10077c8376c.zip | |
preset domainname for a few known providers
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/adsl_consts.pm | 5 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/network/adsl_consts.pm b/perl-install/network/adsl_consts.pm index 4766a2775..e6c2c36b6 100644 --- a/perl-install/network/adsl_consts.pm +++ b/perl-install/network/adsl_consts.pm @@ -17,6 +17,7 @@ our %adsl_data = ( vci => 23, dnsServer2 => '212.35.2.1', dnsServer3 => '212.35.2.2', + DOMAINNAME2 => 'tiscali.be', }, N("Belgium") . "|Belgacom" => @@ -32,6 +33,7 @@ our %adsl_data = ( dnsServer2 => '213.228.0.68', dnsServer3 => '212.27.32.176', method => 'pppoa', + DOMAINNAME2 => 'free.fr', }, N("France") . "|Free dégroupé 1024/256 (mini)" => @@ -40,6 +42,7 @@ our %adsl_data = ( vci => 24, dnsServer2 => '213.228.0.68', dnsServer3 => '212.27.32.176', + DOMAINNAME2 => 'free.fr', }, N("France") . "|9online 512" => @@ -58,6 +61,7 @@ our %adsl_data = ( dnsServer2 => '194.117.200.10', dnsServer3 => '194.117.200.15', method => 'pppoa', + DOMAINNAME2 => 'club-internet.fr', }, N("France") . "|Wanadoo" => @@ -67,6 +71,7 @@ our %adsl_data = ( dnsServer2 => '193.252.19.3', dnsServer3 => '193.252.19.4', method => 'pppoa', + DOMAINNAME2 => 'wanadoo.fr', }, N("France") . "|Télé2 128k " => diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 531694346..bf65b4975 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -567,7 +567,7 @@ killall pppd post => sub { $adsl_data = $adsl_data{$adsl_provider}; if ($adsl_provider ne $adsl_old_provider) { - $netc->{$_} = $adsl_data->{$_} foreach qw(dnsServer2 dnsServer3 vpi vci); + $netc->{$_} = $adsl_data->{$_} foreach qw(dnsServer2 dnsServer3 DOMAINNAME2 vpi vci); $adsl_protocol = $adsl_types{$adsl_data->{method}}; } return 'adsl_protocol'; |