1 |
#!/usr/bin/perl |
2 |
|
3 |
use lib qw(/usr/lib/libDrakX); |
4 |
use Xconfig::card; |
5 |
require './merge2pcitable.pl'; |
6 |
|
7 |
my $cards = Xconfig::card::readCardsDB("../lst/Cards+"); |
8 |
|
9 |
my $bad; |
10 |
foreach my $file (qw(pcitable usbtable)) { |
11 |
my $drivers = read_pcitable("../lst/$file"); |
12 |
foreach (values %$drivers) { |
13 |
my ($driver, $name, $line) = @$_; |
14 |
my ($card) = $driver =~ /^Card:(.*)/ or next; |
15 |
if (!$cards->{$card}) { |
16 |
warn "$file:$line: unknown card $name\n"; |
17 |
$bad++; |
18 |
} elsif (!$cards->{$card}{Driver}) { |
19 |
warn "$file:$line: no Driver for card $name\n"; |
20 |
$bad++; |
21 |
} |
22 |
} |
23 |
} |
24 |
|
25 |
exit $bad; |