summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-27 11:20:09 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-27 11:20:09 +0000
commit2384f791ed6370bf745b32848190f10077c8376c (patch)
tree9d8be22e27165d2b1c0155ef5bd5e7846131b67c /perl-install/network
parent1a1f12759be65c77c7f93d14ffb46498f5fc3d87 (diff)
downloaddrakx-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/network')
-rw-r--r--perl-install/network/adsl_consts.pm5
-rw-r--r--perl-install/network/netconnect.pm2
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';