diff options
Diffstat (limited to 'perl-install/standalone/drakboot')
| -rwxr-xr-x | perl-install/standalone/drakboot | 295 |
1 files changed, 295 insertions, 0 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot new file mode 100755 index 000000000..282c7096c --- /dev/null +++ b/perl-install/standalone/drakboot @@ -0,0 +1,295 @@ +#!/usr/bin/perl + +# DrakBoot +# $Id: drakboot 242795 2008-05-29 15:38:07Z tv $ +# Copyright (C) 2001-2008 Mandriva +# Yves Duret, Thierry Vignaud +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +use strict; +use diagnostics; +use lib qw(/usr/lib/libDrakX); + +use standalone; #- warning, standalone must be loaded very first, for 'explanations' +use c; +use common; +use interactive; +use any; +use bootloader; +use fsedit; +use fs; +use Config; +use POSIX; +use Xconfig::various; +use log; + +my $in = 'interactive'->vnew('su'); + +my $all_hds = fsedit::get_hds(); +fs::get_raw_hds('', $all_hds); +fs::get_info_from_fstab($all_hds); +my $fstab = [ fs::get::fstab($all_hds) ]; +my $cmdline = cat_('/proc/cmdline'); + +my $bootloader; +my $is_bootloader_mode = !$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV; + +if ($is_bootloader_mode || any { /^--splash$/ } @ARGV) { + $bootloader = bootloader::read($all_hds); + if (!$bootloader) { + $in->ask_okcancel('', N("No bootloader found, creating a new configuration"), 0) or $in->exit; + any::setupBootloaderBeforeStandalone($in->do_pkgs, $bootloader ||= {}, $all_hds, $fstab); + } +} + +if ($is_bootloader_mode) { + $::isWizard = 1; + eval { any::setupBootloaderUntilInstalled($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) }; + die if $@ && $@ !~ /^wizcancel/; + $in->exit(0); +} + +require ugtk2; +ugtk2->import(qw(:helpers :wrappers :create)); +require mygtk2; +mygtk2->import(qw(gtknew)); + +if (any { /^--splash$/ } @ARGV) { + splash_choice(); +} else { + autologin_choice(); +} + +sub run_boot_window { + my ($title, $pack_list, $apply_sub) = @_; + + my $w = ugtk2->new($title); + my $window = $w->{window}; + $::main_window = $w->{real_window}; + + $window->signal_connect(delete_event => sub { ugtk2->exit(0) }); + unless ($::isEmbedded) { + $window->set_border_width(2); + ### menus definition + # the menus are not shown but they provides shiny shortcut like C-q + my @menu_items = ([ N("/_File"), undef, undef, undef, '<Branch>' ], + [ N("/File/_Quit"), N("<control>Q"), sub { ugtk2->exit(0) }, undef, '<Item>' ], + ); + create_factory_menu($w->{rwindow}, @menu_items); + ######### menus end + } + gtkadd($window, gtknew('VBox', children => [ + @$pack_list, + 0, create_okcancel({ + cancel_clicked => sub { ugtk2->exit(0) }, + ok_clicked => sub { + $apply_sub->(); + ugtk2->exit(0); + } + }) ])); + $window->show_all; + gtkflush(); + $w->main; + $in->exit(0); +} + +sub splash_choice() { + require bootsplash; + my ($cur_res, $bootsplash_available) = bootsplash::get_framebuffer_resolution(); + $bootsplash_available = 1 if $::testing; + + my $theme = bootsplash::themes_read_sysconfig($cur_res); + $bootsplash_available or $theme->{enabled} = 0; + + my $boot_pic = gtknew('Image', file => $bootsplash::default_thumbnail); + change_image($boot_pic, $theme->{name}, $cur_res); + + my $theme_combo = gtknew('ComboBox', text => $theme->{name}, list => [ bootsplash::themes_list_for_resolution($cur_res) ]); + $theme_combo->entry->signal_connect(changed => sub { + $theme->{name} = $theme_combo->entry->get_text; + change_image($boot_pic, $theme->{name}, $cur_res); + }); + + my $splash_box; + my $boot_warn = 1; + my %modes = ( + text => N("Text only"), + verbose => N("Verbose"), + silent => N("Silent"), + ); + my $mode_combo = gtknew('ComboBox', text => $modes{$theme->{enabled} ? $cmdline =~ /\bsplash=silent\b/ ? 'silent' : 'verbose' : 'text'}, list => [ values %modes ]); + $mode_combo->entry->signal_connect(changed => sub { + $theme->{enabled} = $mode_combo->entry->get_text ne $modes{text}; + if ($boot_warn && !$bootsplash_available && $theme->{enabled}) { + if ($in->ask_yesorno(N("Warning"), + [ N("Your system bootloader is not in framebuffer mode. To activate graphical boot, select a graphic video mode from the bootloader configuration tool.") . "\n" . + N("Do you want to configure it now?") ])) { + enable_framebuffer(); + #- it would be nice to get available themes for new cur_res here + } + $boot_warn = 0; + } + $splash_box->set_sensitive($theme->{enabled}); + }); + + my $_thm_button = gtknew('Button', text => N("Install themes")); + + run_boot_window(N("Graphical boot theme selection"), + [ + 1, gtknew('VBox', spacing => 5, border_width => 5, children => [ + 0, gtknew('HBox', spacing => 5, children_tight => [ gtknew('Label', text => N("Graphical boot mode:")), $mode_combo ]), + 0, $splash_box = gtknew('HBox', sensitive => $theme->{enabled}, children_loose => [ + gtkadd(gtkcreate_frame(N("Theme")), + gtknew('VBox', spacing => 5, children_tight => [ + $theme_combo, + gtksignal_connect(gtkset_active(gtknew('CheckButton', text => N("Display theme\nunder console")), + $theme->{keep_logo}), + clicked => sub { invbool(\$theme->{keep_logo}) }) ])), + gtknew('VSeparator'), + gtknew('VBox', spacing => 5, children_tight => [ $boot_pic ]) ]), + 0, gtknew('Button', text => N("Create new theme"), clicked => sub { exec '/usr/sbin/draksplash' }) ]), + ], + sub { + bootsplash::set_logo_console($theme->{keep_logo}); + if ($theme->{enabled}) { + bootsplash::switch($theme->{name}); + } else { + bootsplash::remove(); + } + my $text = $mode_combo->entry->get_text; + my $mode = find { $modes{$_} eq $text } keys %modes; + set_splash_append($mode ne 'text' ? $mode : undef); + }); +} + +sub autologin_choice() { + my @users = sort(list_users()); + my @sessions = sort(split(' ', `/usr/sbin/chksession -l`)); + + my $x_mode = Xconfig::various::runlevel() == 5; + my $auto_mode = any::get_autologin(); + + my $user = member($auto_mode->{autologin}, @users) ? $auto_mode->{autologin} : $users[0]; + if (!$user) { + # no user, bad but add root anyway: + $user = "root"; + push @users, $user; + } + my $user_combo = gtknew('ComboBox', text => $user, list => \@users); + my $desktop_combo = Gtk2::ComboBox->new_with_strings(\@sessions, if_(member($auto_mode->{desktop}, @sessions), $auto_mode->{desktop})); + + my $auto_box = gtknew('Table', col_spacings => 5, row_spacings => 5, homogeneous => 1, children => [ + [ gtknew('Label_Left', text => N("Default user")), $user_combo ], + [ gtknew('Label_Left', text => N("Default desktop")), $desktop_combo ] ]); + $auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0); + + my @auto_buttons = gtkradio((N("No, I do not want autologin")) x 2, + N("Yes, I want autologin with this (user, desktop)")); + $auto_buttons[1]->signal_connect('toggled' => sub { $auto_box->set_sensitive($auto_buttons[1]->get_active) }); + $auto_buttons[0]->signal_connect('toggled' => sub { $auto_box->set_sensitive(!$auto_buttons[0]->get_active) }); + $auto_buttons[1]->set_active(1) if $auto_mode->{autologin}; + $auto_buttons[0]->set_active(1) if !$auto_mode->{autologin}; + + my $x_box; + run_boot_window(N("System mode"), + [ + 1, gtknew('VBox', spacing => 5, children_tight => [ + gtksignal_connect(gtkset_active(gtknew('CheckButton', text => N("Launch the graphical environment when your system starts")), + $x_mode), + clicked => sub { + $x_box->set_sensitive(!$x_mode); + $x_mode = !$x_mode; + }), + $x_box = gtknew('VBox', sensitive => $x_mode, children_tight => [ + gtknew('VBox', children_tight => [ @auto_buttons ]), + $auto_box + ]) ]) + ], + sub { + Xconfig::various::runlevel($x_mode ? 5 : 3); + $::testing and return; + if ($auto_buttons[1]->get_active) { + any::set_autologin($in->do_pkgs, $user_combo->entry->get_text, $desktop_combo->entry->get_text); + } else { + any::set_autologin($in->do_pkgs); + } + }); +} + + +#------------------------------------------------------------- +# launch autologin functions +#------------------------------------------------------------- + +sub change_image { + my ($boot_pic, $theme, $res) = @_; + my $img_file = bootsplash::theme_get_image_for_resolution($theme, $res); + -f $img_file or return; + my $boot_pixbuf = gtknew('Pixbuf', file => $img_file); + $boot_pixbuf = $boot_pixbuf->scale_simple(300, 200, 'nearest'); + $boot_pic->set_from_pixbuf($boot_pixbuf); +} + +sub set_splash_append { + my ($val) = @_; + bootloader::set_append_with_key($bootloader, 'splash', undef); + bootloader::set_append_with_key($bootloader, 'splash', $val); + modify_bootloader($bootloader, $all_hds); +} + +sub enable_framebuffer() { + my $vga = bootsplash::get_framebuffer_resolution(); + my ($current_entry) = $cmdline =~ /^BOOT_IMAGE=(\S+)/; + my %entries = ( + $current_entry => 1 + ); + local $::isWizard = 1; + local $::Wizard_no_previous = 1; + local $::Wizard_finished = 1; + $::Wizard_title = N("Boot Style Configuration"); + eval { + $in->ask_from(N("Video mode"), + N("Please choose a video mode, it will be applied to each of the boot entries selected below. +Be sure your video card supports the mode you choose."), + [ + { label => N("Video mode"), val => \$vga, + list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ], + format => \&Xconfig::resolution_and_depth::to_string + }, + map { + { text => $_->{label}, val => \$entries{$_->{label}}, type => 'bool' }; + } grep { $_->{label} !~ /failsafe|floppy|memtest/ } @{$bootloader->{entries}} + ]); + if ($vga) { + $vga = $vga->{bios} if ref($vga); + while (my ($label, $e) = each %entries) { + $e or next; + my $entry = find { $_->{label} eq $label } @{$bootloader->{entries}}; + $entry->{vga} = $vga; + } + modify_bootloader($bootloader, $all_hds); + } + }; + die if $@ && $@ !~ /^wizcancel/; + $::WizardWindow->destroy unless $::isEmbedded; + $vga; +} + +sub modify_bootloader { + my ($bootloader, $all_hds) = @_; + bootloader::action($bootloader, 'write', $all_hds); + bootloader::action($bootloader, 'when_config_changed'); +} |