summaryrefslogtreecommitdiffstats
path: root/rescue/tree/ka/gen_modules_conf.pl
diff options
context:
space:
mode:
Diffstat (limited to 'rescue/tree/ka/gen_modules_conf.pl')
-rw-r--r--rescue/tree/ka/gen_modules_conf.pl156
1 files changed, 0 insertions, 156 deletions
diff --git a/rescue/tree/ka/gen_modules_conf.pl b/rescue/tree/ka/gen_modules_conf.pl
deleted file mode 100644
index ca721482a..000000000
--- a/rescue/tree/ka/gen_modules_conf.pl
+++ /dev/null
@@ -1,156 +0,0 @@
-$kinds2all_modules = {
- 'usb' => [
- 'usb-uhci',
- 'usb-ohci',
- 'ehci-hcd'
- ],
- 'network' => [
- '3c501',
- '3c503',
- '3c505',
- '3c507',
- '3c509',
- '3c515',
- '82596',
- 'abyss',
- 'ac3200',
- 'acenic',
- 'aironet4500_card',
- 'at1700',
- 'atp',
- 'com20020-pci',
- 'cs89x0',
- 'de600',
- 'de620',
- 'r8169',
- 'defxx',
- 'orinoco_plx',
- 'depca',
- 'dmfe',
- 'e100',
- 'e1000',
- 'e2100',
- 'eepro',
- 'eepro100',
- 'eexpress',
- 'epic100',
- 'eth16i',
- 'ewrk3',
- 'hamachi',
- 'hp',
- 'hp-plus',
- 'hp100',
- 'ibmtr',
- 'lance',
- 'natsemi',
- 'ne',
- 'ne2k-pci',
- 'ni5010',
- 'ni52',
- 'ni65',
- 'nvnet',
- 'olympic',
- 'pcnet32',
- 'plip',
- 'rcpci',
- 'sb1000',
- 'sis900',
- 'sk98lin',
- 'smc-ultra',
- 'smc9194',
- 'starfire',
- 'tlan',
- 'tmspci',
- 'tulip',
- 'via-rhine',
- 'tg3',
- 'bcm5700',
- 'bcm5820',
- 'bcm4400',
- 'crc32',
- 'wd',
- 'winbond-840',
- 'yellowfin',
- 'ns83820',
- 'iph5526',
- '3c59x',
- '8139too',
- 'sundance',
- 'dl2k',
- 'pegasus',
- 'kaweth',
- 'usbnet',
- 'catc',
- 'CDCEther'
- ],
- 'scsi' => [
- '3w-xxxx',
- 'AM53C974',
- 'NCR53c406a',
- 'a100u2w',
- 'advansys',
- 'aha1740',
- 'atp870u',
- 'dc395x_trm',
- 'dtc',
- 'fdomain',
- 'g_NCR5380',
- 'in2000',
- 'initio',
- 'pas16',
- 'pci2220i',
- 'psi240i',
- 'qla1280',
- 'qla2x00',
- 'qlogicfas',
- 'qlogicfc',
- 'seagate',
- 'sym53c416',
- 'u14-34f',
- 'ultrastor',
- 'eata',
- 'eata_pio',
- 'eata_dma',
- '53c7,8xx',
- 'aic7xxx',
- 'pci2000',
- 'qlogicisp',
- 'sym53c8xx',
- 'mptscsih',
- 'mptbase',
- 'DAC960',
- 'dpt_i2o',
- 'megaraid',
- 'aacraid',
- 'ataraid',
- 'cciss',
- 'cpqarray',
- 'gdth',
- 'i2o_block',
- 'qla2200',
- 'qla2300',
- 'cpqfc',
- 'ips',
- 'ppa',
- 'imm'
- ]
- };
-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 }