summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm51
1 files changed, 26 insertions, 25 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index f40f5610c..4935c6d17 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -948,46 +948,47 @@ sub write_lilo_conf {
local $\ = "\n";
my $f = arch() =~ /ia64/ ? "$::prefix/boot/efi/elilo.conf" : "$::prefix/etc/lilo.conf";
- local *F;
- open F, ">$f" or die "cannot create lilo config file: $f";
+ open(my $F, ">$f") or die "cannot create lilo config file: $f";
log::l("writing lilo config to $f");
chmod 0600, $f if $bootloader->{password};
#- normalize: RESTRICTED is only valid if PASSWORD is set
delete $bootloader->{restricted} if !$bootloader->{password};
-
+
local $bootloader->{default} = make_label_lilo_compatible($bootloader->{default});
- $bootloader->{$_} and print F "$_=$bootloader->{$_}" foreach qw(boot map install vga default keytable);
- $bootloader->{$_} and print F $_ foreach qw(linear geometric compact prompt nowarn restricted);
- print F qq(append="$bootloader->{append}") if $bootloader->{append};
- print F "password=", $bootloader->{password} if $bootloader->{password}; #- also done by msec
- print F "timeout=", round(10 * $bootloader->{timeout}) if $bootloader->{timeout};
- print F "serial=", $1 if get_append($bootloader, 'console') =~ /ttyS(.*)/;
+ print $F "# File generated by DrakX/drakboot";
+ print $F "# WARNING: do not forget to run lilo after modifying this file\n";
+ $bootloader->{$_} and print $F "$_=$bootloader->{$_}" foreach qw(boot map install vga default keytable);
+ $bootloader->{$_} and print $F $_ foreach qw(linear geometric compact prompt nowarn restricted);
+ print $F qq(append="$bootloader->{append}") if $bootloader->{append};
+ print $F "password=", $bootloader->{password} if $bootloader->{password}; #- also done by msec
+ print $F "timeout=", round(10 * $bootloader->{timeout}) if $bootloader->{timeout};
+ print $F "serial=", $1 if get_append($bootloader, 'console') =~ /ttyS(.*)/;
- print F "message=/boot/message" if arch() !~ /ia64/;
- print F "menu-scheme=wb:bw:wb:bw" if arch() !~ /ia64/;
+ print $F "message=/boot/message" if arch() !~ /ia64/;
+ print $F "menu-scheme=wb:bw:wb:bw" if arch() !~ /ia64/;
- print F "ignore-table" if any { $_->{unsafe} && $_->{table} } @{$bootloader->{entries}};
+ print $F "ignore-table" if any { $_->{unsafe} && $_->{table} } @{$bootloader->{entries}};
while (my ($dev, $bios) = each %{$bootloader->{bios}}) {
- print F "disk=$dev bios=$bios";
+ print $F "disk=$dev bios=$bios";
}
foreach (@{$bootloader->{entries}}) {
- print F "$_->{type}=", $file2fullname->($_->{kernel_or_dev});
- print F "\tlabel=", make_label_lilo_compatible($_->{label});
+ print $F "$_->{type}=", $file2fullname->($_->{kernel_or_dev});
+ print $F "\tlabel=", make_label_lilo_compatible($_->{label});
if ($_->{type} eq "image") {
- print F "\troot=$_->{root}" if $_->{root};
- print F "\tinitrd=", $file2fullname->($_->{initrd}) if $_->{initrd};
- print F qq(\tappend="$_->{append}") if $_->{append};
- print F "\tvga=$_->{vga}" if $_->{vga};
- print F "\tread-write" if $_->{'read-write'};
- print F "\tread-only" if !$_->{'read-write'};
+ print $F "\troot=$_->{root}" if $_->{root};
+ print $F "\tinitrd=", $file2fullname->($_->{initrd}) if $_->{initrd};
+ print $F qq(\tappend="$_->{append}") if $_->{append};
+ print $F "\tvga=$_->{vga}" if $_->{vga};
+ print $F "\tread-write" if $_->{'read-write'};
+ print $F "\tread-only" if !$_->{'read-write'};
} else {
- print F "\ttable=$_->{table}" if $_->{table};
- print F "\tunsafe" if $_->{unsafe} && !$_->{table};
+ print $F "\ttable=$_->{table}" if $_->{table};
+ print $F "\tunsafe" if $_->{unsafe} && !$_->{table};
if (my ($dev) = $_->{table} =~ m|/dev/(.*)|) {
if ($dev2bios{$dev}) {
@@ -997,8 +998,8 @@ sub write_lilo_conf {
}
}
while (my ($from, $to) = each %{$_->{mapdrive} || {}}) {
- print F "\tmap-drive=$from";
- print F "\t to=$to";
+ print $F "\tmap-drive=$from";
+ print $F "\t to=$to";
}
}
}