From 13de91fbb60952073cf1d070fb1692d968d8d9b1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 7 Jul 2004 02:12:31 +0000
Subject: - move configure_pcmcia() and write_pcmcia() out of modules.pm to
 install_any.pm - load pcmcia_core, $pcic and ds in one call to modules::load
 - don't pass prefix to write_pcmcia()

---
 perl-install/install_any.pm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index cab59593a..3b1600dd9 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1244,4 +1244,43 @@ sub remove_bigseldom_used() {
       qw(mkreiserfs resize_reiserfs mkfs.xfs fsck.jfs);
 }
 
+
+#-###############################################################################
+#- pcmcia various
+#-###############################################################################
+sub configure_pcmcia {
+    my ($pcic) = @_;
+
+    #- try to setup pcmcia if cardmgr is not running.
+    my $running if 0;
+    return if $running;
+    $running = 1;
+
+    log::l("i try to configure pcmcia services");
+
+    symlink "/tmp/stage2/$_", $_ foreach "/etc/pcmcia";
+
+    eval { modules::load('pcmcia_core', $pcic, 'ds') };
+
+    #- run cardmgr in foreground while it is configuring the card.
+    run_program::run("cardmgr", "-f", "-m", "/modules");
+    sleep(3);
+    
+    #- make sure to be aware of loaded module by cardmgr.
+    modules::read_already_loaded();
+}
+
+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;
-- 
cgit v1.2.1