From d9c47d1c0131ad5c2c386333753f87ccf6feeffd Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 12 Aug 2004 07:12:44 +0000
Subject: kill deprecated parts

---
 perl-install/network/netconnect.pm | 36 ------------------------------------
 1 file changed, 36 deletions(-)

(limited to 'perl-install/network/netconnect.pm')

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 {
-- 
cgit v1.2.1