From 68ef254ec0d874d2284a33f990be51baddb92488 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 18 Dec 2000 13:08:29 +0000
Subject: add verif

---
 convert/verify_Cards.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 convert/verify_Cards.pl

(limited to 'convert/verify_Cards.pl')

diff --git a/convert/verify_Cards.pl b/convert/verify_Cards.pl
new file mode 100755
index 00000000..b181704d
--- /dev/null
+++ b/convert/verify_Cards.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use Xconfigurator;
+require './merge2pcitable.pl';
+
+$cards = Xconfigurator::readCardsDB("../lst/Cards+");
+
+@cards = map {
+    my $drivers = read_pcitable("../lst/$_");
+    map { /^Card:(.*)/ } grep { /^Card/ } map { $_->[0] } values %$drivers;
+} qw(pcitable usbtable);
+
+foreach (@cards) {
+    $nb++;
+    if (!$cards->{$_}) {
+	print STDERR "unknown card: $_\n";
+	$bad++;
+    }
+}
+
+exit $bad;
-- 
cgit v1.2.1