/[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 4400 - (show annotations) (download)
Fri May 4 01:07:27 2012 UTC (11 years, 10 months ago) by tv
File MIME type: text/plain
File size: 585 byte(s)
perl_checker cleanups
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;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.30