MonitorsDB is full of bad EISA_ID :-(

1 files changed, 16 insertions, 0 deletions

diff --git a/convert/verify_MonitorsDB b/convert/verify_MonitorsDB
new file mode 100644
index 00000000..9da8ec6f
--- /dev/null
+++ b/convert/verify_MonitorsDB
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use Xconfig::monitor;
+
+my $monitors_db = Xconfig::monitor::readMonitorsDB("../lst/MonitorsDB");
+foreach (@$monitors_db) {
+    if ($_->{EISA_ID} =~ /^\w{3}[0-9a-f]{4}$/i) {
+	# perfect!
+    } elsif ($_->{EISA_ID} =~ /^([a-z]{3})([0-9a-f]{0,3})$/i) {
+	# we can correct this
+	printf "$_->{EISA_ID} should be %s%04x\n", $1, hex($2);
+    } else {
+	print "bad EISA_ID $_->{EISA_ID}\n";
+    }
+}