summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorErwan Velu <erwan@mandriva.org>2003-06-11 16:12:58 +0000
committerErwan Velu <erwan@mandriva.org>2003-06-11 16:12:58 +0000
commit05f01f1f0652412bb43ef3508cc395ab4bc4b640 (patch)
treef341532901406553f498457dbb23ccef5cbdc54b
parentd26f8ce1016a70a6174d7164f7369ea326ef43a6 (diff)
downloaddrakx-05f01f1f0652412bb43ef3508cc395ab4bc4b640.tar
drakx-05f01f1f0652412bb43ef3508cc395ab4bc4b640.tar.gz
drakx-05f01f1f0652412bb43ef3508cc395ab4bc4b640.tar.bz2
drakx-05f01f1f0652412bb43ef3508cc395ab4bc4b640.tar.xz
drakx-05f01f1f0652412bb43ef3508cc395ab4bc4b640.zip
script that create a module list for rescue
-rwxr-xr-xkernel/gen_modules_conf.pl.pl40
1 files changed, 40 insertions, 0 deletions
diff --git a/kernel/gen_modules_conf.pl.pl b/kernel/gen_modules_conf.pl.pl
new file mode 100755
index 000000000..e842eafa0
--- /dev/null
+++ b/kernel/gen_modules_conf.pl.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+use list_modules;
+
+my %kinds = (
+ scsi => 'disk/scsi|hardware_raid',
+ network => 'network/main|usb',
+);
+
+my %kinds2all_modules = map {
+ $_ => [ list_modules::category2modules($kinds{$_}) ];
+} keys %kinds;
+
+$kinds2all_modules{usb} = [ qw(usb-uhci usb-ohci ehci-hcd) ];
+
+use Data::Dumper;
+print Data::Dumper->Dump([\%kinds2all_modules], ['$kinds2all_modules']);
+
+print <<'EOF';
+my @l = map { /^(\S+)\s*:/ ? $1 : () } `lspcidrake`;
+
+my %kinds2modules = map {
+ $_ => [ intersection(\@l, $kinds2all_modules->{$_}) ];
+} keys %$kinds2all_modules;
+
+if (my @scsi = @{$kinds2modules{scsi}}) {
+ print "probeall scsi_hostadapter ", join(" ", @scsi), "\n";
+}
+if (my @usb = @{$kinds2modules{usb}}) {
+ print "probeall usb-interface ", join(" ", @usb), "\n";
+}
+my $eth = 0;
+foreach (@{$kinds2modules{network}}) {
+ print "alias eth$eth $_\n";
+ $eth++;
+}
+
+sub intersection { my (%l, @m); @l{@{shift @_}} = (); foreach (@_) { @m = grep { exists $l{$_} } @$_; %l = (); @l{@m} = () } keys %l }
+EOF
+