"See_The_Changelog"

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;
+}
+
+