diff options
author | Mystery Man <unknown@mandriva.org> | 2002-07-08 07:45:08 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-07-08 07:45:08 +0000 |
commit | be128d0615965c467107adeb2c8cecd1125318a1 (patch) | |
tree | 998f5b6803ad85a1411491ef4c499fa8b9760bb2 /perl-install/install_steps_interactive.pm | |
parent | 9555bb791920e8feace953f90cf908e864451b59 (diff) | |
download | drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.gz drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.bz2 drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.xz drakx-be128d0615965c467107adeb2c8cecd1125318a1.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_8_2mdk'.V1_1_8_2mdk
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r-- | perl-install/install_steps_interactive.pm | 1354 |
1 files changed, 0 insertions, 1354 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm deleted file mode 100644 index 7fe82508d..000000000 --- a/perl-install/install_steps_interactive.pm +++ /dev/null @@ -1,1354 +0,0 @@ -package install_steps_interactive; # $Id$ - - -use diagnostics; -use strict; -use vars qw(@ISA $new_bootstrap $com_license); - -@ISA = qw(install_steps); - -$com_license = _(" -Warning - -Please read carefully the terms below. If you disagree with any -portion, you are not allowed to install the next CD media. Press 'Refuse' -to continue the installation without using these media. - - -Some components contained in the next CD media are not governed -by the GPL License or similar agreements. Each such component is then -governed by the terms and conditions of its own specific license. -Please read carefully and comply with such specific licenses before -you use or redistribute the said components. -Such licenses will in general prevent the transfer, duplication -(except for backup purposes), redistribution, reverse engineering, -de-assembly, de-compilation or modification of the component. -Any breach of agreement will immediately terminate your rights under -the specific license. Unless the specific license terms grant you such -rights, you usually cannot install the programs on more than one -system, or adapt it to be used on a network. In doubt, please contact -directly the distributor or editor of the component. -Transfer to third parties or copying of such components including the -documentation is usually forbidden. - - -All rights to the components of the next CD media belong to their -respective authors and are protected by intellectual property and -copyright laws applicable to software programs. -"); - -#-###################################################################################### -#- misc imports -#-###################################################################################### -use common; -use partition_table qw(:types); -use partition_table_raw; -use install_steps; -use install_interactive; -use install_any; -use detect_devices; -use run_program; -use devices; -use fsedit; -use loopback; -use mouse; -use modules; -use lang; -use keyboard; -use any; -use fs; -use log; - -#-###################################################################################### -#- In/Out Steps Functions -#-###################################################################################### -sub errorInStep($$) { - my ($o, $err) = @_; - $o->ask_warn(_("Error"), [ _("An error occurred"), formatError($err) ]); -} - -sub kill_action { - my ($o) = @_; - $o->kill; -} - -sub charsetChanged {} - -#-###################################################################################### -#- Steps Functions -#-###################################################################################### -#------------------------------------------------------------------------------ -sub selectLanguage { - my ($o) = @_; - - $o->{lang} = any::selectLanguage($o, $o->{lang}, $o->{langs} ||= {}) - || return $o->ask_yesorno('', _("Do you really want to leave the installation?")) ? $o->exit : &selectLanguage; - install_steps::selectLanguage($o); - - $o->charsetChanged; - - if ($o->isa('interactive_gtk')) { - $o->ask_warn('', formatAlaTeX( -"If you see this message it is because you chose a language for -which DrakX does not include a translation yet; however the fact -that it is listed means there is some support for it anyway. - -That is, once GNU/Linux will be installed, you will be able to at -least read and write in that language; and possibly more (various -fonts, spell checkers, various programs translated etc. that -varies from language to language).")) if $o->{lang} !~ /^en/ && !lang::load_mo(); - } else { - #- don't use _( ) for this, as it is never translated - $o->ask_warn('', "The characters of your language can't be displayed in console, -so the messages will be displayed in english during installation") if $ENV{LANGUAGE} eq 'C'; - } - -sub acceptLicence { - my ($o) = @_; - unless ($o->{useless_thing_accepted}) { - $o->set_help('license'); - $o->{useless_thing_accepted} = $o->ask_from_list_(_("License agreement"), formatAlaTeX( -_("Introduction - -The operating system and the different components available in the Mandrake Linux distribution -shall be called the \"Software Products\" hereafter. The Software Products include, but are not -restricted to, the set of programs, methods, rules and documentation related to the operating -system and the different components of the Mandrake Linux distribution. - - -1. License Agreement - -Please read this document carefully. This document is a license agreement between you and -MandrakeSoft S.A. which applies to the Software Products. -By installing, duplicating or using the Software Products in any manner, you explicitly -accept and fully agree to conform to the terms and conditions of this License. -If you disagree with any portion of the License, you are not allowed to install, duplicate or use -the Software Products. -Any attempt to install, duplicate or use the Software Products in a manner which does not comply -with the terms and conditions of this License is void and will terminate your rights under this -License. Upon termination of the License, you must immediately destroy all copies of the -Software Products. - - -2. Limited Warranty - -The Software Products and attached documentation are provided \"as is\", with no warranty, to the -extent permitted by law. -MandrakeSoft S.A. will, in no circumstances and to the extent permitted by law, be liable for any special, -incidental, direct or indirect damages whatsoever (including without limitation damages for loss of -business, interruption of business, financial loss, legal fees and penalties resulting from a court -judgment, or any other consequential loss) arising out of the use or inability to use the Software -Products, even if MandrakeSoft S.A. has been advised of the possibility or occurance of such -damages. - -LIMITED LIABILITY LINKED TO POSSESSING OR USING PROHIBITED SOFTWARE IN SOME COUNTRIES - -To the extent permitted by law, MandrakeSoft S.A. or its distributors will, in no circumstances, be -liable for any special, incidental, direct or indirect damages whatsoever (including without -limitation damages for loss of business, interruption of business, financial loss, legal fees -and penalties resulting from a court judgment, or any other consequential loss) arising out -of the possession and use of software components or arising out of downloading software components -from one of Mandrake Linux sites which are prohibited or restricted in some countries by local laws. -This limited liability applies to, but is not restricted to, the strong cryptography components -included in the Software Products. - - -3. The GPL License and Related Licenses - -The Software Products consist of components created by different persons or entities. Most -of these components are governed under the terms and conditions of the GNU General Public -Licence, hereafter called \"GPL\", or of similar licenses. Most of these licenses allow you to use, -duplicate, adapt or redistribute the components which they cover. Please read carefully the terms -and conditions of the license agreement for each component before using any component. Any question -on a component license should be addressed to the component author and not to MandrakeSoft. -The programs developed by MandrakeSoft S.A. are governed by the GPL License. Documentation written -by MandrakeSoft S.A. is governed by a specific license. Please refer to the documentation for -further details. - - -4. Intellectual Property Rights - -All rights to the components of the Software Products belong to their respective authors and are -protected by intellectual property and copyright laws applicable to software programs. -MandrakeSoft S.A. reserves its rights to modify or adapt the Software Products, as a whole or in -parts, by all means and for all purposes. -\"Mandrake\", \"Mandrake Linux\" and associated logos are trademarks of MandrakeSoft S.A. - - -5. Governing Laws - -If any portion of this agreement is held void, illegal or inapplicable by a court judgment, this -portion is excluded from this contract. You remain bound by the other applicable sections of the -agreement. -The terms and conditions of this License are governed by the Laws of France. -All disputes on the terms of this license will preferably be settled out of court. As a last -resort, the dispute will be referred to the appropriate Courts of Law of Paris - France. -For any question on this document, please contact MandrakeSoft S.A. -")), [ __("Accept"), __("Refuse") ], "Refuse") eq "Accept" or $o->exit; - } -} -} - -#------------------------------------------------------------------------------ -sub selectKeyboard { - my ($o, $clicked) = @_; - - my $l = keyboard::lang2keyboards(lang::langs($o->{langs})); - - #- good guess, don't ask - return install_steps::selectKeyboard($o) - if !$::expert && !$clicked && $l->[0][1] >= 90 && listlength(lang::langs($o->{langs})) == 1; - - my @best = map { $_->[0] } @$l; - push @best, 'us_intl' if !member('us_intl', @best); - - my $format = sub { translate(keyboard::keyboard2text($_[0])) }; - my $other; - my $ext_keyboard = $o->{keyboard}; - $o->ask_from_( - { title => _("Keyboard"), - messages => _("Please choose your keyboard layout."), - advanced_messages => _("Here is the full list of keyboards available"), - advanced_label => _("More"), - callbacks => { changed => sub { $other = $_[0]==1 } }, - }, - [ if_(@best > 1, { val => \$o->{keyboard}, type => 'list', format => $format, sort => 1, - list => [ @best ] }), - { val => \$ext_keyboard, type => 'list', format => $format, - list => [ difference2([ keyboard::keyboards ], \@best) ], advanced => @best > 1 } - ]); - delete $o->{keyboard_unsafe}; - - $o->{keyboard} = $ext_keyboard if $other; - install_steps::selectKeyboard($o); -} -#------------------------------------------------------------------------------ -sub selectInstallClass1 { - my ($o, $verif, $l, $def, $l2, $def2) = @_; - $verif->($o->ask_from_list(_("Install Class"), _("Which installation class do you want?"), $l, $def) || die 'already displayed'); - - $::live ? 'Update' : $o->ask_from_list_(_("Install/Update"), _("Is this an install or an update?"), $l2, $def2); -} - -#------------------------------------------------------------------------------ -sub selectInstallClass { - my ($o, $clicked) = @_; - - my %c = my @c = ( - if_(!$::corporate, - _("Recommended") => "beginner", - ), - if_($o->{meta_class} ne 'desktop', - _("Expert") => "expert", - ), - ); - %c = @c = (_("Expert") => "expert") if $::expert && !$clicked; - - $o->set_help('selectInstallClassCorpo') if $::corporate; - - my $verifInstallClass = sub { $::expert = $c{$_[0]} eq "expert" }; - my $installMode = $o->{isUpgrade} ? $o->{keepConfiguration} ? __("Upgrade packages only") : __("Upgrade") : __("Install"); - - $installMode = $o->selectInstallClass1($verifInstallClass, - first(list2kv(@c)), ${{reverse %c}}{$::expert ? "expert" : "beginner"}, - [ __("Install"), __("Upgrade"), __("Upgrade packages only") ], $installMode); - - $o->{isUpgrade} = $installMode =~ /Upgrade/; - $o->{keepConfiguration} = $installMode =~ /packages only/; - - install_steps::selectInstallClass($o); -} - -#------------------------------------------------------------------------------ -sub selectMouse { - my ($o, $force) = @_; - - $force ||= $o->{mouse}{unsafe} || $::expert; - - my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name}; - $o->{mouse} = mouse::fullname2mouse( - $o->ask_from_treelist_('', _("Please choose the type of your mouse."), - '|', [ mouse::fullnames ], $prev) || return) if $force; - - if ($force && $o->{mouse}{type} eq 'serial') { - $o->set_help('selectSerialPort'); - $o->{mouse}{device} = - $o->ask_from_listf(_("Mouse Port"), - _("Please choose on which serial port your mouse is connected to."), - \&mouse::serial_port2text, - [ mouse::serial_ports ]) or return; - } - if (arch() =~ /ppc/ && $o->{mouse}{nbuttons} == 1) { - #- set a sane default F11/F12 - $o->{mouse}{button2_key} = 87; - $o->{mouse}{button3_key} = 88; - $o->ask_from('', _("Buttons emulation"), - [ - { label => _("Button 2 Emulation"), val => \$o->{mouse}{button2_key}, list => [ mouse::ppc_one_button_keys() ], format => \&mouse::ppc_one_button_key2text }, - { label => _("Button 3 Emulation"), val => \$o->{mouse}{button3_key}, list => [ mouse::ppc_one_button_keys() ], format => \&mouse::ppc_one_button_key2text }, - ]) or return; - } - - if ($o->{mouse}{device} eq "usbmouse") { - any::load_category($o, 'bus/usb', !$::expert, 1, $o->{pcmcia}); - eval { - devices::make("usbmouse"); - modules::load(qw(hid mousedev usbmouse)); - }; - } - - $o->SUPER::selectMouse; - 1; -} -#------------------------------------------------------------------------------ -sub setupSCSI { - my ($o, $clicked) = @_; - - if (!$::noauto && arch() =~ /i.86/) { - if ($o->{pcmcia} ||= !$::testing && c::pcmcia_probe()) { - my $w = $o->wait_message(_("PCMCIA"), _("Configuring PCMCIA cards...")); - my $results = modules::configure_pcmcia($o->{pcmcia}); - $w = undef; - $results and $o->ask_warn('', $results); - } - } - { - my $w = $o->wait_message(_("IDE"), _("Configuring IDE")); - modules::load_category('disk/cdrom'); - } - any::load_category($o, 'disk/scsi|hardware_raid', !$::expert && !$clicked, 0, $o->{pcmcia}); - - install_interactive::tellAboutProprietaryModules($o) if !$clicked; -} - -sub ask_mntpoint_s { - my ($o, $fstab) = @_; - $o->set_help('ask_mntpoint_s'); - - my @fstab = grep { isTrueFS($_) } @$fstab; - @fstab = grep { isSwap($_) } @$fstab if @fstab == 0; - @fstab = @$fstab if @fstab == 0; - die _("No partition available") if @fstab == 0; - - { - my $w = $o->wait_message('', _("Scanning partitions to find mount points")); - install_any::suggest_mount_points($fstab, $o->{prefix}, 'uniq'); - log::l("default mntpoint $_->{mntpoint} $_->{device}") foreach @fstab; - } - if (@fstab == 1) { - $fstab[0]{mntpoint} = '/'; - } else { - $o->ask_from('', - _("Choose the mount points"), - [ map { { label => partition_table::description($_), - val => \$_->{mntpoint}, - not_edit => 0, - list => [ '', fsedit::suggestions_mntpoint(fsedit::empty_all_hds()) ] } - } grep { !$_->{real_mntpoint} || common::usingRamdisk() } @fstab ]) or return; - } - $o->SUPER::ask_mntpoint_s($fstab); -} - -#------------------------------------------------------------------------------ -sub doPartitionDisks { - my ($o) = @_; - - my $warned; - install_any::getHds($o, sub { - my ($err) = @_; - $warned = 1; - if ($o->ask_yesorno(_("Error"), -_("I can't read your partition table, it's too corrupted for me :( -I can try to go on, erasing over bad partitions (ALL DATA will be lost!). -The other solution is to not allow DrakX to modify the partition table. -(the error is %s) - -Do you agree to loose all the partitions? -", $err))) { - 0; - } else { - $o->{partitioning}{readonly} = 1; - 1; - } - }) or $warned or $o->ask_warn('', -_("DiskDrake failed to read correctly the partition table. -Continue at your own risk!")); - - if (arch() =~ /ppc/ && detect_devices::get_mac_generation =~ /NewWorld/) { #- need to make bootstrap part if NewWorld machine - thx Pixel ;^) - if (defined $partition_table_mac::bootstrap_part) { - #- don't do anything if we've got the bootstrap setup - #- otherwise, go ahead and create one somewhere in the drive free space - } else { - if (defined $partition_table_mac::freepart_start && $partition_table_mac::freepart_size >= 1) { - my ($hd) = $partition_table_mac::freepart_device; - log::l("creating bootstrap partition on drive /dev/$hd->{device}, block $partition_table_mac::freepart_start"); - $partition_table_mac::bootstrap_part = $partition_table_mac::freepart_part; - log::l("bootstrap now at $partition_table_mac::bootstrap_part"); - fsedit::add($hd, { start => $partition_table_mac::freepart_start, size => 1 << 11, type => 0x401, mntpoint => '' }, $o->{all_hds}, { force => 1, primaryOrExtended => 'Primary' }); - $new_bootstrap = 1; - } else { - $o->ask_warn('',_("No free space for 1MB bootstrap! Install will continue, but to boot your system, you'll need to create the bootstrap partition in DiskDrake")); - } - } - } - - if ($o->{isUpgrade}) { - # either one root is defined (and all is ok), or we take the first one we find - my $p = fsedit::get_root_($o->{fstab}); - if (!$p) { - my @l = install_any::find_root_parts($o->{fstab}, $o->{prefix}) or die _("No root partition found to perform an upgrade"); - $p = $o->ask_from_listf(_("Root Partition"), - _("What is the root partition (/) of your system?"), - \&partition_table::description, \@l) or die "setstep exitInstall\n"; - } - install_any::use_root_part($o->{all_hds}, $p, $o->{prefix}); - } elsif ($::expert && $o->isa('interactive_gtk')) { - install_interactive::partition_with_diskdrake($o, $o->{all_hds}); - } else { - install_interactive::partitionWizard($o); - } -} - -#------------------------------------------------------------------------------ -sub rebootNeeded { - my ($o) = @_; - $o->ask_warn('', _("You need to reboot for the partition table modifications to take place")); - - install_steps::rebootNeeded($o); -} - -#------------------------------------------------------------------------------ -sub choosePartitionsToFormat { - my ($o, $fstab) = @_; - - $o->SUPER::choosePartitionsToFormat($fstab); - - my @l = grep { !$_->{isMounted} && $_->{mntpoint} && - (!isSwap($_) || $::expert) && - (!isFat($_) || $_->{notFormatted} || $::expert) && - (!isOtherAvailableFS($_) || $::expert || $_->{toFormat}) - } @$fstab; - $_->{toFormat} = 1 foreach grep { isSwap($_) && !$::expert } @$fstab; - - return if @l == 0 || !$::expert && 0 == grep { ! $_->{toFormat} } @l; - - #- keep it temporary until the guy has accepted - $_->{toFormatTmp} = $_->{toFormat} || $_->{toFormatUnsure} foreach @l; - - $o->ask_from_( - { messages => _("Choose the partitions you want to format"), - advanced_messages => _("Check bad blocks?"), - }, - [ map { - my $e = $_; - ({ - text => partition_table::description($e), type => 'bool', - val => \$e->{toFormatTmp} - }, if_(!isLoopback($_) && !isThisFs("reiserfs", $_) && !isThisFs("xfs", $_) && !isThisFs("jfs", $_), { - text => partition_table::description($e), type => 'bool', advanced => 1, - disabled => sub { !$e->{toFormatTmp} }, - val => \$e->{toFormatCheck} - })) } @l ] - ) or die 'already displayed'; - #- ok now we can really set toFormat - foreach (@l) { - $_->{toFormat} = delete $_->{toFormatTmp}; - $_->{isFormatted} = 0; - } -} - - -sub formatMountPartitions { - my ($o, $fstab) = @_; - my $w; - fs::formatMount_all($o->{all_hds}{raids}, $o->{fstab}, $o->{prefix}, sub { - my ($part) = @_; - $w ||= $o->wait_message('', _("Formatting partitions")); - $w->set(isLoopback($part) ? - _("Creating and formatting file %s", $part->{loopback_file}) : - _("Formatting partition %s", $part->{device})); - }); - die _("Not enough swap space to fulfill installation, please add some") if availableMemory < 40 * 1024; -} - -#------------------------------------------------------------------------------ -sub setPackages { - my ($o) = @_; - my $w = $o->wait_message('', _("Looking for available packages...")); - $o->SUPER::setPackages; -} -#------------------------------------------------------------------------------ -sub selectPackagesToUpgrade { - my ($o) = @_; - my $w = $o->wait_message('', _("Finding packages to upgrade...")); - $o->SUPER::selectPackagesToUpgrade(); -} -#------------------------------------------------------------------------------ -sub choosePackages { - my ($o, $packages, $compssUsers, $first_time) = @_; - - #- this is done at the very beginning to take into account - #- selection of CD by user if using a cdrom. - $o->chooseCD($packages) if $o->{method} eq 'cdrom' && !$::oem; - - my $availableC = install_steps::choosePackages(@_); - my $individual = $::expert; - - require pkgs; - - my $min_size = pkgs::selectedSize($packages); - $min_size < $availableC or die _("Your system does not have enough space left for installation or upgrade (%d > %d)", $min_size, $availableC); - - my $min_mark = $::expert ? 3 : 4; - my $def_mark = 4; #-TODO: was 59, 59 is for packages that need gl hw acceleration. - - my $b = pkgs::saveSelected($packages); - pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $def_mark, 0); - my $def_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero. - my $level = pkgs::setSelectedFromCompssList($packages, { map { $_ => 1 } map { @{$compssUsers->{$_}{flags}} } @{$o->{compssUsersSorted}} }, $min_mark, 0); - my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero. - pkgs::restoreSelected($b); - - $o->chooseGroups($packages, $compssUsers, $min_mark, \$individual, $max_size) if !$::corporate; - - ($o->{packages_}{ind}) = - pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $min_mark, $availableC); - - $o->choosePackagesTree($packages) if $individual; - - install_any::warnAboutNaughtyServers($o); -} - -sub chooseSizeToInstall { - my ($o, $packages, $min, $def, $max, $availableC) = @_; - min($def, $availableC * 0.7); -} -sub choosePackagesTree { - my ($o, $packages, $limit_to_medium) = @_; - - $o->ask_many_from_list('', _("Choose the packages you want to install"), - { - list => [ grep { !$limit_to_medium || pkgs::packageMedium($packages, $_) == $limit_to_medium } - map { pkgs::packageByName($packages, $_) } - keys %{$packages->{names}} ], - value => \&pkgs::packageFlagSelected, - label => \&pkgs::packageName, - sort => 1, - }); -} -sub loadSavePackagesOnFloppy { - my ($o, $packages) = @_; - my $choice = $o->ask_from_listf('', -_("Please choose load or save package selection on floppy. -The format is the same as auto_install generated floppies."), - sub { $_[0]{text} }, - [ { text => _("Load from floppy"), code => sub { - while (1) { - my $w = $o->wait_message(_("Package selection"), _("Loading from floppy")); - log::l("load package selection from floppy"); - my $O = eval { install_any::loadO({}, 'floppy') }; - if ($@) { - $w = undef; #- close wait message. - $o->ask_okcancel('', _("Insert a floppy containing package selection")) - or return; - } else { - install_any::unselectMostPackages($o); - foreach (@{$O->{default_packages} || []}) { - my $pkg = pkgs::packageByName($packages, $_); - pkgs::selectPackage($packages, $pkg) if $pkg; - } - return 1; - } - } - } }, - { text => _("Save on floppy"), code => sub { - log::l("save package selection to floppy"); - install_any::g_default_packages($o, 'quiet'); - } }, - { text => _("Cancel") }, - ]); - $choice->{code} and $choice->{code}(); -} -sub chooseGroups { - my ($o, $packages, $compssUsers, $min_level, $individual, $max_size) = @_; - - my $b = pkgs::saveSelected($packages); - install_any::unselectMostPackages($o); - pkgs::setSelectedFromCompssList($packages, {}, $min_level, $max_size); - my $system_size = pkgs::selectedSize($packages); - my ($sizes, $pkgs) = pkgs::computeGroupSize($packages, $min_level); - pkgs::restoreSelected($b); - log::l("system_size: $system_size"); - - my @groups = @{$o->{compssUsersSorted}}; - my %stable_flags = grep_each { $::b } %{$o->{compssUsersChoice}}; - delete $stable_flags{$_} foreach map { @{$compssUsers->{$_}{flags}} } @groups; - - my $compute_size = sub { - my %pkgs; - my %flags = %stable_flags; @flags{@_} = (); - my $total_size; - A: while (my ($k, $size) = each %$sizes) { - Or: foreach (split "\t", $k) { - foreach (split "&&") { - exists $flags{$_} or next Or; - } - $total_size += $size; - $pkgs{$_} = 1 foreach @{$pkgs->{$k}}; - next A; - } - } - log::l("computed size $total_size"); - log::l("chooseGroups: ", join(" ", sort keys %pkgs)); - - int $total_size; - }; - my %val = map { - $_ => ! grep { ! $o->{compssUsersChoice}{$_} } @{$compssUsers->{$_}{flags}} - } @groups; - -# @groups = grep { $size{$_} = round_down($size{$_} / sqr(1024), 10) } @groups; #- don't display the empty or small one (eg: because all packages are below $min_level) - my ($all, $size); - my $available_size = install_any::getAvailableSpace($o) / sqr(1024); - my $size_to_display = sub { - my $lsize = $system_size + $compute_size->(map { @{$compssUsers->{$_}{flags}} } grep { $val{$_} } @groups); - - #- if a profile is deselected, deselect everything (easier than deselecting the profile packages) - $size > $lsize and install_any::unselectMostPackages($o); - $size = $lsize; - _("Total size: %d / %d MB", pkgs::correctSize($size / sqr(1024)), $available_size); - }; - - while (1) { - if ($available_size < 140) { - # too small to choose anything. Defaulting to no group chosen - $val{$_} = 0 foreach %val; - last; - } - - $o->reallyChooseGroups($size_to_display, $individual, \%val) or return; - last if pkgs::correctSize($size / sqr(1024)) < $available_size; - - $o->ask_warn('', _("Selected size is larger than available space")); - } - - $o->{compssUsersChoice}{$_} = 0 foreach map { @{$compssUsers->{$_}{flags}} } grep { !$val{$_} } keys %val; - $o->{compssUsersChoice}{$_} = 1 foreach map { @{$compssUsers->{$_}{flags}} } grep { $val{$_} } keys %val; - - log::l("compssUsersChoice: " . (!$val{$_} && "not ") . "selected [$_] as [$o->{compssUsers}{$_}{label}]") foreach keys %val; - - #- if no group have been chosen, ask for using base system only, or no X, or normal. - unless ($o->{isUpgrade} || grep { $val{$_} } keys %val) { - my $docs = !$o->{excludedocs}; - my $minimal = !grep { $_ } values %{$o->{compssUsersChoice}}; - - $o->ask_from(_("Type of install"), - _("You haven't selected any group of packages. -Please choose the minimal installation you want:"), - [ - { val => \$o->{compssUsersChoice}{X}, type => 'bool', text => _("With X"), disabled => sub { $minimal } }, - if_($::expert || $minimal, - { val => \$docs, type => 'bool', text => _("With basic documentation (recommended!)"), disabled => sub { $minimal } }, - { val => \$minimal, type => 'bool', text => _("Truly minimal install (especially no urpmi)") }, - ), - ], - changed => sub { $o->{compssUsersChoice}{X} = $docs = 0 if $minimal }, - ) or return &chooseGroups; - - $o->{excludedocs} = !$docs || $minimal; - - #- reselect according to user selection. - if ($minimal) { - $o->{compssUsersChoice}{$_} = 0 foreach keys %{$o->{compssUsersChoice}}; - } else { - my $X = $o->{compssUsersChoice}{X}; #- don't let setDefaultPackages modify this one - install_any::setDefaultPackages($o, 'clean'); - $o->{compssUsersChoice}{X} = $X; - } - install_any::unselectMostPackages($o); - } - 1; -} - -sub reallyChooseGroups { - my ($o, $size_to_display, $individual, $val) = @_; - - my $size_text = &$size_to_display; - - my ($path, $all); - $o->ask_from('', _("Package Group Selection"), [ - { val => \$size_text, type => 'label' }, {}, - (map {; - my $old = $path; - $path = $o->{compssUsers}{$_}{path}; - if_($old ne $path, { val => translate($path) }), - { - val => \$val->{$_}, - type => 'bool', - disabled => sub { $all }, - text => translate($o->{compssUsers}{$_}{label}), - help => translate($o->{compssUsers}{$_}{descr}), - } - } @{$o->{compssUsersSorted}}), - if_($o->{meta_class} eq 'desktop', { text => _("All"), val => \$all, type => 'bool' }), - if_($individual, { text => _("Individual package selection"), val => $individual, advanced => 1, type => 'bool' }), - ], changed => sub { $size_text = &$size_to_display }) or return; - - if ($all) { - $val->{$_} = 1 foreach keys %$val; - } - 1; -} - -sub chooseCD { - my ($o, $packages) = @_; - my @mediums = grep { $_ != $install_any::boot_medium } pkgs::allMediums($packages); - my @mediumsDescr = (); - my %mediumsDescr = (); - - if (!common::usingRamdisk()) { - #- mono-cd in case of no ramdisk - foreach (@mediums) { - pkgs::mediumDescr($packages, $install_any::boot_medium) eq pkgs::mediumDescr($packages, $_) and next; - undef $packages->{mediums}{$_}{selected}; - } - log::l("low memory install, using single CD installation (as it is not ejectable)"); - return; - } - - #- the boot medium is already selected. - $mediumsDescr{pkgs::mediumDescr($packages, $install_any::boot_medium)} = 1; - - #- build mediumDescr according to mediums, this avoid asking multiple times - #- all the medium grouped together on only one CD. - foreach (@mediums) { - my $descr = pkgs::mediumDescr($packages, $_); - exists $mediumsDescr{$descr} or push @mediumsDescr, $descr; - $mediumsDescr{$descr} ||= $packages->{mediums}{$_}{selected}; - } - - #- if no other medium available or a poor beginner, we are choosing for him! - #- note first CD is always selected and should not be unselected! - return if @mediumsDescr == () || !$::expert; - - $o->set_help('chooseCD'); - $o->ask_many_from_list('', -_("If you have all the CDs in the list below, click Ok. -If you have none of those CDs, click Cancel. -If only some CDs are missing, unselect them, then click Ok."), - { - list => \@mediumsDescr, - label => sub { _("Cd-Rom labeled \"%s\"", $_[0]) }, - val => sub { \$mediumsDescr{$_[0]} }, - }) or do { - $mediumsDescr{$_} = 0 foreach @mediumsDescr; #- force unselection of other CDs. - }; - $o->set_help('choosePackages'); - - #- restore true selection of medium (which may have been grouped together) - foreach (@mediums) { - my $descr = pkgs::mediumDescr($packages, $_); - $packages->{mediums}{$_}{selected} = $mediumsDescr{$descr}; - log::l("select status of medium $_ is $packages->{mediums}{$_}{selected}"); - } -} - -#------------------------------------------------------------------------------ -sub installPackages { - my ($o, $packages) = @_; - my ($current, $total) = 0; - - my $w = $o->wait_message(_("Installing"), _("Preparing installation")); - - my $old = \&pkgs::installCallback; - local *pkgs::installCallback = sub { - my $m = shift; - if ($m =~ /^Starting installation/) { - $total = $_[1]; - } elsif ($m =~ /^Starting installing package/) { - my $name = $_[0]; - $w->set(_("Installing package %s\n%d%%", $name, $total && 100 * $current / $total)); - $current += pkgs::packageSize(pkgs::packageByName($o->{packages}, $name)); - } else { unshift @_, $m; goto $old } - }; - - #- the modification is not local as the box should be living for other package installation. - #- BEWARE this is somewhat duplicated (but not exactly from gtk code). - undef *install_any::changeMedium; - *install_any::changeMedium = sub { - my ($method, $medium) = @_; - - #- if not using a cdrom medium, always abort. - $method eq 'cdrom' && !$::oem and do { - my $name = pkgs::mediumDescr($o->{packages}, $medium); - local $| = 1; print "\a"; - my $r = $name !~ /commercial/i || ($o->{useless_thing_accepted2} ||= $o->ask_from_list_('', formatAlaTeX($com_license), [ __("Accept"), __("Refuse") ], "Accept") eq "Accept"); - $r &&= $o->ask_okcancel('', _("Change your Cd-Rom! - -Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done. -If you don't have it, press Cancel to avoid installation from this Cd-Rom.", $name), 1); - return $r; - }; - }; - my $install_result; - catch_cdie { $install_result = $o->install_steps::installPackages($packages); } - sub { - if ($@ =~ /^error ordering package list: (.*)/) { - $o->ask_yesorno('', [ -_("There was an error ordering packages:"), $1, _("Go on anyway?") ], 1) and return 1; - ${$_[0]} = "already displayed"; - } elsif ($@ =~ /^error installing package list: (.*)/) { - $o->ask_yesorno('', [ -_("There was an error installing packages:"), $1, _("Go on anyway?") ], 1) and return 1; - ${$_[0]} = "already displayed"; - } - 0; - }; - if ($pkgs::cancel_install) { - $pkgs::cancel_install = 0; - die "setstep choosePackages\n"; - } - $install_result; -} - -sub afterInstallPackages($) { - my ($o) = @_; - my $w = $o->wait_message('', _("Post-install configuration")); - $o->SUPER::afterInstallPackages($o); -} - -sub copyKernelFromFloppy { - my ($o) = @_; - $o->ask_okcancel('', _("Please insert the Boot floppy used in drive %s", $o->{blank}), 1) or return; - $o->SUPER::copyKernelFromFloppy(); -} - -sub updateModulesFromFloppy { - my ($o) = @_; - $o->ask_okcancel('', _("Please insert the Update Modules floppy in drive %s", $o->{updatemodules}), 1) or return; - $o->SUPER::updateModulesFromFloppy(); -} - -#------------------------------------------------------------------------------ -sub configureNetwork { - my ($o, $first_time, $noauto) = @_; - require network::netconnect; - network::netconnect::main($o->{prefix}, $o->{netcnx} ||= {}, $o->{netc}, $o->{mouse}, $o, $o->{intf}, - $first_time, $o->{lang} eq "fr_FR" && $o->{keyboard} eq "fr", $noauto); -} - -#-configureNetworkIntf moved to network - -#-configureNetworkNet moved to network -#------------------------------------------------------------------------------ -#-pppConfig moved to any.pm -#------------------------------------------------------------------------------ -sub installCrypto { - my $license = -_("You now have the opportunity to download encryption software. - -WARNING: - -Due to different general requirements applicable to these software and imposed -by various jurisdictions, customer and/or end user of theses software should -ensure that the laws of his/their jurisdiction allow him/them to download, stock -and/or use these software. - -In addition customer and/or end user shall particularly be aware to not infringe -the laws of his/their jurisdiction. Should customer and/or end user not -respect the provision of these applicable laws, he/they will incure serious -sanctions. - -In no event shall Mandrakesoft nor its manufacturers and/or suppliers be liable -for special, indirect or incidental damages whatsoever (including, but not -limited to loss of profits, business interruption, loss of commercial data and -other pecuniary losses, and eventual liabilities and indemnification to be paid -pursuant to a court decision) arising out of use, possession, or the sole -downloading of these software, to which customer and/or end user could -eventually have access after having sign up the present agreement. - - -For any queries relating to these agreement, please contact -Mandrakesoft, Inc. -2400 N. Lincoln Avenue Suite 243 -Altadena California 91001 -USA"); - goto &installUpdates; #- remove old code, keep this one ok though by transfering to installUpdates. -} - -sub installUpdates { - my ($o) = @_; - my $u = $o->{updates} ||= {}; - - $o->hasNetwork or return; - - is_empty_hash_ref($u) and $o->ask_yesorno('', -formatAlaTeX( -_("You now have the opportunity to download updated packages. These packages -have been released after the distribution was released. They may -contain security or bug fixes. - -To download these packages, you will need to have a working Internet -connection. - -Do you want to install the updates ?"))) || return; - - #- bring all interface up for installing crypto packages. - install_interactive::upNetwork($o); - - require crypto; - eval { - my @mirrors = do { my $w = $o->wait_message('', - _("Contacting Mandrake Linux web site to get the list of available mirrors...")); - crypto::mirrors() }; - #- if no mirror have been found, use current time zone and propose among available. - $u->{mirror} ||= crypto::bestMirror($o->{timezone}{timezone}); - $u->{mirror} = $o->ask_from_treelistf('', - _("Choose a mirror from which to get the packages"), - '|', - \&crypto::mirror2text, - \@mirrors, - $u->{mirror}); - }; - return if $@ || !$u->{mirror}; - - my $update_medium = do { - my $w = $o->wait_message('', _("Contacting the mirror to get the list of available packages...")); - crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}); - }; - - if ($update_medium) { - if ($o->choosePackagesTree($o->{packages}, $update_medium)) { - $o->pkg_install; - } else { - #- make sure to not try to install the packages (which are automatically selected by getPackage above). - #- this is possible by deselecting the medium (which can be re-selected above). - delete $update_medium->{selected}; - } - #- update urpmi even, because there is an hdlist available and everything is good, - #- this will allow user to update the medium but update his machine later. - $o->install_urpmi; - } - - #- stop interface using ppp only. FIXME REALLY TOCHECK isdn (costly network) ? - # FIXME damien install_interactive::downNetwork($o, 'pppOnly'); -} - - -#------------------------------------------------------------------------------ -sub configureTimezone { - my ($o, $clicked) = @_; - - require timezone; - $o->{timezone}{timezone} = $o->ask_from_treelist('', _("Which is your timezone?"), '/', [ timezone::getTimeZones($::g_auto_install ? '' : $o->{prefix}) ], $o->{timezone}{timezone}) || return; - $o->set_help('configureTimezoneGMT'); - - my $ntp = to_bool($o->{timezone}{ntp}); - $o->ask_from('', '', [ - { text => _("Hardware clock set to GMT"), val => \$o->{timezone}{UTC}, type => 'bool' }, - { text => _("Automatic time synchronization (using NTP)"), val => \$ntp, type => 'bool' }, - ]) or goto &configureTimezone - if $::expert || $clicked; - if ($ntp) { - my @servers = split("\n", $timezone::ntp_servers); - - $o->ask_from('', '', - [ { label => _("NTP Server"), val => \$o->{timezone}{ntp}, list => \@servers, not_edit => 0 } ] - ) or goto &configureTimezone; - $o->{timezone}{ntp} =~ s/.*\((.+)\)/$1/; - } else { - $o->{timezone}{ntp} = ''; - } - install_steps::configureTimezone($o); -} - -#------------------------------------------------------------------------------ -sub configureServices { - my ($o, $clicked) = @_; - require services; - $o->{services} = services::ask($o, $o->{prefix}) if $::expert || $clicked; - install_steps::configureServices($o); -} - -sub summary { - my ($o, $first_time) = @_; - require pkgs; - - if ($first_time) { - #- auto-detection - $o->configurePrinter(0) if !$::expert; - install_any::preConfigureTimezone($o); - } - my $mouse_name; - my $format_mouse = sub { $mouse_name = translate($o->{mouse}{type}) . ' ' . translate($o->{mouse}{name}) }; - &$format_mouse; - - #- format printer description in a better way - my $format_printers = sub { - my $printer = $o->{printer}; - if (is_empty_hash_ref($printer->{configured})) { - pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'cups')) and return _("Remote CUPS server"); - return _("No printer"); - } - my $entry; - foreach ($printer->{currentqueue}, - map { $_->{queuedata} } ($printer->{configured}{$printer->{DEFAULT}}, values %{$printer->{configured}})) { - $_ && ($_->{make} || $_->{model}) and return "$_->{make} $_->{model}"; - } - return _("Remote CUPS server"); #- fall back in case of something wrong. - }; - - my @sound_cards = (arch() =~ /ppc/ ? \&modules::load_category : \&modules::probe_category)->('multimedia/sound'); - - #- if no sound card are detected AND the user selected things needing a sound card, - #- propose a special case for ISA cards - my $isa_sound_card = - !@sound_cards && ($o->{compssUsersChoice}{GAMES} || $o->{compssUsersChoice}{AUDIO}) && - sub { - if ($o->ask_yesorno('', _("Do you have an ISA sound card?"))) { - $o->do_pkgs->install('sndconfig'); - $o->ask_warn('', _("Run \"sndconfig\" after installation to configure your sound card")); - } else { - $o->ask_warn('', _("No sound card detected. Try \"harddrake\" after installation")); - } - }; - - $o->ask_from_({ - messages => _("Summary"), - cancel => '', - }, [ -{ label => _("Mouse"), val => \$mouse_name, clicked => sub { $o->selectMouse(1); mouse::write($o->{prefix}, $o->{mouse}); &$format_mouse } }, -{ label => _("Keyboard"), val => \$o->{keyboard}, clicked => sub { $o->selectKeyboard(1) }, format => sub { translate(keyboard::keyboard2text($_[0])) } }, -{ label => _("Timezone"), val => \$o->{timezone}{timezone}, clicked => sub { $o->configureTimezone(1) } }, -{ label => _("Printer"), val => \$o->{printer}, clicked => sub { $o->configurePrinter(1) }, format => $format_printers }, - (map { -{ label => _("ISDN card"), val => $_->{description}, clicked => sub { $o->configureNetwork } } - } grep { $_->{driver} eq 'hisax' } detect_devices::probeall()), - (map { -{ label => _("Sound card"), val => $_->{description} } - } @sound_cards), - if_($isa_sound_card, { label => _("Sound card"), clicked => $isa_sound_card }), - (map { -{ label => _("TV card"), val => $_->{description}, clicked => sub { require harddrake::bttv; harddrake::bttv::config($o) }} - } grep { $_->{driver} eq 'bttv' } detect_devices::probeall()), -]); - install_steps::configureTimezone($o); #- do not forget it. -} - -#------------------------------------------------------------------------------ -sub configurePrinter { - my ($o, $clicked) = @_; - $::corporate && !$clicked and return; - - require printer; - require printerdrake; - - #- try to determine if a question should be asked to the user or - #- if he is autorized to configure multiple queues. - my $ask_multiple_printer = ($::expert || $clicked) && 2 || scalar(printerdrake::auto_detect($o)); - $ask_multiple_printer-- or return; - - #- install packages needed for printer::getinfo() - $::testing or $o->do_pkgs->install('foomatic'); - - #- take default configuration, this include choosing the right system - #- currently used by the system. - my $printer = $o->{printer} ||= {}; - eval { add2hash($printer, printer::getinfo($o->{prefix})) }; - - $printer->{PAPERSIZE} = (($o->{lang} =~ /^en_US/) || - ($o->{lang} =~ /^en_CA/) || - ($o->{lang} =~ /^fr_CA/)) ? 'Letter' : 'A4'; - printerdrake::main($printer, $o, $ask_multiple_printer, sub { install_interactive::upNetwork($o, 'pppAvoided') }); - -} - -#------------------------------------------------------------------------------ -sub setRootPassword { - my ($o, $clicked) = @_; - my $sup = $o->{superuser} ||= {}; - my $auth = ($o->{authentication}{LDAP} && __("LDAP") || - $o->{authentication}{NIS} && __("NIS") || - __("Local files")); - $sup->{password2} ||= $sup->{password} ||= ""; - - return if $o->{security} < 1 && !$clicked; - - $::isInstall and $o->set_help("setRootPassword", if_($::expert, "setRootPasswordAuth")); - - $o->ask_from_( - { - title => _("Set root password"), - messages => _("Set root password"), - cancel => ($o->{security} <= 2 && !$::corporate ? _("No password") : ''), - callbacks => { - complete => sub { - $sup->{password} eq $sup->{password2} or $o->ask_warn('', [ _("The passwords do not match"), _("Please try again") ]), return (1,0); - length $sup->{password} < 2 * $o->{security} - and $o->ask_warn('', _("This password is too short (it must be at least %d characters long)", 2 * $o->{security})), return (1,0); - return 0 - } } }, [ -{ label => _("Password"), val => \$sup->{password}, hidden => 1 }, -{ label => _("Password (again)"), val => \$sup->{password2}, hidden => 1 }, - if_($::expert, -{ label => _("Authentication"), val => \$auth, list => [ __("Local files"), __("LDAP"), __("NIS") ], format => \&translate }, - ), - ]) or return; - - if ($auth eq __("LDAP")) { - $o->{authentication}{LDAP} ||= "localhost"; #- any better solution ? - $o->{netc}{LDAPDOMAIN} ||= join (',', map { "dc=$_" } split /\./, $o->{netc}{DOMAINNAME}); - $o->ask_from('', - _("Authentication LDAP"), - [ { label => _("LDAP Base dn"), val => \$o->{netc}{LDAPDOMAIN} }, - { label => _("LDAP Server"), val => \$o->{authentication}{LDAP} }, - ]) or goto &setRootPassword; - } else { $o->{authentication}{LDAP} = '' } - if ($auth eq __("NIS")) { - $o->{authentication}{NIS} ||= 'broadcast'; - $o->ask_from('', - _("Authentication NIS"), - [ { label => _("NIS Domain"), val => \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}) }, - { label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"], not_edit => 0 }, - ]) or goto &setRootPassword; - } else { $o->{authentication}{NIS} = '' } - install_steps::setRootPassword($o); -} - -#------------------------------------------------------------------------------ -#-addUser -#------------------------------------------------------------------------------ -sub addUser { - my ($o, $clicked) = @_; - $o->{users} ||= []; - - if ($o->{security} < 1) { - push @{$o->{users}}, { password => 'mandrake', realname => 'default', icon => 'automagic' } - if !member('mandrake', map { $_->{name} } @{$o->{users}}); - } - if (($o->{security} >= 1 || $clicked)) { - any::ask_users($o->{prefix}, $o, $o->{users}, $o->{security}); - } - any::get_autologin($o->{prefix}, $o); - any::autologin($o->{prefix}, $o, $o); - - install_steps::addUser($o); -} - -#------------------------------------------------------------------------------ -sub createBootdisk { - my ($o, $first_time, $noauto) = @_; - - return if !$noauto && $first_time && !$::expert; - - if (arch() =~ /sparc/) { - #- as probing floppies is a bit more different on sparc, assume always /dev/fd0. - $o->ask_okcancel('', - _("A custom bootdisk provides a way of booting into your Linux system without -depending on the normal bootloader. This is useful if you don't want to install -SILO on your system, or another operating system removes SILO, or SILO doesn't -work with your hardware configuration. A custom bootdisk can also be used with -the Mandrake rescue image, making it much easier to recover from severe system -failures. - -If you want to create a bootdisk for your system, insert a floppy in the first -drive and press \"Ok\"."), - $o->{mkbootdisk}) or return $o->{mkbootdisk} = ''; - my @l = detect_devices::floppies_dev(); - $o->{mkbootdisk} = $l[0] if !$o->{mkbootdisk} || $o->{mkbootdisk} eq "1"; - $o->{mkbootdisk} or return; - } else { - my @l = detect_devices::floppies_dev(); - my %l = ( - 'fd0' => _("First floppy drive"), - 'fd1' => _("Second floppy drive"), - 'Skip' => _("Skip"), - ); - - if ($first_time || @l == 1) { - $o->ask_yesorno('', formatAlaTeX( - _("A custom bootdisk provides a way of booting into your Linux system without -depending on the normal bootloader. This is useful if you don't want to install -LILO (or grub) on your system, or another operating system removes LILO, or LILO doesn't -work with your hardware configuration. A custom bootdisk can also be used with -the Mandrake rescue image, making it much easier to recover from severe system -failures. Would you like to create a bootdisk for your system? -%s", isThisFs('xfs', fsedit::get_root($o->{fstab})) ? _(" - -(WARNING! You're using XFS for your root partition, -creating a bootdisk on a 1.44 Mb floppy will probably fail, -because XFS needs a very large driver).") : '')), - $o->{mkbootdisk}) or return $o->{mkbootdisk} = ''; - $o->{mkbootdisk} = $l[0] if !$o->{mkbootdisk} || $o->{mkbootdisk} eq "1"; - } else { - @l or die _("Sorry, no floppy drive available"); - - $o->ask_from_( - { - messages => _("Choose the floppy drive you want to use to make the bootdisk"), - }, [ { val => \$o->{mkbootdisk}, list => \@l, format => sub { $l{$_[0]} || $_[0] } } ] - ) or return; - } - $o->ask_warn('', _("Insert a floppy in %s", $l{$o->{mkbootdisk}} || $o->{mkbootdisk})); - } - - my $w = $o->wait_message('', _("Creating bootdisk...")); - install_steps::createBootdisk($o); -} - -#------------------------------------------------------------------------------ -sub setupBootloaderBefore { - my ($o) = @_; - my $w = $o->wait_message('', _("Preparing bootloader...")); - $o->set_help('empty'); - $o->SUPER::setupBootloaderBefore($o); -} - -#------------------------------------------------------------------------------ -sub setupBootloader { - my ($o, $more) = @_; - if (arch() =~ /ppc/) { - my $machtype = detect_devices::get_mac_generation(); - if ($machtype !~ /NewWorld/) { - $o->ask_warn('', _("You appear to have an OldWorld or Unknown\n machine, the yaboot bootloader will not work for you.\nThe install will continue, but you'll\n need to use BootX to boot your machine")); - log::l("OldWorld or Unknown Machine - no yaboot setup"); - return; - } - } - if (arch() =~ /^alpha/) { - $o->ask_yesorno('', _("Do you want to use aboot?"), 1) or return; - catch_cdie { $o->SUPER::setupBootloader } sub { - $o->ask_yesorno('', -_("Error installing aboot, -try to force installation even if that destroys the first partition?")); - }; - } else { - any::setupBootloader($o, $o->{bootloader}, $o->{all_hds}, $o->{fstab}, $o->{security}, $o->{prefix}, $more) or return; - - { - my $w = $o->wait_message('', _("Installing bootloader")); - eval { $o->SUPER::setupBootloader }; - } - if (my $err = $@) { - $err =~ /failed$/ or die; - $o->ask_warn('', - [ _("Installation of bootloader failed. The following error occured:"), - grep { !/^Warning:/ } cat_("$o->{prefix}/tmp/.error") ]); - unlink "$o->{prefix}/tmp/.error"; - die "already displayed"; - } elsif (arch() =~ /ppc/) { - my $of_boot = cat_("$o->{prefix}/tmp/of_boot_dev") || die "Can't open $o->{prefix}/tmp/of_boot_dev"; - chop($of_boot); - unlink "$o->{prefix}/tmp/.error"; - $o->ask_warn('', _("You may need to change your Open Firmware boot-device to\n enable the bootloader. If you don't see the bootloader prompt at\n reboot, hold down Command-Option-O-F at reboot and enter:\n setenv boot-device %s,\\\\:tbxi\n Then type: shut-down\nAt your next boot you should see the bootloader prompt.", $of_boot)); - } - } -} - -sub miscellaneous { - my ($o, $clicked) = @_; - - if ($::expert) { - any::choose_security_level($o, \$o->{security}, \$o->{libsafe}) or return; - } - install_steps::miscellaneous($o); -} - -#------------------------------------------------------------------------------ -sub configureX { - my ($o, $clicked) = @_; - $o->configureXBefore; - - #- strange, xfs must not be started twice... - #- trying to stop and restart it does nothing good too... - my $xfs_started if 0; - run_program::rooted($o->{prefix}, "/etc/rc.d/init.d/xfs", "start") unless $::live || $xfs_started; - $xfs_started = 1; - - require Xconfigurator; - { local $::testing = 0; #- unset testing - local $::auto = !$::expert && !$clicked; - - symlink "$o->{prefix}/etc/gtk", "/etc/gtk"; - Xconfigurator::main($o->{prefix}, $o->{X}, $o, $o->do_pkgs, - { allowFB => $o->{allowFB}, - allowNVIDIA_rpms => install_any::allowNVIDIA_rpms($o->{packages}), - }); - } - $o->configureXAfter; -} - -#------------------------------------------------------------------------------ -sub generateAutoInstFloppy { - my ($o, $replay) = @_; - - my $floppy = detect_devices::floppy(); - - $o->ask_okcancel('', _("Insert a blank floppy in drive %s", $floppy), 1) or return; - - my $dev = devices::make($floppy); - { - my $w = $o->wait_message('', _("Creating auto install floppy...")); - install_any::getAndSaveAutoInstallFloppy($o, $replay, $dev) or return; - } - common::sync(); #- if you shall remove the floppy right after the LED switches off -} - -#------------------------------------------------------------------------------ -sub exitInstall { - my ($o, $alldone) = @_; - - return $o->{step} = '' unless $alldone || $o->ask_yesorno('', -_("Some steps are not completed. - -Do you really want to quit now?"), 0); - - install_steps::exitInstall($o); - - $o->exit unless $alldone; - - $o->ask_from_no_check( - { - messages => formatAlaTeX( -_("Congratulations, installation is complete. -Remove the boot media and press return to reboot. - - -For information on fixes which are available for this release of Mandrake Linux, -consult the Errata available from: - - -http://www.linux-mandrake.com/en/82errata.php3 - - -Information on configuring your system is available in the post -install chapter of the Official Mandrake Linux User's Guide.")), - cancel => '', - }, - [ - if_($::expert, - { val => \ (my $t1 = _("Generate auto install floppy")), clicked => sub { - my $t = $o->ask_from_list_('', -_("The auto install can be fully automated if wanted, -in that case it will take over the hard drive!! -(this is meant for installing on another box). - -You may prefer to replay the installation. -"), [ __("Replay"), __("Automated") ]); - $t and $o->generateAutoInstFloppy($t eq 'Replay'); - }, advanced => 1 }, - { val => \ (my $t2 = _("Save packages selection")), clicked => sub { install_any::g_default_packages($o) }, advanced => 1 }, - ), - ] - ) if $alldone && !$::g_auto_install; -} - - -#-###################################################################################### -#- Misc Steps Functions -#-###################################################################################### - -#-###################################################################################### -#- Wonderful perl :( -#-###################################################################################### -1; |