add option to output using MonitorsDB format

1 files changed, 24 insertions, 0 deletions

diff --git a/monitor-parse-edid b/monitor-parse-edid
index 53e7d50..e35516a 100755
--- a/monitor-parse-edid
+++ b/monitor-parse-edid
@@ -375,6 +375,26 @@ sub ratio_name {
     }
 }
 
+sub to_MonitorsDB {
+    my ($edid) = @_;
+
+    $edid->{monitor_range} && $edid->{EISA_ID} or return;
+
+    my $detailed_timings = $edid->{detailed_timings} || [];
+    my @preferred_resolutions = map { 
+	join('x', $_->{horizontal_active}, $_->{vertical_active});
+    } grep { !$_->{bad_ratio} } @$detailed_timings;
+
+    join('; ', 
+	 $edid->{monitor_name} =~ /(\S+)/ ? $1 : $edid->{EISA_ID} =~ /(...)/ && $1,
+	 $edid->{monitor_name} ? $edid->{monitor_name} : $edid->{EISA_ID} =~ /...(.*)/ && $1,
+	 $edid->{EISA_ID},
+	 sprintf("%u-%u", $edid->{monitor_range}{horizontal_min}, $edid->{monitor_range}{horizontal_max}),
+	 sprintf("%u-%u", $edid->{monitor_range}{vertical_min}, $edid->{monitor_range}{vertical_max}),
+	 @$detailed_timings == 1 ? @preferred_resolutions : (),
+     );
+}
+
 sub print_edid {
     my ($edid, $verbose) = @_;
 
@@ -423,6 +443,7 @@ use Getopt::Long;
 GetOptions(
     'v' => \ (my $verbose),
     'perl' => \ (my $raw_perl),
+    'MonitorsDB' => \ (my $MonitorsDB),
 ) or usage();
 
 my $F;
@@ -449,6 +470,9 @@ if ($raw_perl) {
     my $s = Dumper($edid);
     $s =~ s/.*? = {/+{/; # remove variable name we don't want
     print $s;
+} elsif ($MonitorsDB) {
+    my $s = to_MonitorsDB($edid);
+    print "$s\n" if $s;
 } else {
     print_edid($edid, $verbose);
 }