From 59a71876a17e616e3706c80cddf3e74f34bbcf67 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Fri, 3 Sep 1999 13:44:30 +0000
Subject: pad stuff

---
 perl-install/modules.pm | 42 +++++++++++++++++++++++++++++++++---------
 1 file changed, 33 insertions(+), 9 deletions(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 7e5b1cac2..d036573c7 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -13,6 +13,21 @@ use log;
 my %conf;
 my %deps = ();
 
+
+my @neOptions = (
+  [ "io=", "Base IO port:", "0x300:0x280:0x320:0x340:0x360" ],
+  [ "irq=", "IRQ level:", "" ],
+);
+
+my @de4x5Options = (
+  [ "io=", "Base IO port:", "0x0b" ],
+);
+
+my @cdu31aOptions = (
+  [ "cdu31a_port=", "Base IO port:", "" ],
+  [ "cdu31a_irq=", "IRQ level:", "" ],
+);
+
 #
 #my %knownAliases = (
 #    eth => { type => 'net', minor => 'ethernet' },
@@ -84,7 +99,6 @@ my %deps = ();
 #  "tcic" => [ 1, undef, 0, '' ],
 #  "vfat" => [ 1, undef, 0, '' ],
 #);
-
 my @drivers_by_category = (
 [ \&detect_devices::hasEthernet, 'net', 'ethernet', {
   "3c509" => "3com 3c509",
@@ -227,16 +241,26 @@ sub text2driver($) {
 
 sub load($;$@) {
     my ($name, $type, @options) = @_;
-
-    $conf{$name}{loaded} and return;
-
-    $type ||= $drivers{$name}{type};
-
-    load($_, 'prereq') foreach @{$deps{$name}};
-    load_raw($name, @options);
+    if ($::testing) {
+	log::l("i try to install $name module");
+    } else {
+
+	$conf{$name}{loaded} and return;
+	
+	$type ||= $drivers{$name}{type};
+	
+	load($_, 'prereq') foreach @{$deps{$name}};
+	load_raw($name, @options);
+    }
 }
 
-sub unload($) { run_program::run("rmmod", $_[0]); }
+sub unload($) { 
+    if ($::testing) {
+	log::l("rmmod $_[0]");
+    } else {
+	run_program::run("rmmod", $_[0]); 
+    }
+}
 
 sub load_raw($@) {
     my ($name, @options) = @_;
-- 
cgit v1.2.1