diff options
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 330 |
1 files changed, 330 insertions, 0 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm new file mode 100644 index 000000000..b6e2ebd9b --- /dev/null +++ b/perl-install/modules.pm @@ -0,0 +1,330 @@ +package modules; + +use diagnostics; +use strict; +use vars qw(%loaded); + +use common qw(:file); +use log; +use detect_devices; +use run_program; +use pci; + +%loaded = (); + +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 @cm206Options = ( + [ "cm206=", "IO base, IRQ:", "" ], +); + +my @mcdOptions = ( + [ "mcd=", "Base IO port:", "" ], +); + +my @optcdOptions = ( + [ "optcd=", "Base IO port:", "" ], +); + +my @fdomainOptions = ( + [ "setup_called=", "Use other options", "1" ], + [ "port_base=", "Base IO port:", "0xd800" ], + [ "interrupt_level=", "Interrupt level (IRQ):", "10" ], +); + +my @sbpcdOptions = ( + [ "sbpcd=", "IO base, IRQ, label:", "" ], +); + +my @parportPcOptions = ( + [ "io=", "Base IO port:", "0x378" ], + [ "irq=", "IRQ level:", "7" ], +); + +my %modules = ( + "8390" => [ 1, undef, 0, '' ], + "cdu31a" => [ 0, \@cdu31aOptions, 0, '' ], + "cm206" => [ 0, \@cm206Options, 0, '' ], + "de4x5" => [ 1, \@de4x5Options, 'AUTOPROBE', "io=0" ], + "ds" => [ 1, undef, 0, '' ], + "fdomain" => [ 1, \@fdomainOptions, 0, '' ], + "i82365" => [ 1, undef, 0, '' ], + "isofs" => [ 1, undef, 0, '' ], + "loop" => [ 1, undef, 0, '' ], + "lp" => [ 1, undef, 0, '' ], + "parport" => [ 1, undef, 0, '' ], + "parport_pc" => [ 1, \@parportPcOptions, 0, "irq=7" ], + "mcd" => [ 0, \@mcdOptions, 0, '' ], + "ne" => [ 0, \@neOptions, 'FAKEAUTOPROBE', "io=0x300" ], + "nfs" => [ 1, undef, 0, '' ], + "optcd" => [ 0, \@optcdOptions, 0, '' ], + "pcmcia_core" => [ 1, undef, 0, '' ], + "sbpcd" => [ 1, \@sbpcdOptions, 0, '' ], + "smbfs" => [ 1, undef, 0, '' ], + "tcic" => [ 1, undef, 0, '' ], + "vfat" => [ 1, undef, 0, '' ], +); + +my @drivers_by_category = ( +[ 0, \&detect_devices::hasEthernet, 'net', 'ethernet', { + "3c509" => "3com 3c509", + "3c501" => "3com 3c501", + "3c503" => "3com 3c503", + "3c505" => "3com 3c505", + "3c507" => "3com 3c507", + "3c515" => "3com 3c515", + "3c59x" => "3com 3c59x (Vortex)", + "3c59x" => "3com 3c90x (Boomerang)", + "at1700" => "Allied Telesis AT1700", + "ac3200" => "Ansel Communication AC3200", + "pcnet32" => "AMD PC/Net 32", + "apricot" => "Apricot 82596", + "atp" => "ATP", + "e2100" => "Cabletron E2100", + "tlan" => "Compaq Netelligent", + "de4x5" => "Digital 425,434,435,450,500", + "depca" => "Digital DEPCA and EtherWORKS", + "ewrk3" => "Digital EtherWORKS 3", + "tulip" => "Digital 21040 (Tulip)", + "de600" => "D-Link DE-600 pocket adapter", + "de620" => "D-Link DE-620 pocket adapter", + "epic100" => "EPIC 100", + "hp100" => "HP10/100VG any LAN ", + "hp" => "HP LAN/AnyLan", + "hp-plus" => "HP PCLAN/plus", + "eth16i" => "ICL EtherTeam 16i", + "eexpress" => "Intel EtherExpress", + "eepro" => "Intel EtherExpress Pro", + "eepro100" => "Intel EtherExpress Pro 100", + "lance" => "Lance", + "lne390" => "Mylex LNE390", + "ne" => "NE2000 and compatible", + "ne2k-pci" => "NE2000 PCI", + "ne3210" => "NE3210", + "ni5010" => "NI 5010", + "ni52" => "NI 5210", + "ni65" => "NI 6510", + "rtl8139" => "RealTek RTL8129/8139", + "es3210" => "Racal-Interlan ES3210", + "rcpci45" => "RedCreek PCI45 LAN", + "epic100" => "SMC 83c170 EPIC/100", + "smc9194" => "SMC 9000 series", + "smc-ultra" => "SMC Ultra", + "smc-ultra32" => "SMC Ultra 32", + "via-rhine" => "VIA Rhine", + "wd" => "WD8003, WD8013 and compatible", +}], +[ 0, \&detect_devices::hasSCSI, 'scsi', undef, { + "aha152x" => "Adaptec 152x", + "aha1542" => "Adaptec 1542", + "aha1740" => "Adaptec 1740", + "aic7xxx" => "Adaptec 2740, 2840, 2940", + "advansys" => "AdvanSys Adapters", + "in2000" => "Always IN2000", + "AM53C974" => "AMD SCSI", + "megaraid" => "AMI MegaRAID", + "BusLogic" => "BusLogic Adapters", + "dtc" => "DTC 3180/3280", + "eata_dma" => "EATA DMA Adapters", + "eata_pio" => "EATA PIO Adapters", + "seagate" => "Future Domain TMC-885, TMC-950", + "fdomain" => "Future Domain TMC-16x0", + "gdth" => "ICP Disk Array Controller", + "ppa" => "Iomega PPA3 (parallel port Zip)", + "g_NCR5380" => "NCR 5380", + "NCR53c406a" => "NCR 53c406a", + "53c7,8xx" => "NCR 53c7xx", + "ncr53c8xx" => "NCR 53C8xx PCI", + "pci2000" => "Perceptive Solutions PCI-2000", + "pas16" => "Pro Audio Spectrum/Studio 16", + "qlogicfas" => "Qlogic FAS", + "qlogicisp" => "Qlogic ISP", + "seagate" => "Seagate ST01/02", + "t128" => "Trantor T128/T128F/T228", + "u14-34f" => "UltraStor 14F/34F", + "ultrastor" => "UltraStor 14F/24F/34F", + "wd7000" => "Western Digital wd7000", +}], +[ 0, undef, 'cdrom', 'none', { + "sbpcd" => "SoundBlaster/Panasonic", + "aztcd" => "Aztech CD", + "bpcd" => "Backpack CDROM", + "gscd" => "Goldstar R420", + "mcd" => "Mitsumi", + "mcdx" => "Mitsumi (alternate)", + "optcd" => "Optics Storage 8000", + "cm206" => "Phillips CM206/CM260", + "sjcd" => "Sanyo", + "cdu31a" => "Sony CDU-31A", + "sonycd535" => "Sony CDU-5xx", +}] +); + +my %drivers = ( + "plip" => [ "PLIP (parallel port)", 0, \&detect_devices::hasPlip, 'net', 'plip' ], + "ibmtr" => [ "Token Ring", 0, \&detect_devices::hasTokenRing, 'net', 'tr' ], + "DAC960" => [ "Mylex DAC960", 0, undef, 'scsi', undef ], + "pcmcia_core" => [ "PCMCIA core support", 0, undef, 'pcmcia', undef ], + "ds" => [ "PCMCIA card support", 0, undef, 'pcmcia', undef ], + "i82365" => [ "PCMCIA i82365 controller", 0, undef, 'pcmcia', undef ], + "tcic" => [ "PCMCIA tcic controller", 0, undef, 'pcmcia', undef ], + "isofs" => [ "iso9660", 0, undef, 'fs', undef ], + "nfs" => [ "Network File System (nfs)", 0, undef, 'fs', undef ], + "smbfs" => [ "Windows SMB", 0, undef, 'fs', undef ], + "loop" => [ "Loopback device", 0, undef, 'other', undef ], + "lp" => [ "Parallel Printer", 0, undef, 'other', undef ], +); +foreach (@drivers_by_category) { + my @l = @$_; + my $l = pop @l; + foreach (keys %$l) { $drivers{$_} = [ $l->{$_}, @l ]; } +} + + +1; + + +sub load($;$$) { + my ($name, $type, $minor) = @_; + + $loaded{$name} and return; + + $type or ($type, $minor) = @{$drivers{$name}}[3,4]; + + foreach (@{$deps{$name}}) { load($_, 'prereq', $minor) } + load_raw($name, $type, $minor); +} + +sub unload($) { run_program::run("/bin/rmmod", $_[0]); } + +sub load_raw($$$@) { + my ($name, $type, $minor, @options) = @_; + +# @options or @options = guiGetModuleOptions($name); + + run_program::run("/usr/bin/insmod", "/modules/$name.o", @options) or die("insmod module $name"); + + # this is a hack to make plip go + if ($name eq "parport_pc") { + foreach (@options) { + /^irq=(\d+)/ or next; + log::l("writing to /proc/parport/0/irq"); + local *F; + open F, "> /proc/parport/0/irq" or last; + print F $1; + } + } + $loaded{$name} = { type => $type, minor => $minor, options => \@options }; +} + +sub load_deps($) { + my ($file) = @_; + + local *F; + open F, $file or log::l("error opening $file: $!"), return 0; + foreach (<F>) { + my ($f, $deps) = split ':'; + push @{$deps{$f}}, split ' ', $deps; + } + 1; +} + +sub read_conf { + my ($file) = @_; + + local *F; + open F, $file or log::l("failed to open $file for module information"), return 0; + + foreach (<F>) { + /^alias\s+eth0\s+(\S+)/ and $loaded{$1} = { type => 'net', minor => 'ethernet' }; + /^alias\s+scsi_hostadapter\s+(\S+)/ and $loaded{$1} = { type => 'scsi' }; + /^option\s+(\S+)\s+(.*)/ and $loaded{$1} = { type => 'other', options => [ split ' ', $2 ] }; + } + 1; +} + +sub write_conf { + my ($file, $append) = @_; + my ($tr, $eth, $scsi) = (0, 0, 0); + + $::testing and return 1; + + $append or rename($file, "$file.orig"), log::l("backing up old conf.modules"); + + local *F; + open F, ($append ? ">" : "") . "> $file" or die("cannot write module config file $file: $!\n"); + + while (my ($k, $v) = each %loaded) { + unless ($append && $v->{persistFlags}->{alias}) { + if ($v->{type} eq 'net') { + $v->{minor} eq 'tr' and print F "alias tr", $tr++, " $k\n"; + $v->{minor} eq 'ethernet' and print F "alias eth", $eth++, " $k\n"; + } elsif ($v->{type} eq 'scsi') { + print F "alias scsi_hostadapter", $scsi++, " $k\n"; + } + } + unless ($append && $v->{persistFlags}->{options} || !$v->{options}) { + print F "options $k ", join(' ', @{$v->{options}}), "\n"; + } + } + + print F "alias parport_lowlevel parport_pc\n"; + print F "pre-install pcmcia_core /etc/rc.d/init.d/pcmcia start\n"; + 1; +} + + + +sub load_thiskind($) { + my ($type) = @_; + my @devs; + my $found; + + log::l("in load_thiskind, type = $type"); + + unless ($type eq 'scsi' || $type eq 'net') { + log::l("pci probing for $type devices"); + @devs = pci::probe($type); + log::l("pci probe found " . scalar @devs . "$type devices"); + } + + my %devs; + foreach (@devs) { + my $m = $_->{module}; + $devs{$m}++ and log::l("multiple $m devices found"), next; + $drivers{$m} or log::l("module $m not in install table"), next; + log::l("found driver for $m"); + load($m); + $found = 1; + } + pci::free(@devs); + $found; +} + +# This assumes only one of each driver type is loaded +sub removeDeviceDriver { +# my ($type) = @_; +# +# my @m = grep { $loaded{$_}->{type} eq $type } keys %loaded; +# @m or return 0; +# @m > 1 and log::l("removeDeviceDriver assume only one of each driver type is loaded, which is not the case (" . join(' ', @m) . ")"); +# removeModule($m[0]); +# 1; +} + + |