summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-03 13:44:30 +0000
committerpad <pad@mandriva.com>1999-09-03 13:44:30 +0000
commit59a71876a17e616e3706c80cddf3e74f34bbcf67 (patch)
treee52f9979a37b9e3256a5f764d8c9f4cc85b9464f /perl-install/modules.pm
parent874f08a1316d73d6f09f0ca2df235dac495a387b (diff)
downloaddrakx-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar
drakx-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar.gz
drakx-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar.bz2
drakx-59a71876a17e616e3706c80cddf3e74f34bbcf67.tar.xz
drakx-59a71876a17e616e3706c80cddf3e74f34bbcf67.zip
pad stuff
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm42
1 files changed, 33 insertions, 9 deletions
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) = @_;