From 2384f791ed6370bf745b32848190f10077c8376c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 27 Jan 2004 11:20:09 +0000 Subject: preset domainname for a few known providers --- perl-install/network/adsl_consts.pm | 5 +++++ perl-install/network/netconnect.pm | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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'; -- cgit v1.2.1