From 5b280812f53c7c6c093c3ba37644dae040b3e5ab Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 17 Aug 2004 13:19:22 +0000
Subject: use network::ethernet::get_eth_categories() when needed

---
 perl-install/network/ethernet.pm   |  1 +
 perl-install/network/netconnect.pm | 10 ++++++----
 perl-install/network/network.pm    |  3 ++-
 3 files changed, 9 insertions(+), 5 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 0caa3a74c..c533d4ade 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -11,6 +11,7 @@ use network::tools;
 use vars qw(@ISA @EXPORT);
 
 @ISA = qw(Exporter);
+@EXPORT = qw(get_eth_categories);
 
 sub write_ether_conf {
     my ($in, $modules_conf, $netcnx, $netc, $intf) = @_;
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 1999fbec5..c3188710e 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -21,8 +21,8 @@ sub detect {
                  $auto_detect->{isdn} = network::isdn::detect_backend($modules_conf);
              },
              lan => sub { # ethernet
-                 modules::load_category($modules_conf, 'network/main|gigabit|usb');
                  require network::ethernet;
+                 modules::load_category($modules_conf, network::ethernet::get_eth_categories());
                  $auto_detect->{lan} = { map { $_->[0] => $_->[1] } network::ethernet::get_eth_cards($modules_conf) };
              },
              adsl => sub {
@@ -125,7 +125,8 @@ sub real_main {
 
       my $lan_detect = sub {
           detect($modules_conf, $netc->{autodetect}, 'lan');
-          modules::interactive::load_category($in, $modules_conf, 'network/main|gigabit|pcmcia|usb|wireless', !$::expert, 0);
+          require network::ethernet;
+          modules::interactive::load_category($in, $modules_conf, network::ethernet::get_eth_categories(), !$::expert, 0);
           @all_cards = network::ethernet::get_eth_cards($modules_conf);
           %eth_intf = network::ethernet::get_eth_cards_names($modules_conf, @all_cards);
           require list_modules;
@@ -829,7 +830,8 @@ You can find a driver on http://eciadsl.flashtux.org/"),
                     post => sub {
                         $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name };
                         if ($ntf_name eq "Manually load a driver") {
-                            modules::interactive::load_category__prompt($in, $modules_conf, 'network/main|gigabit|pcmcia|usb|wireless');
+                            require network::ethernet;
+                            modules::interactive::load_category__prompt($in, $modules_conf, network::ethernet::get_eth_categories());
                             return 'lan';
                         }
                         $::isInstall && $netc->{NET_DEVICE} eq $ethntf->{DEVICE} ? 'lan_alrd_cfg' : 'lan_protocol';
@@ -1339,7 +1341,7 @@ sub start_internet {
     my ($o) = @_;
     init_globals($o);
     #- give a chance for module to be loaded using kernel-BOOT modules...
-    $::isStandalone or modules::load_category($o->{modules_conf}, 'network/main|gigabit|usb');
+    $::isStandalone or modules::load_category($o->{modules_conf}, 'network/*');
     connect_backend($o->{netc});
 }
 
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 8262ebbcc..4b5049739 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -363,7 +363,8 @@ sub easy_dhcp {
     return if text2bool($netc->{NETWORKING});
 
     require modules;
-    modules::load_category($modules_conf, 'network/*');
+    require network::ethernet;
+    modules::load_category($modules_conf, network::ethernet::get_eth_categories());
     my @all_dev = sort map { $_->[0] } network::ethernet::get_eth_cards($modules_conf);
 
     #- only for a single ethernet network card
-- 
cgit v1.2.1