diff options
Diffstat (limited to 'perl-install/share/po/sr.po')
0 files changed, 0 insertions, 0 deletions
![]() |
index : drakx | |
Mageia Installer and base platform for many utilities | Thierry Vignaud [tv] |
summaryrefslogtreecommitdiffstats |
package bootloader; # $Id$
use diagnostics;
use strict;
use vars qw(%vga_modes);
#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use partition_table qw(:types);
use log;
use any;
use fsedit;
use devices;
use loopback;
use detect_devices;
use partition_table_raw;
use run_program;
use modules;
%vga_modes = (
'ask' => "Ask at boot",
'normal' => "Normal",
'0x0f01' => "80x50",
'0x0f02' => "80x43",
'0x0f03' => "80x28",
'0x0f05' => "80x30",
'0x0f06' => "80x34",
'0x0f07' => "80x60",
'0x0122' => "100x30",
785 => "640x480 in 16 bits (FrameBuffer only)",
788 => "800x600 in 16 bits (FrameBuffer only)",
791 => "1024x768 in 16 bits (FrameBuffer only)",
794 => "1280x1024 in 16 bits (FrameBuffer only)",
);
#-#####################################################################################
#- Functions
#-#####################################################################################
sub get {
my ($kernel, $bootloader) = @_;
$_->{kernel_or_dev} && $_->{kernel_or_dev} eq $kernel and return $_ foreach @{$bootloader->{entries}};
undef;
}
sub get_label {
my ($label, $bootloader) = @_;
$_->{label} && $_->{label} eq $label and return $_ foreach @{$bootloader->{entries}};
undef;
}
sub mkinitrd($$$) {
my ($prefix, $kernelVersion, $initrdImage) = @_;
$::oem or $::testing || -e "$prefix/$initrdImage" and return;
my $loop_boot = loopback::prepare_boot($prefix);
modules::load('loop');