diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootlook.pm | 172 |
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); |