summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-12 07:12:44 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-12 07:12:44 +0000
commitd9c47d1c0131ad5c2c386333753f87ccf6feeffd (patch)
tree1617e179fb2f8c4c04fe7071fa7529707a56fa03 /perl-install
parent7e240bef9ca05fa822d12ea22d5114791247b147 (diff)
downloaddrakx-d9c47d1c0131ad5c2c386333753f87ccf6feeffd.tar
drakx-d9c47d1c0131ad5c2c386333753f87ccf6feeffd.tar.gz
drakx-d9c47d1c0131ad5c2c386333753f87ccf6feeffd.tar.bz2
drakx-d9c47d1c0131ad5c2c386333753f87ccf6feeffd.tar.xz
drakx-d9c47d1c0131ad5c2c386333753f87ccf6feeffd.zip
kill deprecated parts
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm36
1 files changed, 0 insertions, 36 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 6a66e6b23..20fedf4a9 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -316,19 +316,7 @@ sub real_main {
$handle_multiple_cnx->();
},
},
-
-
- # KILLME?: no longer called and deprecated fonction calls :-(
- #go_ethernet =>
- #{
- # pre => sub {
- # conf_network_card($netc, $intf, $type, $ipadr, $netadr) or return;
- # $netc->{NET_INTERFACE} = $netc->{NET_DEVICE};
- # configureNetwork($netc, $intf, $first_time) or return;
- # },
- #},
-
isdn =>
{
pre=> sub {
@@ -1042,30 +1030,6 @@ See iwpriv(8) man page for further information."),
},
},
- conf_network_card =>
- {
- pre => sub {
- #-type =static or dhcp
- modules::interactive::load_category($in, $modules_conf, 'network/main|gigabit|usb', !$::expert, 1);
- @all_cards = network::ethernet::get_eth_cards($modules_conf) or
- # FIXME: fix this
- $in->ask_warn(N("Error"), N("No ethernet network adapter has been detected on your system.
-I cannot set up this connection type.")), return;
-
- },
- name => N("Choose the network interface") . "\n\n" .
- N("Please choose which network adapter you want to use to connect to Internet."),
- data => [ { val => \$interface, type => "list", list => \@all_cards, } ],
- format => sub { my ($e) = @_; $e->[0] . ($e->[1] ? " (using module $e->[1])" : "") },
-
- post => sub {
- network::ethernet::write_ether_conf(); #- FIXME: perl_checker is right, something's missing here
- $modules_conf->write if $::isStandalone; #- FIXME: already done in network::ethernet::write_ether_conf()
- my $_device = network::ethernet::conf_network_card_backend($netc, $intf, $type, $interface->[0], $ipadr, $netadr);
- return "lan";
- },
- },
-
static_hostname =>
{
pre => sub {