create branch 2007.1 from drakx-installer-* tarballs

(needed after the big svn loss)

3 files changed, 510 insertions, 0 deletions

diff --git a/kernel/Makefile b/kernel/Makefile
new file mode 100644
index 000000000..ea4cc1a54
--- /dev/null
+++ b/kernel/Makefile
@@ -0,0 +1,8 @@
+clean:
+	rm -rf *~
+
+check:
+	perl modules.pl check > /dev/null
+	@echo "unlisted drivers: "
+	@for i in $$(zcat /usr/share/ldetect-lst/pcitable.gz|cut -f 2 -d \" |egrep -v '^#|ADSL:|Bad:|Card:|H[cs]f:|ISDN:|LT:'|sort|uniq|less);do fgrep -q $$i list_modules.pm|| echo -n "$$i ";done
+	@echo
diff --git a/kernel/list_modules.pm b/kernel/list_modules.pm
new file mode 100644
index 000000000..a746f1bb1
--- /dev/null
+++ b/kernel/list_modules.pm
@@ -0,0 +1,335 @@
+package list_modules; # $Id: list_modules.pm 149149 2007-03-27 12:28:29Z tv $
+
+use MDK::Common;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(load_dependencies dependencies_closure category2modules module2category sub_categories);
+
+# the categories have 2 purposes
+# - choosing modules to include on stage1's (cf update_kernel and mdk-stage1/pci-resource/update-pci-ids.pl)
+# - performing a load_category or probe_category (detect_devices.pm and many files in perl-install)
+
+our %l = (
+  ################################################################################
+  network => 
+  {
+    atm => [ qw(ambassador eni firestream fore_200e he horizon idt77252 iphase lanai nicstar zatm) ],
+    main => [
+      if_(arch() =~ /ppc/, qw(bmac ibm_emac mace oaknet sungem)),
+      if_(arch() =~ /^sparc/, qw(sunbmac sunhme sunqe)),
+      if_(arch() !~ /alpha|sparc/,
+        qw(3c501 3c503 3c505 3c507 3c509 3c515 3c990 3c990fx),
+        qw(82596 ac3200 acenic aironet4500_card amd8111e at1700 atp),
+        qw(bcm4400 cassini cs89x0 de600 de620),
+        qw(depca dmfe e2100 eepro eexpress eth16i),
+        qw(ewrk3 hp hp-plus hp100),
+        qw(iph5526), #- fibre channel
+        qw(lance ne ni5010 ni52 ni65 nvnet),
+        qw(prism2_plx rcpci rhineget),
+        qw(sb1000 sc92031 smc-ultra smc9194),
+        qw(tc35815 tlan uli526x),
+      ),
+      if_(arch() !~ /alpha/,
+        qw(b44 com20020-pci de2104x),
+        qw(defxx), # most unused
+        qw(dgrs e100 eepro100 epic100 fealnx hamachi natsemi),
+        qw(ne2k-pci pcnet32 plip sis900 skfp starfire tulip),
+        qw(typhoon via-rhine winbond-840 forcedeth),
+        qw(sungem sunhme), # drivers for ultrasparc, but compiled in ix86 kernels...
+      ),
+      qw(3c59x 8139too 8139cp sundance), #rtl8139
+    ],
+    firewire => [ qw(eth1394 pcilynx) ],
+    gigabit => [
+      qw(atl1 bnx2 cxgb cxgb3 dl2k e1000 ixgb myri_sbus netxen_nic ns83820 qla3xxx r8169 s2io sis190 sk98lin skge sky2 spidernet tg3 via-velocity yellowfin),
+      qw(bcm5820 bcm5700), #- encrypted
+    ],
+
+    raw => [
+      qw(ppp_generic ppp_async ppp_deflate bsd_comp),
+    ],
+    pcmcia => [ 
+      qw(3c574_cs 3c589_cs axnet_cs fmvj18x_cs),
+      qw(ibmtr_cs nmclan_cs pcnet_cs smc91c92_cs),
+      qw(xirc2ps_cs xircom_cb xircom_tulip_cb),
+    ],
+   #- generic NIC detection for USB seems broken (class, subclass, 
+   #- protocol reported are not accurate) so we match network adapters against
+   #- known drivers :-(
+    usb => [ 
+      qw(catc cdc_ether kaweth pegasus rtl8150 usbnet),
+    ],
+    wireless => [
+      qw(acx-pci acx-usb adm8211 airo airo_cs aironet4500_cs aironet_cs arlan),
+      qw(at76_usb ath_pci atmel_cs atmel_pci bcm43xx com20020_cs dyc_ar5),
+      qw(hostap_cs hostap_pci hostap_plx ipw2100 ipw2200 ipw3945 madwifi_pci netwave_cs orinoco orinoco_cs orinoco_nortel orinoco_pci orinoco_plx orinoco_tmd),
+      qw(ndiswrapper prism2_cs prism2_pci prism2_usb prism54 r8180 ray_cs rt2400 rt2500 rt2570 rt61 rt73 rtusb),
+      qw(spectrum_cs usbvnet_rfmd vt_ar5k wavelan_cs wl3501_cs wvlan_cs zd1201 zd1211rw),
+      if_(arch() =~ /ppc/, qw(airport)),
+    ],
+    isdn => [
+      qw(avmfritz c4 cdc-acm b1pci divas hfc4s8s_l1 hfc_usb hfc4s8s_l1 hisax hisax_st5481 hisax_fcpcipnp hysdn sedlfax t1pci tpam w6692pci),
+      qw(fcpci fcdsl fcdsl fcdsl2 fcdslsl fcdslslusb fcdslusb fcdslusba fcusb fcusb2 fxusb fxusb_CZ)
+    ],
+    cellular => [
+      qw(nozomi option),
+    ],
+    modem => [
+      qw(ltmodem mwave sm56),
+    ],
+    slmodem => [
+      qw(slamr slusb snd-ali5451 snd-atiixp-modem snd-intel8x0m snd-via82xx-modem),
+    ],
+    tokenring => [ qw(3c359 abyss ibmtr lanstreamer olympic proteon skisa smctr tms380tr tmspci) ],
+    wan => [ qw(c101 cosa cyclomx cycx_drv dlci dscc4 farsync hdlc hostess_sv11 lmc n2 pc300 pci200syn sbni sdla sdladrv sealevel syncppp wanxl z85230) ],
+    usb_dsl => [ qw(cxacru eagle-usb speedtch ueagle-atm usbatm xusbatm) ],
+  },
+
+  ################################################################################
+  disk => 
+  {
+    # ide drivers compiled as modules:
+    ide => [
+        qw(aec62xx cs5520 cs5530 cs5535 delkin_cb it8213),
+        qw(rz1000 sc1200 slc90e66 tc86c001 triflex trm290 ide-generic) ],
+    # ide drivers compiled in core kernel:
+    all_ide => [
+        qw(ali14xx amd74xx dtc2278 ht6560b qd65xx umc8672 alim15x3 atiixp cmd64x cy82c693),
+        qw(hpt34x hpt366 ns87415 opti621 pdc202xx_new pdc202xx_old piix serverworks),
+        qw(siimage sis5513 via82cxxx),
+    ],
+    scsi => [
+      if_(arch() =~ /ppc/, qw(mesh mac53c94)),
+      if_(arch() =~ /^sparc/, qw(qlogicpti)),
+      if_(arch() !~ /alpha/ && arch() !~ /sparc/,
+	'53c7,8xx',
+        qw(AM53C974 BusLogic NCR53c406a a100u2w advansys aha152x aha1542 aha1740),
+        qw(atp870u dc395x dc395x_trm dmx3191d dtc g_NCR5380 in2000 initio pas16 pci2220i psi240i fdomain),
+        qw(qla1280 qla2x00 qla2xxx qlogicfas qlogicfc),
+        qw(seagate wd7000 shasta sim710 stex sym53c416 t128 tmscsim u14-34f ultrastor),
+        qw(eata eata_pio eata_dma nsp32),
+      ),
+      qw(aic7xxx aic7xxx_old aic79xx pci2000 qlogicfas408 sym53c8xx lpfc lpfcdd), # ncr53c8xx
+    ],
+    sata => [
+      # note that ata_piix manage RAID devices on ICH6R
+      qw(ahci aic94xx ata_adma ata_piix pata_pdc2027x pdc_adma sata_inic162x sata_mv sata_nv sata_promise sata_qstor sata_sil sata_sil24 sata_sis sata_svw sata_sx4 sata_uli sata_via sata_vsc sx8),
+      # new drivers: old ide drivers ported over libata:
+      qw(pata_ali pata_amd pata_artop pata_atiixp pata_cmd64x pata_cmd640 pata_cs5520 pata_cs5530 pata_cs5535 pata_cypress),
+      qw(pata_efar pata_hpt366 pata_hpt37x pata_hpt3x2n pata_hpt3x3 pata_isapnp pata_it821x pata_it8172 pata_it8213 pata_jmicron),
+      qw(pata_legacy pata_marvell pata_mpiix pata_netcell pata_ns87410 pata_oldpiix pata_opti pata_optidma),
+      qw(pata_pdc2027x pata_pdc202xx_old pata_platform pata_qdi pata_radisys pata_rz1000),
+      qw(pata_sc1200 pata_serverworks pata_sil680 pata_sis pata_sl82c105 pata_triflex pata_via pata_winbond),
+    ],
+    hardware_raid => [
+      if_(arch() =~ /^sparc/, qw(pluto)),
+      if_(arch() !~ /alpha/ && arch() !~ /sparc/,
+        # 3w-xxxx drives ATA-RAID, 3w-9xxx and arcmsr drive SATA-RAID
+        qw(a320raid megaide),
+        qw(3w-9xxx 3w-xxxx aacraid arcmsr cciss cpqfc cpqarray DAC960 dpt_i2o gdth hptiop i2o_block ipr it821x it8212),
+        qw(iteraid megaraid megaraid_mbox megaraid_sas mptfc mptsas mptspi mptscsih qla2100 qla2200 qla2300 qla2322 qla4xxx qla6312 qla6322 pdc-ultra),
+        qw(ips ppa imm),
+      ),
+    ],
+    pcmcia => [ qw(aha152x_cs fdomain_cs nsp_cs qlogic_cs ide-cs pata_pcmcia sym53c500_cs) ],
+    raw => [ qw(sd_mod) ],
+    usb => [ qw(usb-storage) ],
+    firewire => [ qw(sbp2) ],
+    cdrom => [ qw(ide-cd sr_mod) ],
+    card_reader => [ qw(sdhci tifm_sd tifm_7xx1) ],
+  },
+
+  ################################################################################
+
+  bus => 
+  {
+    usb => [ qw(isp116x-hcd ehci-hcd ohci-hcd uhci-hcd usb-uhci usb-ohci) ],
+    bluetooth => [ qw(bcm203x bfusb bpa10x hci_usb) ],
+    firewire => [ qw(ohci1394) ],
+    i2c => [
+      qw(i2c-ali1535 i2c-ali1563 i2c-ali15x3 i2c-amd756 i2c-amd8111 i2c-i801 i2c-i810 i2c-nforce2),
+      qw(i2c-piix4 i2c-prosavage i2c-savage4 i2c-sis5595 i2c-sis630 i2c-sis96x i2c-via i2c-viapro i2c-voodoo3),
+      if_(arch() !~ /^ppc/, qw(i2c-hydra i2c-ibm_iic i2c-mpc)),
+    ],
+    pcmcia => [
+      if_(arch() !~ /^sparc/, qw(au1x00_ss i82365 i82092 pd6729 tcic vrc4171_card vrc4173_cardu yenta_socket)), # cb_enabler
+    ],
+    usb_keyboard => [ qw(usbkbd keybdev) ],
+   #serial_cs
+   #ftl_cs 3c575_cb apa1480_cb epic_cb serial_cb tulip_cb iflash2+_mtd iflash2_mtd
+   #cb_enabler
+  },
+
+  fs => 
+  {
+    network => [ qw(af_packet nfs) ],
+    cdrom => [ qw(isofs) ],
+    loopback => [ qw(isofs loop squashfs), if_($ENV{MOVE}, qw(supermount)) ],
+    local => [
+      if_(arch() =~ /^i.86|x86_64/, qw(vfat ntfs)),
+      if_(arch() =~ /^ppc/, qw(hfs)),
+      qw(reiserfs jfs xfs),
+    ],
+    various => [ qw(smbfs romfs ext3 ufs ntfs) ],
+
+  },
+
+  ################################################################################
+  multimedia => 
+  {
+    sound => [
+      if_(arch() =~ /ppc/, qw(dmasound_pmac snd-aoa snd-powermac)),
+      if_(arch() =~ /sparc/, qw(snd-sun-amd7930 snd-sun-cs4231 snd-sun-dbri)),
+      if_(arch() !~ /^sparc/,
+          qw(ad1816 ad1848 ad1889 ali5455 audigy audio awe_wave cmpci cs4232 cs4281 cs46xx cx88-alsa),
+          qw(emu10k1 es1370 es1371 esssolo1 forte gus i810_audio ice1712 kahlua mad16 maestro),
+          qw(maestro3 mpu401 msnd_pinnacle nm256_audio nvaudio opl3 opl3sa opl3sa2 pas2 pss),
+          qw(rme96xx sam9407 sb sgalaxy snd-ad1816a snd-ad1848 snd-ad1889 snd-ali5451 snd-als100 snd-als300),
+          qw(snd-als4000 snd-atiixp snd-au8810 snd-au8820 snd-au8830 snd-audigyls snd-azt2320 snd-azt3328 snd-azx),
+          qw(snd-asihpi snd-bt87x snd-ca0106 snd-cmi8330 snd-cmipci snd-cs4231 snd-cs4232 snd-cs4236 snd-cs4281),
+          qw(snd-cs46xx snd-cs5535audio snd-darla20 snd-darla24 snd-dt019x snd-echo3g snd-emu10k1 snd-emu10k1x snd-ens1370 snd-ens1371 snd-es1688 snd-es18xx),
+          qw(snd-es1938 snd-es1968 snd-es968 snd-fm801 snd-gina20 snd-gina24 snd-gina3g snd-gusclassic snd-gusextreme),
+          qw(snd-gusmax snd-hda-intel snd-hdsp snd-hdspm snd-ice1712 snd-ice1724 snd-indi snd-indigo snd-indigodj snd-indigoio snd-intel8x0 snd-interwave),
+          qw(snd-interwave-stb snd-korg1212 snd-layla20 snd-layla24 snd-layla3g snd-maestro3 snd-mia snd-mixart snd-mona snd-mpu401 snd-nm256),
+          qw(snd-opl3sa2 snd-opti92x-ad1848 snd-opti92x-cs4231 snd-opti93x snd-pcxhr snd-riptide snd-rme32),
+          qw(snd-rme96 snd-rme9652 snd-sb16 snd-sb8 snd-sbawe snd-sgalaxy snd-sonicvibes),
+          qw(snd-sscape snd-trident snd-via82xx snd-vx222 snd-vxp440 snd-vxpocket snd-wavefront),
+          qw(snd-ymfpci sonicvibes sscape trident via82cxxx_audio wavefront ymfpci),
+      ),
+    ],
+    tv => [ qw(bt878 bttv cx8800 cx8802 cx88-blackbird dpc7146 ivtv mxb pvrusb2 saa7134 zr36067) ],
+    dvb => [
+        qw(b2c2-flexcop-pci b2c2-flexcop-usb budget budget-av budget-ci cinergyT2),
+        qw(dvb-dibusb dvb-ttpci dvb-ttusb-budget dvb-usb-a800 dvb-usb-cxusb),
+        qw(dvb-usb-dib0700 dvb-usb-dibusb-mb dvb-usb-dibusb-mc dvb-usb-digitv dvb-usb-dtt200u),
+        qw(dvb-usb-gp8ps dvb-usb-nova-t-usb2 dvb-usb-ttusb2 dvb-usb-umt-010 dvb-usb-vp702x dvb-usb-vp7045),
+        qw(hexium_gemini hexium_orion pluto2 skystar2 ttusb_dec),
+    ],
+    photo => [ qw(dc2xx mdc800) ],
+    radio => [ qw(radio-gemtek-pci radio-maestro radio-maxiradio) ],
+    scanner => [ qw(scanner microtek) ],
+    gameport => [ qw(cs461x ns558 emu10k1-gp fm801-gp lightning ns558 vortex) ],
+    usb_sound => [ qw(audio dabusb dsbr100 snd-usb-audio snd-usb-caiaq snd-usb-usx2y usb-midi) ],
+    webcam => [ qw(cafe_ccic cpia_usb cpia2 cyber2000fb em28xx et61x251 ibmcam konicawc mod_quickcam ov511 ov511-alt ov518_decomp ovfx2 pwc quickcam quickcam_messenger se401 stv680 sn9c102 ultracam usbvideo usbvision vicam w9968cf zc0301) ],
+  },
+
+  # USB input stuff get automagically loaded by hotplug and thus
+  # magically work through /dev/input/mice multiplexing:
+  input => {
+      joystick => [
+          qw(iforce xpad),
+          # there're more drivers in drivers/input/joystick but they support non USB or PCI devices
+          # and thus cannot be detected but by slow (and maybe dangerous?) load_category:
+          qw(a3d adi analog cobra db9 gamecon gf2k grip grip_mp guillemot interact),
+          qw(joydump magellan sidewinder spaceball spaceorb stinger tmdc turbografx warrior)
+      ],
+      remote => [ qw(ati_remote) ],
+      # USB tablets and touchscreens:
+      tablet => [ qw(acecad aiptek wacom kbtab) ],
+      touchscreen => [ qw(ads7846_ts gunze hp680_ts_input itmtouch mk712 mtouch mtouchusb touchkitusb) ],
+  },
+
+  various => 
+  # just here for classification, unused categories (nor auto-detect, nor load_thiskind)
+  {
+    raid => [
+      qw(dm-crypt dm-mirror dm-mod linear lvm-mod multipath raid0 raid1 raid10 raid5 raid6),
+    ],
+    mouse => [
+      qw(atixlmouse busmouse generic_serial inport ioc3_serial logibm logibusmouse msbusmouse pcips2 qpmouse synclinkmp),
+      if_(arch() =~ /ppc/, 'macserial'),
+      qw(mousedev usbhid usbmouse),
+    ],
+    char => [
+      if_(arch() =~ /ia64/, qw(efivars)),
+      qw(applicom n_r3964 nvram pc110pad ppdev),
+      qw(wdt_pci i810-tco sx), #- what are these???
+    ],
+    crypto => [
+      qw(amd768_rng amd7xx_tco i810_rng hw_random leedslite padlock),
+    ],
+    laptop => [
+      qw(i8k sonypi toshiba),
+    ],
+    serial => [
+      qw(8250_pci 8250 epca esp isicom istallion jsm moxa mxser mxser_new stallion sx synclink synclinkmp),
+    ],
+    other => [
+      qw(defxx i810fb ide-floppy ide-scsi ide-tape loop lp nbd sg st),
+      qw(parport_pc parport_serial),
+      qw(btaudio mmc_block),
+
+      'cryptoloop', arch() =~ /i.86/ ? 'aes-i586' : 'aes',
+      if_(arch() =~ /sparc/, 'openprom'),
+      
+      qw(evdev), qw(usblp printer), 'floppy',
+
+      #- these need checking
+      qw(rrunner meye),
+    ],
+    agpgart => [
+      if_(arch() =~ /alpha/, qw(alpha-agp)),
+      if_(arch() =~ /ia64/, qw(hp-agp i460-agp)),
+      if_(arch() =~ /ppc/, qw(uninorth-agp)),
+
+      qw(ali-agp amd64-agp amd-k7-agp ati-agp efficeon-agp intel-agp),
+	 qw(k7-agp mch-agp nvidia-agp sis-agp sworks-agp via-agp),
+    ],
+  },
+);
+
+my %dependencies;
+
+sub load_dependencies {
+    my ($file) = @_;
+
+    %dependencies = map {
+	s![^ ]*/!!g;
+	s!\.ko!!g;
+	s!\.gz!!g;
+	my ($f, $deps) = split ':';
+	$f => [ split ' ', $deps ];
+    } cat_($file);
+}
+
+sub dependencies_closure {
+    my @l = map { dependencies_closure($_) } @{$dependencies{$_[0]} || []};
+    (@l, $_[0]);
+}
+
+sub category2modules {
+    map {
+	my ($t1, $t2s) = m|(.*)/(.*)|;
+	my @sub = $t2s eq '*' ? keys %{$l{$t1}} : split('\|', $t2s);
+	map {
+	    my $l = $l{$t1}{$_} or die "bad category $t1/$_\n" . backtrace();
+	    @$l;
+	} @sub;
+    } split(' ', $_[0]);
+}
+
+sub all_modules() {
+    map { @$_ } map { values %$_ } values %l;
+}
+
+sub module2category {
+    my ($module) = @_;
+    foreach my $t1 (keys %l) {
+	my $h = $l{$t1};
+	foreach my $t2 (keys %$h) {
+	  $module eq $_ and return "$t1/$t2" foreach @{$h->{$t2}};
+      }
+    }
+    return;
+}
+
+sub ethernet_categories() {
+    'network/main|gigabit|pcmcia|tokenring|usb|wireless|firewire';
+}
+
+sub sub_categories {
+    my ($t1) = @_;
+    keys %{$l{$t1}};
+}
+
+1;
diff --git a/kernel/modules.pl b/kernel/modules.pl
new file mode 100644
index 000000000..baccde635
--- /dev/null
+++ b/kernel/modules.pl
@@ -0,0 +1,167 @@
+use strict;
+
+
+BEGIN {
+    #- for testing purpose
+    (my $f = __FILE__) =~ s|/[^/]*$||;
+    push @INC, $f;
+}
+
+use MDK::Common;
+use list_modules;
+
+
+sub flatten_and_check {
+    my ($h) = @_;
+    map { 
+	my $category = $_;
+	my @l = @{$h->{$category}};
+	if (my @bad = difference2(\@l, [ category2modules($category) ])) {
+	    foreach (@bad) {
+		if (my $cat = module2category($_)) {
+		    warn "ERROR in modules.pl: module $_ is in category $cat, not in $category\n";
+		} else {
+		    warn "ERROR in modules.pl: unknown module $_\n";
+		}
+	    }
+	    exit 1;
+	}
+	@l;
+    } keys %$h;
+}
+
+my $images_cat = 'fs/* disk/* bus/* network/* input/* various/*'; #- ie everything except multimedia
+
+my $verbose = $ARGV[0] eq '-v' && shift;
+my ($f, @para) = @ARGV;
+$::{$f}->(@para);
+
+sub modules() {
+    map { category2modules($_) } split(' ', $images_cat);
+}
+
+sub remove_unneeded_modules {
+    my ($kern_ver) = @_;
+
+    #- need creating a first time the modules.dep for all modules
+    filter_modules_dep($kern_ver);
+    load_dependencies("all.kernels/$kern_ver/modules.dep");
+
+    my @all = modules();
+    my @all_with_deps = map { dependencies_closure($_) } @all;
+    my %wanted_modules = map { ("$_.ko.gz" => 1) } @all_with_deps;
+    foreach (all("all.kernels/$kern_ver/modules")) {
+	$wanted_modules{$_} or unlink "all.kernels/$kern_ver/modules/$_";	
+    }
+}
+
+sub make_modules_per_image {
+    my ($kern_ver) = @_;
+
+    my $dir = "all.kernels/$kern_ver/modules";
+
+    system("cd $dir ; tar cf ../all_modules.tar *.ko.gz") == 0 or die "tar failed\n";
+}
+
+sub filter_modules_dep {
+    my ($kern_ver) = @_;
+
+    my @l = cat_("all.kernels/$kern_ver/modules.dep");
+
+    @l = map {
+	if (/(\S+):\s+(.*)/) {
+	    my ($module, @deps) = map { m!.*/(.*)\.k?o(\.gz)$! && $1 } $1, split(' ', $2);
+	    if (member($module, 'plip', 'ppa', 'imm')) {
+		@deps = map { $_ eq 'parport' ? 'parport_pc' : $_ } @deps;
+	    } elsif ($module eq 'vfat') {
+		push @deps, 'nls_cp437', 'nls_iso8859-1';
+	    }
+	    if_(@deps, join(' ', "$module:", @deps));
+	} else {
+	    ();
+	}
+    } @l;
+
+    output("all.kernels/$kern_ver/modules.dep", map { "$_\n" } @l);
+}
+
+sub get_main_modules() {
+    my $base = dirname($0);
+    my $main = chomp_(cat_("$base/RPMS/.main"));
+    chomp_(`tar tf $base/all.kernels/$main/all_modules.tar`);
+}
+
+sub pci_modules4stage1 {
+    my ($category) = @_;
+    my @modules = difference2([ category2modules($category) ]);
+    print "$_\n" foreach uniq(map { dependencies_closure($_) } @modules);
+}
+
+sub check() {
+    my $error;
+    my %listed;
+    while (my ($t1, $l) = each %list_modules::l) {
+	while (my ($t2, $l) = each %$l) {
+	    ref $l or die "bad $l in $t1/$t2";
+	    foreach (@$l) {
+		$listed{$_} = "$t1/$t2"; 
+	    }
+	}
+    }
+
+    my %module2category;
+    my %deprecated_modules = %listed;
+    my $not_listed = sub {
+	my ($msg, $verbose, @l) = @_;
+	my %not_listed;
+	foreach (@l) {
+	    my ($mod) = m|([^/]*)\.k?o(\.gz)?$| or next;
+	    delete $deprecated_modules{$mod};
+	    next if $listed{$mod};
+	    s|.*?mdk/||;
+	    s|kernel/||; s|drivers/||; s|3rdparty/||;
+	    $_ = dirname $_;
+	    $_ = dirname $_ if $mod eq basename($_);
+	    $module2category{$mod} = $_;
+	    push @{$not_listed{$_}}, $mod;
+	}
+	if ($verbose) {
+	    print "$msg $_: ", join(" ", @{$not_listed{$_}}), "\n" foreach sort keys %not_listed;
+	}
+    };
+    $not_listed->('NOT LISTED', 1, get_main_modules());
+    $not_listed->('not listed', $verbose, chomp_(`rpm -qpl RPMS/kernel-*2.6*`));
+    if (%deprecated_modules) {
+	my %per_cat;
+	push @{$per_cat{$listed{$_}}}, $_ foreach keys %deprecated_modules;
+	foreach my $cat (sort keys %per_cat) {
+	    print "bad/old modules ($cat) : ", join(" ", sort @{$per_cat{$cat}}), "\n";
+	}
+    }
+
+    {
+	require '/usr/bin/merge2pcitable.pl';
+	my $pcitable = read_pcitable("/usr/share/ldetect-lst/pcitable");
+	my $usbtable = read_pcitable("/usr/share/ldetect-lst/usbtable");
+
+	my @l1 = uniq grep { !/:/ && $_ ne 'unknown' } map { $_->[0] } values %$pcitable;
+	if (my @l = difference2(\@l1, [ keys %listed ])) {
+	    my %not_listed;
+	    push @{$not_listed{$module2category{$_}}}, $_ foreach @l;
+	    if (my $l = delete $not_listed{''}) {
+		print "bad/old pcitable modules : ", join(" ", @$l), "\n";
+	    }
+	    print STDERR "PCITABLE MODULES NOT LISTED $_: ", join(" ", sort @{$not_listed{$_}}), "\n" foreach sort keys %not_listed;
+	    #$error = 1;
+	}
+
+	my @l2 = uniq grep { !/:/ && $_ ne 'unknown' } map { $_->[0] } values %$usbtable;
+	if (my @l = difference2(\@l2, [ keys %listed ])) {
+	    my %not_listed;
+	    push @{$not_listed{$module2category{$_}}}, $_ foreach @l;
+	    print STDERR "usbtable modules not listed $_: ", join(" ", sort @{$not_listed{$_}}), "\n" foreach sort keys %not_listed;
+	}
+    }
+
+    exit $error;
+}