pixmaps/error.png

package install_steps_interactive; # $Id$


use diagnostics;
use strict;
use vars qw(@ISA $new_bootstrap $com_license);

@ISA = qw(install_steps);

$com_license = N("
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(N("Error"), [ N("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('', N("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 {
	#- no need to have this in po since 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) = @_;
    return if $o->{useless_thing_accepted};

    $o->set_help('license');
    $o->{useless_thing_accepted} = $o->ask_from_list_(N("License agreement"), formatAlaTeX(
N("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 occurence 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.  
") . "\n\n
Warning: Free Software may not necessarily be patent free, and some Free
Software included may be covered by patents in your country. For example, the
MP3 decoders included may require a licence for further usage (see
http://www.mp3licensing.com for more details). If you are unsure if a patent
may be applicable to you, check your local laws.
"), [ N_("Accept"), N_("Refuse") ], "Refuse") eq "Accept" and return;

    $o->ask_yesorno('', N("Are you sure you refuse the licence?"), 1) and $o->exit;

    &acceptLicence;
}

#------------------------------------------------------------------------------
sub selectKeyboard {
    my ($o, $clicked) = @_;

    my $from_usb = keyboard::from_usb();
    my $l = keyboard::lang2keyboards(lang::langs($o->{langs}));

    if ($::expert || $clicked || !($from_usb || @$l && $l->[0][1] >= 90) || listlength(lang::langs($o->{langs})) > 1) {
	add2hash($o->{keyboard}, $from_usb);
	my @best = uniq($from_usb ? $from_usb->{KEYBOARD} : (), (map { $_->[0] } @$l), 'us_intl');

	my $format = sub { translate(keyboard::KEYBOARD2text($_[0])) };
	my $other;
	my $ext_keyboard = my $KEYBOARD = $o->{keyboard}{KEYBOARD};
	$o->ask_from_(
		      { title => N("Keyboard"), 
			messages => N("Please choose your keyboard layout."),
			advanced_messages => N("Here is the full list of keyboards available"),
			advanced_label => N("More"),
			callbacks => { changed => sub { $other = $_[0]==1 } },
		      },
		      [ if_(@best > 1, { val => \$KEYBOARD, type => 'list', format => $format, sort => 1,
					 list => [ @best ] }),
			{ val => \$ext_keyboard, type => 'list', format => $format,
			  list => [ difference2([ keyboard::KEYBOARDs() ], \@best) ], advanced => @best > 1 }
		      ]);
	$o->{keyboard}{KEYBOARD} = $other ? $ext_keyboard : $KEYBOARD;
	delete $o->{keyboard}{unsafe};
    }
    any::keyboard_group_toggle_choose($o, $o->{keyboard}) or goto &selectKeyboard;
    install_steps::selectKeyboard($o);
}
#------------------------------------------------------------------------------
sub selectInstallClass1 {
    my ($o, $verif, $l, $def, $l2, $def2) = @_;
    $verif->($o->ask_from_list(N("Install Class"), N("Which installation class do you want?"), $l, $def) || die 'already displayed');

    return if !@$l2;

    $::live ? 'Update' : $o->ask_from_list_(N("Install/Update"), N("Is this an install or an update?"), $l2, $def2);
}

#------------------------------------------------------------------------------
sub selectInstallClass {
    my ($o, $clicked) = @_;

    my %c = my @c = (
      if_(!$::corporate,
	N("Recommended") => "beginner",
      ),
      if_($o->{meta_class} ne 'desktop',
	N("Expert")	 => "expert",
      ),
    );
    %c = @c = (N("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} ? N_("Upgrade packages only") : N_("Upgrade") : N_("Install");

    if ($installMode = $o->selectInstallClass1($verifInstallClass,
					       first(list2kv(@c)), ${{reverse %c}}{$::expert ? "expert" : "beginner"},
					       exists $o->{isUpgrade} ? [] : [ N_("Install"), N_("Upgrade"), N_("Upgrade packages only") ], $installMode)) {
	log::l("install class: $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_('', N("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(N("Mouse Port"),
			    N("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('', N("Buttons emulation"),
		[
		{ label => N("Button 2 Emulation"), val => \$o->{mouse}{button2_key}, list => [ mouse::ppc_one_button_keys() ], format => \&mouse::ppc_one_button_key2text },
		{ label => N("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', 1, 1);
	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(N("PCMCIA"), N("Configuring PCMCIA cards..."));
	    my $results = modules::configure_pcmcia($o->{pcmcia});
	    $w = undef;
	    $results and $o->ask_warn('', $results);
	}
    }
    { 
	my $w = $o->wait_message(N("IDE"), N("Configuring IDE"));
	modules::load(modules::category2modules('disk/cdrom'));
    }
    any::load_category($o, 'bus/firewire', 1);

    any::load_category($o, 'disk/scsi|hardware_raid', !$::expert && !$clicked, 0);

    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 N("No partition available") if @fstab == 0;

    {
	my $w = $o->wait_message('', N("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('', 
				  N("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) = @_;

    install_any::getHds($o, $o);

    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 {
            undef = $partition_table::mac::freepart; #- please "perl -w"
            my $freepart = $partition_table::mac::freepart;
	    if ($freepart && $freepart->{size} >= 1) {	        
		log::l("creating bootstrap partition on drive /dev/$freepart->{hd}{device}, block $freepart->{start}");
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 14 00 00 00 14 08 06 00 00 00 8d 89 1d	.PNG........IHDR................
0020	0d 00 00 00 04 67 41 4d 41 00 00 d6 d8 d4 4f 58 32 00 00 00 19 74 45 58 74 53 6f 66 74 77 61 72	.....gAMA.....OX2....tEXtSoftwar
0040	65 00 41 64 6f 62 65 20 49 6d 61 67 65 52 65 61 64 79 71 c9 65 3c 00 00 03 b3 49 44 41 54 78 da	e.Adobe.ImageReadyq.e<....IDATx.
0060	ac 95 db 4f 1c 55 1c c7 bf 67 6e cb ce d2 22 94 6e d9 76 0d 03 6d 29 c5 6a 31 46 92 a6 62 4b f4	...O.U...gn...".n.v..m).j1F..bK.
0080	01 ad e0 ab 0f 10 62 fa d2 3e f4 a5 f5 bf 30 31 f1 c1 c4 4b 62 42 21 d6 a8 09 8d 40 7a 89 d1 87	......b..>....01...KbB!....@z...
00a0	6a 7c b4 68 6c c3 a6 32 b3 db bd 00 5b 34 b0 3b bb cb ce 99 39 9e 73 f6 d2 a2 f4 ad 93 39 9b 73	j\|.hl..2....[4.;....9.s......9.s
00c0	f9 fd 3e e7 fb fb 9d df 9c 25 8c 31 3c cb 47 7b da 82 7d a0 6f 14 1e 9d d2 8e f4 8e e9 f1 58 44	..>......%.1<.G{..}.o.........XD
00e0	cc 79 e9 9c 4b 1f ac cc 43 d7 a6 7b d6 12 37 77 75 14 0a 9f 6c 76 57 bf e5 1c 7d e5 e1 3f 1f 7f	.y..K...C..{..7wu...lvW...}..?..
0100	c6 fc 42 91 05 85 02 db be fb 87 6c a2 2f e6 c4 9a b0 11 b6 ff f5 df a1 d0 89 1d 9f d0 07 8e cd	..B........l./..................
0120	c4 16 be 86 3b b7 80 cc 99 73 d0 7b 7b a0 1d ea e2 3b 13 d0 4c 16 9e ed a0 fd ca 25 3c bf f4 73	....;....s.{{....;..L......%<..s
0140	3c f7 ce 7b 36 f7 99 b4 72 f7 67 1b 0c d2 c8 a1 73 68 c0 d2 fb 0e db d1 4f 3f c2 da c4 05 18 2f	<..{6...r.g.....sh......O?...../
0160	0d 60 ef f9 49 94 6e fd c8 41 39 61 08 f5 e0 01 84 df 38 83 ad 2f bf 02 cd 66 11 fd e4 43 ac 5f	.`..I.n..A9a......8../...f...C._
0180	b8 0c 2f f1 57 8f 95 b9 e7 ec 08 39 c9 43 a8 de 4b b0 f4 d9 71 96 bf f8 01 db 9a fd 86 6d 4d 5f	../.W......9.C..K...q........mM_
01a0	63 4e ff 10 6b 3c ce b1 21 b6 f9 c5 55 b6 f9 f9 55 b6 fa fe 25 96 19 79 97 55 ef 27 98 f0 6d 70	cN..k<..!...U...U...%..y.U.'..mp
01c0	94 ba ba 51 73 fc ad 78 f1 fb 1b 50 c2 21 68 f1 83 f0 56 92 b2 29 ba d1 4c 89 a2 eb a0 76 12 d4	...Qs..x...P.!h...V..)..L....v..
01e0	49 42 e7 6a 41 00 e1 63 8e bf 1d 17 0c 69 23 2d fd 60 2a 7c 6a 08 85 6b df 41 8d 75 c1 73 52 f0	IB.jA..c.....i#-.`*\|j..k.A.u.sR.
0200	93 0f 41 93 29 10 b3 a5 09 24 66 98 c3 52 f0 52 69 78 7c 5d e9 ec 40 61 f6 5b 84 4f bd 2a 19 cd	..A.)....$f..R.Rix\|]..@a.[.O.*..
0220	b2 51 f6 ef 1b 0b 8a 2e 88 a6 c2 cf ae 8a 44 00 41 00 e6 51 90 50 48 0e 25 d0 d0 24 88 a8 aa 0c	.Q............D.A..Q.PH.%..$....
0240	8f 43 78 a3 08 dc 12 67 74 8e 3d 06 b6 b6 46 68 36 27 12 ca 1d 52 22 12 0e e4 43 af 2a 15 07 1b	.Cx....gt.=...Fh6'...R"...C.*...
0260	7f d7 f2 1d 30 f8 fc a4 89 5a 2b 8e 80 6f aa 44 b8 ea 74 06 ca 9e 48 e4 71 61 f3 5d 58 a5 c2 25	....0....Z+..o.D..t...H.qa.]X..%
0280	a8 90 4a 15 55 aa 64 94 2b 2c b9 a2 07 56 aa 80 95 79 a3 7c 27 12 a0 4e 84 12 6a a9 f9 72 db 26	..J.U.d.+,...V...y.\|'..N..j..r.&
02a0	90 95 b7 5c 6c 7b 11 b5 a3 1d fe fa 3a 6a 12 f9 0f 21 fc 55 51 5a bc 5d 0b 99 28 72 ae 66 c0 e4	...\l{......:j...!.UQZ.]..(r.f..
02c0	ab b4 b7 23 a8 7a 35 46 e3 50 58 b1 30 ef e7 d7 a1 f7 f5 f2 3c 6a 32 f4 7a 4d f1 dc 74 a0 38 b7	...#.z5F.PX.0.......<j2.zM..t.8.
02e0	88 e2 f5 45 d9 e7 71 d7 61 4c e6 52 3f 62 81 e5 f3 92 d1 04 06 be 31 4d ed 65 2e db e7 05 7d 02	...E..q.aL.R?b........1M.e....}.
0300	cc f7 79 0b e4 38 7c f6 34 62 d7 67 10 9b 9b 41 f8 f5 d3 72 8e 89 03 e3 eb c6 8b c7 e5 de d4 4e	..y..8\|.4b.g...A...r...........N
0320	48 46 13 68 a5 7e bf e9 67 73 69 6f c5 46 68 f0 05 6e 38 20 73 22 1c 95 b6 b6 7a 88 04 ca 73 7b	HF.h.~..gsio.Fh..n8.s"....z...s{
0340	e5 9c 58 33 4e f4 23 c4 37 a7 8e c3 2b 23 9b 16 8c 1d b7 0d 2d ab c3 c6 ea b2 5d fe c1 85 79 6e	..X3N.#.7...+#......-.....]...yn
0360	14 5a 34 0a 77 e1 16 ca 77 7e 45 f5 cf e5 da d9 6d 6c c8 50 cd 37 47 a0 1f 3d 8c d2 8d db 20 05	.Z4.w...w~E.....ml.P.7G..=......
0380	5e af 65 6d f8 7f df b2 fc 62 ba 4f 4e 84 f6 54 66 bc 6a 2b 8c c1 93 30 47 5e 93 65 e4 af e5 a5	^.em.....b.ON..Tf.j+...0G^.e....
03a0	42 35 ba 1f 7a 77 1c ee 4f bf c0 5b 5a 82 6e 14 b1 5d 68 99 b4 92 4b b3 bb 02 25 d4 1a b4 74 b3	B5..zw..O..[Z.n..]h...K...%...t.
03c0	7c 87 c7 16 a7 25 1d a4 ad 13 5a e7 be 5a 14 8f 36 c0 36 1f 41 33 a9 38 ed b4 57 0a 0f 5b ce 5d	\|....%....Z..Z..6.6.A3.8..W..[.]
03e0	e7 49 7f f2 b4 1b db e9 7e 79 d4 68 2d 4d 41 09 c6 82 8a 26 8b 56 69 a1 2e 02 65 be 5a 34 a7 ad	.I......~y.h-MA....&.Vi...e.Z4..
0400	e4 6f bb 5e b0 e4 59 ff 05 fc 2b c0 00 89 a8 17 18 f1 fb 95 69 00 00 00 00 49 45 4e 44 ae 42 60	.o.^..Y...+.........i....IEND.B`
0420	82	.