Initial revisionfirst_import

1 files changed, 117 insertions, 0 deletions

diff --git a/scripts/detect-resolution b/scripts/detect-resolution
new file mode 100755
index 0000000..dad066e
--- /dev/null
+++ b/scripts/detect-resolution
@@ -0,0 +1,117 @@
+#!/usr/bin/perl
+# -*- Mode: cperl -*-
+# Copyright (C) 2002 by Chmouel Boudjnah <chmouel@mandrakesoft.com>
+# Redistribution of this file is permitted under the terms of the GNU
+# Public License (GPL)
+#
+# Detect vga resolution we want.
+#
+
+#use strict;
+my (%main, %entry);
+
+my $vga = detect_from_cmdline(cat_('/proc/cmdline'));
+undef $vga if $vga =~ /x/; #lilo cmdline can't convert
+detect_from_loader() if not $vga;
+if ($vga) {
+    chomp $vga;
+    $vga =~ s/vga=//;
+    $vga = convert_vgamode();
+}
+print $vga, "\n" if $vga;
+
+sub detect_from_cmdline {return (grep /vga=\d+/, split("[ \t]", shift))[0];}
+sub detect_from_loader {
+    my $loader = `detectloader -q`;chomp $loader;
+    if ($loader =~ m/lilo/i ) {
+	parse_lilo_conf();
+	$vga = $entry{$main{default}}{vga};
+	$vga = $main{vga} if not $vga;
+    } elsif ($loader =~ /grub/i ) {
+	parse_grub_conf();
+	$vga = detect_from_cmdline($entry{$main{default}}{options});
+    }
+}
+sub parse_grub_conf {
+    my ($title);
+    my $cnt = 0;
+    my $grub_conf = "/boot/grub/menu.lst";
+    open F, $grub_conf or die "Can't open $grub_conf\n";
+
+    while (<F>) {
+	next if /^\s*#/;
+	$main{default} = $1 if /^default (\d+)/;
+	if (/^title\s+(.*)/) {
+	    $title=$1;
+	    $entry{$title}{title} = $title;
+	    $entry{$title}{cnt} = $cnt;
+	    $main{default} = $title if $entry{$title}{cnt} eq $main{default};
+	    $cnt++;
+	}
+	if (m/kernel\s+(\(.*\))([^\s]+)\s+(.*)/) {
+	    $entry{$title}{partition} = $1;
+	    $entry{$title}{kernel} = $2;
+	    $entry{$title}{options} = $3;
+	}
+	$entry{$title}{initrd} = $1 if m/\s*initrd.*\)(.*)/;
+    }
+    close F;
+}
+
+sub parse_lilo_conf {
+    my $lilo_conf="/etc/lilo.conf";
+    my ($vga, $label);
+    open F, $lilo_conf or die "Can't open $lilo_conf\n";
+    while (<F>) {
+	next if /^\s*#/;
+	$main{default} = $1 if m/^default=(.*)/;
+	$main{vga} = $1 if m/^vga=(.*)/;
+	$vga = $1 if /vga=(.*)/;
+	$label=$1 if /label=(.*)/;
+	$entry{$label}{vga} = $vga if ($label and $vga);
+	undef $vga if (/image=/ and $vga);
+    }
+    close F;
+}
+
+sub convert_vgamode {
+    my $v;
+    #From drakx Xconfigurator_consts.pm
+    my %vgamodes = (
+		    '640xx8'       => 769,
+		    '640x480x8'    => 769,
+		    '800xx8'       => 771,
+		    '800x600x8'    => 771,
+		    '1024xx8'      => 773,
+		    '1024x768x8'   => 773,
+		    '1280xx8'      => 775,
+		    '1280x1024x8'  => 775,
+		    '640xx15'      => 784,
+		    '640x480x15'   => 784,
+		    '800xx15'      => 787,
+		    '800x600x15'   => 787,
+		    '1024xx15'     => 790,
+		    '1024x768x15'  => 790,
+		    '1280xx15'     => 793,
+		    '1280x1024x15' => 793,
+		    '640xx16'      => 785,
+		    '640x480x16'   => 785,
+		    '800xx16'      => 788,
+		    '800x600x16'   => 788,
+		    '1024xx16'     => 791,
+		    '1024x768x16'  => 791,
+		    '1280xx16'     => 794,
+		    '1280x1024x16' => 794,
+		    #-    '640xx24'      => 786, #- there is a problem with these resolutions since the BIOS may take 24 or 32 planes.
+		    #-    '640x480x24'   => 786,
+		    #-    '800xx24'      => 789,
+		    #-    '800x600x24'   => 789,
+		    #-    '1024xx24'     => 792,
+		    #-    '1024x768x24'  => 792,
+		    #-    '1280xx24'     => 795,
+		    #-    '1280x1024x24' => 795,
+		   );
+    foreach my $k (keys %vgamodes) { $v = $k if $vgamodes{$k} == $vga }
+    undef $vga if not $v;return $v;
+}
+sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l }