summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakboot
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakboot')
-rwxr-xr-xperl-install/standalone/drakboot250
1 files changed, 16 insertions, 234 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 2d5b06d32..b4fa43a98 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -1,8 +1,7 @@
#!/usr/bin/perl
# DrakBoot
-# $Id$
-# Copyright (C) 2001-2004 MandrakeSoft
+# Copyright (C) 2001-2008 Mandriva
# Yves Duret, Thierry Vignaud
#
# This program is free software; you can redistribute it and/or modify
@@ -24,245 +23,28 @@ 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 detect_devices;
use fsedit;
use fs;
-use Config;
-use POSIX;
-use Xconfig::various;
-use log;
-
-my $splash_working = any { /^--splash$/ } @ARGV;
my $in = 'interactive'->vnew('su');
-if (!$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV) {
- lilo_choice();
- $in->exit(0);
-}
-require ugtk2;
-ugtk2->import(qw(:helpers :wrappers :create));
-
-my $no_bootsplash;
-my $x_mode = Xconfig::various::runlevel() == 5;
-my $splash_mode = 1;
-my $auto_mode = any::get_autologin();
-my $switch_theme = '/usr/share/bootsplash/scripts/switch-themes';
-
-my $w = ugtk2->new($splash_working ? N("Graphical boot theme selection") : N("System mode"));
-my $window = $w->{window};
-$::main_window = $w->{rwindow} if !$::isEmbedded;
-
-$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
-}
-
-my $user_combo = Gtk2::OptionMenu->new;
-$user_combo->set_popdown_strings(list_users());
-$user_combo->entry->set_text($auto_mode->{autologin}) if $auto_mode->{autologin};
-my $desktop_combo = Gtk2::OptionMenu->new;
-$desktop_combo->set_popdown_strings(split(' ', `/usr/sbin/chksession -l`));
-$desktop_combo->entry->set_text($auto_mode->{desktop}) if $auto_mode->{desktop};
-
-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 = `/usr/share/bootsplash/scripts/detect-resolution`;
-#- 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 :-/
-}
-
-do { $no_bootsplash = 0; $cur_res = '800x600' } if $::testing;
-my @thms;
-my @boot_thms = if_(!$themes{default}, qw(default));
-chdir($themes{path}); #- we must change directory for correct @thms assignement
-foreach (all('.')) {
- if (-d $themes{path} . $_ && m/^[^.]/) {
- push @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{$_} = gtkset_size_request(Gtk2::OptionMenu->new, 10, -1);
-}
-
-if (!$no_bootsplash) {
- $combo{boot}->set_popdown_strings(@boot_thms);
- $combo{boot}->entry->set_text($themes{default});
-}
-
-my $boot_pic = gtkcreate_img($themes{def_thmb});
-change_image($boot_pic, $themes{default});
-
-my $_thm_button = Gtk2::Button->new(N("Install themes"));
-my $_B_create = gtksignal_connect(Gtk2::Button->new(N("Create new theme")), clicked => sub { system('/usr/sbin/draksplash ') });
-my $keep_logo = 1;
-
-#- ******** action to take on changing combos values
-
-$no_bootsplash == 0
- and $combo{boot}->entry->signal_connect(changed => sub { change_image($boot_pic, $combo{boot}->entry->get_text) });
-my ($x_box, $splash_box);
-
-gtkadd($window,
- gtkpack_(Gtk2::VBox->new(0,0),
- ($splash_working ?
- (1, gtkpack_(gtkset_border_width(Gtk2::VBox->new(0, 5), 5),
- 0, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new(N("Use graphical boot")), $splash_mode),
- clicked => sub {
- $splash_box->set_sensitive(!$splash_mode);
- $splash_mode = !$splash_mode;
- }),
- 1, gtkpack(gtkset_sensitive($splash_box = Gtk2::HBox->new(0, 0), $splash_mode),
- gtkpack__(Gtk2::VBox->new(0, 5),
- N("Theme"),
- $combo{boot},
- gtksignal_connect(Gtk2::CheckButton->new(N("Display theme\nunder console")), clicked => sub { invbool(\$keep_logo) }),
- ),
- Gtk2::VSeparator->new,
- gtkpack__(Gtk2::VBox->new(0, 5),
- $boot_pic))
- ),
- )
- :
- (1, gtkpack__(Gtk2::VBox->new(0, 5),
- gtksignal_connect(gtkset_active(Gtk2::CheckButton->new(N("Launch the graphical environment when your system starts")),
- $x_mode),
- clicked => sub {
- $x_box->set_sensitive(!$x_mode);
- $x_mode = !$x_mode;
- }),
- gtkpack__(gtkset_sensitive($x_box = Gtk2::VBox->new(0, 0), $x_mode),
- gtkpack__(Gtk2::VBox->new(0, 0),
- my @auto_buttons = gtkradio((N("Yes, I want autologin with this (user, desktop)")) x 2,
- N("No, I don't want autologin")),
- ),
- gtkpack__(
- my $auto_box = Gtk2::HBox->new,
- gtkpack(
- Gtk2::VBox->new,
- Gtk2::Label->new(N("Default user")),
- Gtk2::Label->new(N("Default desktop")),
- ),
- gtkpack(
- Gtk2::VBox->new,
- $user_combo,
- $desktop_combo
- ),
- )
- )
- )
- ),
- 0, create_okcancel({
- cancel_clicked => sub { ugtk2->exit(0) },
- ok_clicked => sub {
- Xconfig::various::runlevel($x_mode ? 5 : 3);
- updateAutologin();
- $no_bootsplash or update_bootsplash($combo{boot}->entry->get_text, $keep_logo);
- ugtk2->exit(0);
- }
- },
- ),
-
- )
- )
- );
-
-if (!$splash_working) {
- $auto_buttons[0]->signal_connect('toggled' => sub { $auto_box->set_sensitive($auto_buttons[0]->get_active) });
- $auto_buttons[1]->signal_connect('toggled' => sub { $auto_box->set_sensitive(!$auto_buttons[1]->get_active) });
- $auto_buttons[0]->set_active(1) if $auto_mode->{autologin};
- $auto_buttons[1]->set_active(1) if !$auto_mode->{autologin};
- $x_box->set_sensitive($x_mode);
- $auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0);
-}
-
-$window->show_all;
-gtkflush();
-$w->main;
+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 $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);
+}
+
+$::isWizard = 1;
+require security::level;
+my $level = security::level::from_string(security::level::get());
+eval { any::setupBootloaderUntilInstalled($in, $bootloader, $all_hds, $fstab, $level) };
+die if $@ && $@ !~ /^wizcancel/;
$in->exit(0);
-
-
-
-sub lilo_choice() {
- my $bootloader = bootloader::read();
-
- my ($all_hds) = fsedit::get_hds();
- my $fstab = [ fsedit::get_all_fstab($all_hds) ];
- fs::merge_info_from_fstab($fstab, '', 0, undef);
-
- ask:
- eval { any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) };
- my $err = $@;
- if ($err && $err !~ /wizcancel/) {
- # BUG: note that the following message won't speak about the right bootloader if user is currently switching between
- # various bootloaders and if the error occured before boot sector get overwritten by bootloader installer
- $in->ask_warn(N("Error"),
- [ N("Installation of %s failed. The following error occured:", bootloader::detect_bootloader()), $err ]);
- goto ask;
- }
-}
-
-
-
-#-------------------------------------------------------------
-# launch autologin functions
-#-------------------------------------------------------------
-
-sub updateAutologin() {
- my ($usern, $deskt) = ($user_combo->entry->get_text, $desktop_combo->entry->get_text);
- $::testing and return;
- if ($auto_buttons[0]->get_active) {
- any::set_autologin($usern, $deskt);
- } else {
- any::set_autologin();
- }
-}
-
-sub update_bootsplash {
- my ($theme, $keep_logo) = @_;
- if (-x $switch_theme) {
- my $val = $keep_logo ? 'theme' : 'no';
- if ($::testing) {
- print "substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$val/ } /etc/sysconfig/bootsplash\n";
- print "system($switch_theme, $theme)\n"
- } else {
- substInFile { s/^LOGO_CONSOLE=.*/LOGO_CONSOLE=$val/ } "/etc/sysconfig/bootsplash";
- system($switch_theme, $theme)
- }
- }
-}
-
-sub change_image {
- my ($boot_pic, $val) = @_;
- my $img_file = $themes{path} . $val . $themes{boot}{path}."bootsplash-$cur_res.jpg";
- -f $img_file or return;
- my $boot_pixbuf = gtkcreate_pixbuf($img_file);
- $boot_pixbuf = $boot_pixbuf->scale_simple(300, 200, 'nearest');
- $boot_pic->set_from_pixbuf($boot_pixbuf);
-}
generated by cgit v1.2.1 (git 2.21.0) at 2025-10-23 03:23:30 +0000