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