diff options
author | Mystery Man <unknown@mandriva.org> | 2002-07-18 17:04:07 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-07-18 17:04:07 +0000 |
commit | 427da37597ce1818756dbe3e2482135886fa80ca (patch) | |
tree | 560d65515b02387e636d045df233e641aabf5c24 /perl-install/share/verify_modules.pl | |
parent | 53b3ee0964e09fa0a1ebf1f721485388afd8fa20 (diff) | |
download | drakx-427da37597ce1818756dbe3e2482135886fa80ca.tar drakx-427da37597ce1818756dbe3e2482135886fa80ca.tar.gz drakx-427da37597ce1818756dbe3e2482135886fa80ca.tar.bz2 drakx-427da37597ce1818756dbe3e2482135886fa80ca.tar.xz drakx-427da37597ce1818756dbe3e2482135886fa80ca.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_8_7mdk'.V1_1_8_7mdk
Diffstat (limited to 'perl-install/share/verify_modules.pl')
-rwxr-xr-x | perl-install/share/verify_modules.pl | 102 |
1 files changed, 0 insertions, 102 deletions
diff --git a/perl-install/share/verify_modules.pl b/perl-install/share/verify_modules.pl deleted file mode 100755 index 52b6ae8fc..000000000 --- a/perl-install/share/verify_modules.pl +++ /dev/null @@ -1,102 +0,0 @@ -#!/usr/bin/perl - -use lib ".."; -use common; -use modules; - -my $all = $ARGV[0] eq '-a'; - -my %modules = map { - chomp; - my @l = split "\t"; - my $mod = $l[-2]; - $mod =~ s/"(.*)"/$1/; - if_(!/^\s*#/ && $mod !~ /:/ && $mod ne 'unknown', $mod => $l[-1]) -} map { cat_("/usr/share/ldetect-lst/$_") } 'pcitable', 'usbtable'; - -my %l; -my $kernel = $all ? '/lib/modules' : '../../kernel'; -foreach (`find $kernel -name "*.o" -o -name "*.o.gz"`) { - s|.*/lib/modules/.*?/||; - s|kernel/drivers/||; - m|(.*)/(.*)\.o(\.gz)?$|; - $l{$2} = $1; -} - -foreach (keys %modules) { - my $ktype = $l{$_}; - my $dtype = $modules::drivers{$_}; - if (!$ktype && !$dtype) { - print "unused module $_ (descr $modules{$_}) (not in modules.pm nor in the kernel)\n"; - } elsif (!$dtype) { - $missing{$_} = $ktype; - } elsif (!$ktype) { - $unused{$_} = $dtype->{type} - if !member($dtype->{type}, 'sound'); - } -} - -foreach (sort keys %missing) { - print "missing $_ in modules.pm (type $missing{$_}, descr $modules{$_})\n"; -} -foreach (sort keys %unused) { - print "unused module $_ (type $unused{$_}) (not in the kernel)\n"; -} - -__END__ -my %m = %l; -my (%missing, %missing2); -while (my ($k, $v) = each %pci_probing::pcitable::ids) { - next if $v->[1] =~ /^(unknown$|ignore$|Card:|Server:|Bad:)/; - - $l{$v->[1]} or $missing{$v->[1]} = 1; - $modules::drivers{$v->[1]} or push @{$missing2{$v->[1]}}, $v->[0]; - delete $m{$v->[1]}; -} -print "W: unused entry in modules.pm $_\n" - foreach grep { !$l{$_} && !$missing{$_} #- will be reported below - } keys %modules::drivers; - -print qq|W: missing entry in modules.pm for $l{$_} "$_"\n| foreach grep { !$modules::drivers{$_} } keys %l; - -my %known; @known{qw(net scsi misc)} = (); -if ($ARGV[0] eq "-v") { - print "W: has no pci entry: $_ \n" foreach grep { exists $known{$m{$_}} } keys %m; -} - -print "E: missing module $_\n" - foreach grep { $modules::drivers{$_}{type} ne "sound" #- don't care about sound modules - } keys %missing; - -foreach (keys %missing2) { - print qq|E: missing entry in modules.pm for $l{$_} "$_"|; - print qq| => "|, join("<>", @{$missing2{$_}}), '"'; - print "\n"; -} - -#exit; - -my %devices_c = ( - net => "checkEthernetDev, DRIVER_NET, DRIVER_MINOR_ETHERNET", - scsi => "checkSCSIDev, DRIVER_SCSI, DRIVER_MINOR_NONE", - disk => "checkSCSIDev, DRIVER_SCSI, DRIVER_MINOR_NONE", - pcmcia => "NULL, DRIVER_PCMCIA, DRIVER_MINOR_NONE", - paride => "NULL, DRIVER_PARIDE, DRIVER_MINOR_NONE", - cdrom => "NULL, DRIVER_CDROM, DRIVER_MINOR_NONE", -); -my $devices_c = join "|", keys %devices_c; - -my %drivers = %modules::drivers; -$drivers{$_}{type} =~ /$devices_c/ or delete $drivers{$_} foreach keys %drivers; -foreach (cat_("../../install/devices.c")) { - if (/static struct driver drivers/ .. /^};/) { - /\s*{\s*"[^"]*"\s*,\s*"(.*)"/ or next; - delete $drivers{$1} or print qq|W: unused entry in devices.c $1\n|; - } -} -foreach (sort { $drivers{$a}{type} cmp $drivers{$b}{type} } keys %drivers) { - my ($m, $v) = ($_, $drivers{$_}); - /^(8390|sunrpc|lockd|dummy|st)$/ and next; - - print qq|E: missing entry in devices.c { "$v->{text}", "$m", 0, $devices_c{$v->{type}} }\n|; -} |