script that create a module list for rescue

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
+