summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm23
1 files changed, 0 insertions, 23 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 399cacd22..6ba60dcbe 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -53,16 +53,6 @@ If you don't know, choose 'use pppoe'"),
my $netcnx = $wiz->{var}{netcnx};
$netcnx->{type} = "adsl_$type";
- my %packages = (
- 'dhcp' => [ 'dhcpcd' ],
- 'eci' => [ 'eciadsl' ],
- 'pppoe' => [ 'rp-pppoe' ],
- 'pptp' => [ 'pptp-adsl' ],
- 'sagem' => [ 'adiusbadsl' ],
- 'sagem_dhcp' => [ qw(adiusbadsl dhcpcd) ],
- 'speedtouch' => [ 'speedtouch' ],
- );
- $in->do_pkgs->install(@{$packages{$type}});
$netcnx->{"adsl_$type"} = {};
$netcnx->{"adsl_$type"}{vpivci} = '' if $type =~ /eci|speedtouch/;
return 'ethernet' if $type eq 'dhcp';
@@ -72,19 +62,6 @@ If you don't know, choose 'use pppoe'"),
return "hw_account";
},
},
- adsl_conf2 => {
- #$adsl_type =~ /sagem|speedtouch|eci/ or conf_network_card($netc, $intf, 'static', '10.0.0.10') or goto adsl_conf_step_1;
- #adsl_conf_backend($adsl, $netc, $adsl_type) or goto adsl_conf_step_1;
- #1;
- },
- ethernet => {
- #go_ethernet($netc, $intf, 'dhcp', '', '', $first_time);
- },
- adsl_old_end => {
- post => sub {
- $wiz->{var}{adsl}{type} =~ /speedtouch|eci/ or $netconnect::need_restart_network = 1;
- },
- },
});
};