From f298cec9f7d4bb4dc1972cc737007b6da86d4cb0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 13 Dec 2004 15:43:45 +0000
Subject: - rename/move install_any::write_pcmcia() as
 harddrake::autoconf::pcmcia() so   that it became availlable for standalone
 tools

- reuse it in harddrake service in order to configure PCMCIA cards
---
 perl-install/harddrake/autoconf.pm        | 12 ++++++++++++
 perl-install/install_any.pm               | 12 ------------
 perl-install/install_steps.pm             |  3 ++-
 perl-install/standalone/service_harddrake |  4 +++-
 4 files changed, 17 insertions(+), 14 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/harddrake/autoconf.pm b/perl-install/harddrake/autoconf.pm
index adf6d9957..061d738af 100644
--- a/perl-install/harddrake/autoconf.pm
+++ b/perl-install/harddrake/autoconf.pm
@@ -31,4 +31,16 @@ sub mouse_conf {
     mouse::write_conf(do_pkgs_standalone->new, $modules_conf, mouse::detect($modules_conf), 1);
 }
 
+sub pcmcia {
+    my ($pcic) = @_;
+
+    #- should be set after installing the package above otherwise the file will be renamed.
+    setVarsInSh("$::prefix/etc/sysconfig/pcmcia", {
+     PCMCIA    => bool2yesno($pcic),
+     PCIC      => $pcic,
+     PCIC_OPTS => "",
+     CORE_OPTS => "",
+    });
+}
+
 1;
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ea9e8fe9d..194e942bd 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1551,17 +1551,5 @@ sub configure_pcmcia {
     modules::read_already_loaded($modules_conf);
 }
 
-sub write_pcmcia {
-    my ($pcic) = @_;
-
-    #- should be set after installing the package above otherwise the file will be renamed.
-    setVarsInSh("$::prefix/etc/sysconfig/pcmcia", {
-	PCMCIA    => bool2yesno($pcic),
-	PCIC      => $pcic,
-	PCIC_OPTS => "",
-        CORE_OPTS => "",
-    });
-}
-
 
 1;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 53aa21a2b..77cbda0ed 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -503,7 +503,8 @@ Consoles 1,3,4,7 may also contain interesting information";
     run_program::rooted($o->{prefix}, 'lvm2', 'vgscan') if -e '/etc/lvmtab';
 
     #- configure PCMCIA services if needed.
-    install_any::write_pcmcia($o->{pcmcia});
+    require harddrake::autoconf;
+    harddrake::autoconf::pcmcia($o->{pcmcia});
 
     #- for mandrake_firstime
     touch "$o->{prefix}/var/lock/TMP_1ST";
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 070b6dc29..f897ec230 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -139,10 +139,12 @@ foreach my $hw_class (@harddrake::data::tree) {
         network::ethernet::configure_eth_aliases($modules_conf);
         $modules_conf->write;
         next;
-    } elsif (member($Ident, qw(AGP ATA_STORAGE PCMCIA_CONTROLLER SATA_STORAGE SCSI_CONTROLLER TV))) {
+    } elsif (member($Ident, qw(AGP ATA_STORAGE SATA_STORAGE SCSI_CONTROLLER TV))) {
         # add agpgart and the like modules to modprobe.preload if needed:
         $modules_conf->write;
         next;
+    } elsif ($Ident eq "PCMCIA_CONTROLLER") {
+        harddrake::autoconf::pcmcia($added[0]->{driver});
     } elsif ($Ident eq "USB_CONTROLLER") {
         modules::load_category($modules_conf, 'bus/usb');
         $modules_conf->write;
-- 
cgit v1.2.1