summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm172
1 files changed, 170 insertions, 2 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 213736059..32913859a 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -96,9 +96,157 @@ my $a_button = new Gtk::CheckButton(_("Launch Aurora at boot time"));
my $a_box = new Gtk::VBox(0, 0);
my $x_box = new Gtk::VBox(0, 0);
my $disp_mode = arch() =~ /ppc/ ? _("Yaboot mode") : _("Lilo/grub mode");
+
+my %themes = ('path'=>'/usr/share/bootsplash/themes/',
+ 'default'=>'Mandrake',
+ 'def_thmb'=>'/usr/share/libDrakX/pixmaps/nosplash_thumb.png',
+ 'lilo'=>{'file'=>'/lilo/message',
+ 'thumb'=>'/lilo/thumb.png'} ,
+ 'boot'=>{'path'=>'/images/',
+ 'thumb'=>'/images/thumb.png',},
+ );
+my ($cur_res) = cat_('/etc/lilo.conf') =~ /vga=(.*)/;
+
+#- verify that current resolution is ok
+if ( member( $cur_res, qw( 785 788 791 794) ) ) {
+ ($cur_res) = $bootloader::vga_modes{$cur_res} =~ /^([0-9x]+).*?$/;
+} else {
+ $no_bootsplash = 1; #- we can't select any theme we're not in Framebuffer mode :-/
+}
+
+#- and check that lilo is the correct loader
+$no_bootsplash ||= chomp_(`detectloader -q`) ne 'LILO';
+
+my @thms;
+my @lilo_thms = ($themes{'default'})?():qw(default);
+my @boot_thms = ($themes{'default'})?():qw(default);
+chdir($themes{'path'}); #- we must change directory for correct @thms assignement
+foreach (glob("*")) {
+ if (-d $themes{'path'} . $_ && m/^[^.]/) {
+ push @thms, $_;
+ -f $themes{'path'} . $_ . $themes{'lilo'}{'file'} and push @lilo_thms, $_;
+ -f $themes{'path'} . $_ . $themes{'boot'}{'path'} . "bootsplash-$cur_res.jpg" and push @boot_thms, $_;
+ }
+# $_ eq $themes{'defaut'} and $default = $themes{'defaut'};
+}
+my %combo = ('thms'=> '','lilo'=> '','boot'=> '');
+foreach (keys (%combo)) {
+ $combo{$_} = new Gtk::Combo;
+ $combo{$_}->set_value_in_list(1, 0);
+}
+
+$combo{'thms'}->set_popdown_strings(@thms);
+$combo{'lilo'}->set_popdown_strings(@lilo_thms);
+$combo{'boot'}->set_popdown_strings(@boot_thms);
+
+my $lilo_pic = new Gtk::Pixmap(gtkcreate_png($themes{'def_thmb'}));
+my $boot_pic = new Gtk::Pixmap(gtkcreate_png($themes{'def_thmb'}));
+my $thm_button = new Gtk::Button(_("Install themes"));
+my $logo_thm = new Gtk::CheckButton(_("Display theme under console"));
+my $keep_logo = 1;
+$logo_thm->set_active(1);
+$logo_thm->signal_connect(clicked => sub { invbool(\$keep_logo) });
+
+#- ******** action to take on changing combos values
+
+$combo{'thms'}->entry->signal_connect(changed => sub {
+ my $thm_txt = $combo{'thms'}->entry->get_text();
+ $combo{'lilo'}->entry->set_text(member($thm_txt, @lilo_thms) ? $thm_txt : ($themes{'default'} || 'default'));
+ $combo{'boot'}->entry->set_text(member($thm_txt, @boot_thms) ? $thm_txt : ($themes{'default'} || 'default'));
+
+});
+
+$combo{'lilo'}->entry->signal_connect(changed => sub {
+ my $new_file = $themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'thumb'};
+ $lilo_pic->set(gtkcreate_png(-r $new_file ? $new_file : $themes{'def_thmb'}));
+});
+
+$combo{'boot'}->entry->signal_connect( changed => sub {
+ my $new_file = $themes{'path'}.$combo{'boot'}->entry->get_text().$themes{'boot'}{'thumb'};
+ if (! -f $new_file && -f $themes{'path'}.$combo{'boot'}->entry->get_text().$themes{'boot'}{'path'}."bootsplash-$cur_res.jpg"){
+ system("convert -scale 159x119 ".$themes{'path'}.$combo{'boot'}->entry->get_text().$themes{'boot'}{'path'}."bootsplash-$cur_res.jpg $new_file") and $in->ask_warn(_("Error"),_("Can't create Bootsplash preview"));
+ }
+ $boot_pic->set(gtkcreate_png(-r $new_file ? $new_file : $themes{'def_thmb'}));
+});
+
+$combo{'thms'}->entry->set_text($themes{'default'});
+
+$thm_button->signal_connect('clicked',
+
+sub {
+ my $error = 0;
+ my $boot_conf_file = '/etc/sysconfig/bootsplash';
+ my $lilomsg = '/boot/lilo-graphic/message';
+ #lilo installation
+ if (-f $themes{'path'}.$combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'}) {
+ use File::Copy;
+ copy($lilomsg,"/boot/lilo-graphic/message.old") or $in->ask_warn(_("Error"), _("unable to backup lilo message"));
+ copy($themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'}, $lilomsg) or $in->ask_warn(_("Error"), _("can't change lilo message"));
+ } else {
+ $error = 1;
+ $in->ask_warn(_("Error"), _("Lilo message not found"));
+ }
+ #bootsplash install
+ if ( -f $themes{'path'} . $combo{'boot'}->entry->get_text() . $themes{'boot'}{'path'} . "bootsplash-$cur_res.jpg") {
+ $bootsplash_cont = "# -*- Mode: shell-script -*-
+# Specify here if you want add the splash logo to initrd when
+# generating an initrd. You can specify :
+#
+# SPLASH=no to don't have a splash screen
+#
+# SPLASH=auto to make autodetect the splash screen
+#
+# SPLASH=INT When Integer could be 800x600 1024x768 1280x1024
+#
+SPLASH=$cur_res
+# Choose the themes. The should be based in
+# /usr/share/bootsplash/themes/
+THEME=" . $combo{'boot'}->entry->get_text() . "
+# Say yes here if you want to leave the logo on the console.
+# Three options :
+#
+# LOGO_CONSOLE=no don't display logo under console.
+#
+# LOGO_CONSOLE=yes display logo under console.
+#
+# LOGO_CONSOLE=theme leave the theme to decide.
+#
+LOGO_CONSOLE=" . ($keep_logo ? 'yes' : 'no') . "\n";
+ if (-f $boot_conf_file) {
+ eval { output($boot_conf_file, $bootsplash_cont) };
+ $@ and $in->ask_warn(_("Error"), _("Can't write /etc/sysconfig/bootsplash."));
+ } else {
+ $in->ask_warn(_("Error"), _("Can't write /etc/sysconfig/bootsplash\nFile not found."));
+ $error = 1;
+ }
+ } else {
+ $in->ask_warn("Error","BootSplash screen not found");
+ }
+ #here is mkinitrd time
+ if (!$error) {
+ foreach (map { if_(m|^/boot/initrd-(.*)\.img|, $1) } glob '/boot/*'){
+ if ( system("mkinitrd -f /boot/initrd-$_.img $_" ) ) {
+ $in->ask_warn(_("Error"),
+ _("Can't launch mkinitrd -f /boot/initrd-".$_.".img $_.
+Type \"mkinitrd -f /boot/initrd-".$_.".img $_\" in command line as root."));
+ $error = 1;
+ }
+ }
+ }
+ if (system('lilo')) {
+ $in->ask_warn(_("Error"),
+_("Can't relaunch LiLo!
+Launch \"lilo\" as root in command line to complete LiLo theme installation."));
+ $error = 1;
+ }
+ $in->ask_warn(_(($error)?"Error":"Notice"),
+ _($error?"Theme installation failed!":"LiLo and Bootsplash themes installation successfull"));
+ }
+);
+
gtkadd($window,
gtkpack__ (my $global_vbox = new Gtk::VBox(0,0),
- gtkadd (new Gtk::Frame ($disp_mode),
+ gtkadd (new Gtk::Frame ("$disp_mode"),
# gtkpack__(new Gtk::VBox(0,0),
(gtkpack_(gtkset_border_width(new Gtk::HBox(0, 0),5),
1,_("You are currently using %s as your boot manager.
@@ -109,6 +257,25 @@ Click on Configure to launch the setup wizard.", $lilogrub),
# )
),
+ #Splash Selector
+ gtkadd(my $thm_frame = new Gtk::Frame( _("Splash selection") ),
+ gtkpack__(gtkset_border_width(new Gtk::HBox(0,5),5),
+ gtkpack__(new Gtk::VBox(0,5),
+ _("Themes"),
+ $combo{'thms'},
+ _("\nSelect a theme for\nlilo and bootsplash,\nyou can choose\nthem separatly"),
+ $logo_thm),
+ gtkpack__(new Gtk::VBox(0,5),
+ _("Lilo screen"),
+ $combo{'lilo'},
+ $lilo_pic),
+ gtkpack__(new Gtk::VBox(0,5),
+ _("Bootsplash"),
+ $combo{'boot'},
+ $boot_pic,
+ $thm_button))
+ ),
+
# aurora
# gtkadd (new Gtk::Frame (_("Boot mode")),
# gtkpack__ (new Gtk::HBox(0,0),
@@ -176,9 +343,10 @@ if ($a_mode) {
}
$window->show_all();
+$no_bootsplash and $thm_frame->hide();
Gtk->main_iteration while Gtk->events_pending;
$::isEmbedded and kill USR2, $::CCPID;
-$inmain = 1;
+$inmain=1;
Gtk->main;
Gtk->exit(0);