1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
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 }
|
