diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/adsl.pm | 28 |
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; } |