summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootsplash.pm24
1 files changed, 20 insertions, 4 deletions
diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm
index 3ee4772f7..2184b07b2 100644
--- a/perl-install/bootsplash.pm
+++ b/perl-install/bootsplash.pm
@@ -1,6 +1,7 @@
package bootsplash;
use common;
+use Xconfig::resolution_and_depth;
my $themes_dir = "$::prefix/usr/share/bootsplash/themes";
my $themes_config_dir = "$::prefix/etc/bootsplash/themes";
@@ -8,6 +9,16 @@ my $sysconfig_file = "$::prefix/etc/sysconfig/bootsplash";
my $bootsplash_scripts = "$::prefix/usr/share/bootsplash/scripts";
my $default_theme = 'Mandrivalinux';
our $default_thumbnail = '/usr/share/libDrakX/pixmaps/nosplash_thumb.png';
+our @resolutions = uniq(map { "$_->{X}x$_->{Y}" } Xconfig::resolution_and_depth::bios_vga_modes());
+
+sub get_framebuffer_resolution {
+ require bootloader;
+ my $bootloader = bootloader::read();
+ my $x_res = Xconfig::resolution_and_depth::from_bios($bootloader->{default_vga});
+ $x_res ?
+ ($x_res->{X} . 'x' . $x_res->{Y}, 1) :
+ (first(@resolutions), 0);
+}
sub themes_read_sysconfig {
my ($res) = @_;
@@ -75,9 +86,17 @@ sub set_logo_console {
substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$logo_console/ } $sysconfig_file;
}
+sub create_path {
+ my ($file) = @_;
+ require File::Basename;
+ my $dir = File::Basename::dirname($file);
+ -d $dir or mkdir_p($dir);
+}
+
sub theme_set_image_for_resolution {
my ($name, $res, $source_image) = @_;
my $dest_image = theme_get_image_for_resolution($name, $res);
+ create_path($dest_image);
system('convert', '-scale', $res, $source_image, $dest_image);
system($bootsplash_scripts . '/rewritejpeg', $dest_image);
}
@@ -91,10 +110,7 @@ sub theme_write_config_for_resolution {
my ($name, $res, $conf) = @_;
my $config = theme_get_config_for_resolution($name, $res);
- require File::Basename;
- my $dir = File::Basename::dirname($config);
- -d $dir or mkdir_p($dir);
-
+ create_path($config);
output($config,
qq(# This is the configuration file for the $res bootsplash picture
# this file is necessary to specify the coordinates of the text box on the