summaryrefslogtreecommitdiffstats
path: root/convert/verify_MonitorsDB
diff options
context:
space:
mode:
Diffstat (limited to 'convert/verify_MonitorsDB')
-rw-r--r--convert/verify_MonitorsDB16
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";
+ }
+}