/[soft]/ldetect-lst/trunk/convert/verify_Cards.pl
ViewVC logotype

Contents of /ldetect-lst/trunk/convert/verify_Cards.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1357 - (show annotations) (download)
Tue May 17 09:21:22 2011 UTC (10 years, 1 month ago) by dmorgan
File MIME type: text/plain
File size: 573 byte(s)
Import  ldetect
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;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.28