summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm28
1 files changed, 9 insertions, 19 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 99a5a6b5b..28c77d1be 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -15,11 +15,8 @@ use MDK::Common::Globals "network", qw($in $prefix);
sub configure {
my ($netcnx, $netc, $intf, $first_time) = @_;
$::isInstall and $in->set_help('configureNetworkADSL');
+
conf_adsl_step1:
- # my $type = $in->ask_from_list_(N("Connect to the Internet"),
- # N("The most common way to connect with adsl is pppoe.
- # Some connections use pptp, a few ones use dhcp.
- # If you don't know, choose 'use pppoe'"), [N_("use pppoe"), N_("use pptp"), N_("use dhcp"), N_("Alcatel speedtouch usb"), N_("ECI Hi-Focus")]) or return;
my $l = [ N_("use pppoe"),
N_("use pptp"),
N_("use dhcp"),
@@ -34,14 +31,7 @@ If you don't know, choose 'use pppoe'"), $l) or return;
if ($type eq 'pppoe') {
$in->do_pkgs->install("rp-$type");
$netcnx->{type} = "adsl_$type";
-# $netcnx->{"adsl_$type"} = {};
adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1;
- #-network::configureNetwork($prefix, $netc, $in, $intf, $first_time);
-# if ($::isStandalone and $netc->{NET_DEVICE}) {
-# $in->ask_yesorno(N("Network interface"),
-# N("I'm about to restart the network device %s. Do you agree?", $netc->{NET_DEVICE}), 1)
-# and system("$prefix/sbin/ifdown $netc->{NET_DEVICE}; $prefix/sbin/ifup $netc->{NET_DEVICE}");
-# }
}
#- use pppoe for Sagem modem, but NET_DEVICE is now ADIModem instead of ethx.
if ($type =~ /Sagem/) {
@@ -70,14 +60,14 @@ If you don't know, choose 'use pppoe'"), $l) or return;
$netcnx->{"adsl_$type"}{vpivci} = '';
adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1;
}
- if ($type =~ /ECI/) {
- $type = 'eci';
- $in->do_pkgs->install(qw(eciadsl));
- $netcnx->{type} = "adsl_$type";
- $netcnx->{"adsl_$type"} = {};
- $netcnx->{"adsl_$type"}{vpivci} = '';
- adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1;
- }
+ # if ($type =~ /ECI/) {
+# $type = 'eci';
+# $in->do_pkgs->install(qw(eciadsl));
+# $netcnx->{type} = "adsl_$type";
+# $netcnx->{"adsl_$type"} = {};
+# $netcnx->{"adsl_$type"}{vpivci} = '';
+# adsl_conf($netcnx->{"adsl_$type"}, $netc, $intf, $type) or goto conf_adsl_step1;
+# }
$type =~ /speedtouch|eci/ or $netconnect::need_restart_network = 1;
1;
}