diff options
| -rw-r--r-- | perl-install/bootsplash.pm | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/perl-install/bootsplash.pm b/perl-install/bootsplash.pm new file mode 100644 index 000000000..fe4af57ac --- /dev/null +++ b/perl-install/bootsplash.pm @@ -0,0 +1,64 @@ +package bootsplash; + +use common; + +my $themes_dir = "$::prefix/usr/share/bootsplash/themes/"; +my $sysconfig_file = '$::prefix/etc/sysconfig/bootsplash'; +my $default_theme = 'Mandrivalinux'; +our $default_thumbnail = '/usr/share/libDrakX/pixmaps/nosplash_thumb.png'; + +sub read_theme_config { + my ($res) = @_; + my %theme = ( + name => $default_theme, + enabled => 1, + keep_logo => 1 + ); + if (-r $sysconfig_file) { + local $_; + foreach (cat_($sysconfig_file)) { + /^SPLASH=no/ and $theme{enabled} = 0; + /^THEME=(.*)/ && -f get_theme_image($1, $res) and $theme{name} = $1; + /^LOGO_CONSOLE=(.*)/ and $theme{keep_logo} = $1 ne "no"; + } + } + \%theme; +} + +sub get_theme_image { + my ($theme, $res) = @_; + $themes_dir . $theme . '/images/bootsplash-' . $res . ".jpg"; +} + +sub list_themes { + my ($res) = @_; + grep { + !/^\./ && -d $themes_dir . $_ && -f get_theme_image($_, $res); + } sort(all($themes_dir)); +} + +sub switch_theme { + my ($theme) = @_; + if ($::testing) { + print "enabling bootsplash theme $theme\n"; + } else { + #- theme scripts will update SPLASH value in sysconfig file + system("$::prefix/usr/share/bootsplash/scripts/switch-themes", $theme); + } +} + +sub remove_theme() { + if ($::testing) { + print "disabling bootplash theme\n"; + } else { + system("$::prefix/usr/share/bootsplash/scripts/remove-theme"); + } +} + +sub set_logo_console { + my ($keep_logo) = @_; + my $logo_console = $keep_logo ? 'theme' : 'no'; + substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$logo_console/ } $sysconfig_file; +} + +1; |