summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-03 23:42:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-03 23:42:34 +0000
commit352d0383f95262d6add1895362b64559bc77afa1 (patch)
tree4e63bbdf46aa030a02604d5dc01c7563b732c034 /perl-install/bootloader.pm
parente5db62489ae879526ffbe1c0eaa36f1ec05b748e (diff)
downloaddrakx-352d0383f95262d6add1895362b64559bc77afa1.tar
drakx-352d0383f95262d6add1895362b64559bc77afa1.tar.gz
drakx-352d0383f95262d6add1895362b64559bc77afa1.tar.bz2
drakx-352d0383f95262d6add1895362b64559bc77afa1.tar.xz
drakx-352d0383f95262d6add1895362b64559bc77afa1.zip
- fix some vga text modes 80x30
- chmod 600 lilo.conf when a password is given - fix general "append" (thanks to David Eastcott)
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm11
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index bf7683baa..0f6b2b728 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -26,9 +26,9 @@ use modules;
'0x0f01' => "80x50",
'0x0f02' => "80x43",
'0x0f03' => "80x28",
-'0x0f04' => "80x30",
-'0x0f05' => "80x34",
-'0x0f06' => "80x60",
+'0x0f05' => "80x30",
+'0x0f06' => "80x34",
+'0x0f07' => "80x60",
'0x0122' => "100x30",
785 => "640x480 in 16 bits (FrameBuffer only)",
788 => "800x600 in 16 bits (FrameBuffer only)",
@@ -703,12 +703,15 @@ sub write_lilo_conf {
open F, ">$f" or die "cannot create lilo config file: $f";
log::l("writing lilo config to $f");
+ chmod 0600, $f if $lilo->{password};
+
#- normalize: RESTRICTED is only valid if PASSWORD is set
delete $lilo->{restricted} if !$lilo->{password};
local $lilo->{default} = make_label_lilo_compatible($lilo->{default});
- $lilo->{$_} and print F "$_=$lilo->{$_}" foreach qw(boot map install vga default append keytable);
+ $lilo->{$_} and print F "$_=$lilo->{$_}" foreach qw(boot map install vga default keytable);
$lilo->{$_} and print F $_ foreach qw(linear lba32 compact prompt restricted);
+ print F "append=\"$lilo->{append}\"" if $lilo->{append};
print F "password=", $lilo->{password} if $lilo->{password}; #- also done by msec
print F "timeout=", round(10 * $lilo->{timeout}) if $lilo->{timeout};
print F "serial=", $1 if get_append($lilo, 'console') =~ /ttyS(.*)/;