diff options
| author | pad <pad@mandriva.com> | 1999-09-03 13:44:30 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-03 13:44:30 +0000 |
| commit | 59a71876a17e616e3706c80cddf3e74f34bbcf67 (patch) | |
| tree | e52f9979a37b9e3256a5f764d8c9f4cc85b9464f /perl-install/modules.pm | |
| parent | 874f08a1316d73d6f09f0ca2df235dac495a387b (diff) | |
| download | drakx-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.pm | 42 |
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) = @_; |