diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm new file mode 100644 index 000000000..f3fabc985 --- /dev/null +++ b/perl-install/install_steps_interactive.pm @@ -0,0 +1,128 @@ +package install_steps_interactive; + +# heritate from this class and you'll get all made interactivity for same steps. +# for this you need to provide +# - ask_from_listW(o, title, messages, arrayref, default) returns one string of arrayref +# - ask_many_from_listW(o, title, messages, arrayref, arrayref2) returns one string of arrayref +# +# where +# - o is the object +# - title is a string +# - messages is an refarray of strings +# - default is an optional string (default is in arrayref) +# - arrayref is an arrayref of strings +# - arrayref2 contains booleans telling the default state, +# +# ask_from_list and ask_from_list_ are wrappers around ask_from_biglist and ask_from_smalllist +# +# ask_from_list_ just translate arrayref before calling ask_from_list and untranslate the result +# +# ask_from_listW should handle differently small lists and big ones. + + +use diagnostics; +use strict; +use vars qw(@ISA); + +@ISA = qw(install_steps); + +use common qw(:common); +use partition_table qw(:types); +use install_steps; +use lang; +use log; + +1; + +sub errorInStep($$) { + my ($o, $err) = @_; + $o->ask_warn(_("Error"), [ _("An error occured"), $err ]); +} + +=cut +sub chooseLanguage($) { + my ($o) = @_; + lang::text2lang($o->ask_from_list("Language", + __("Which language do you want?"), # the translation may be used for the help + [ lang::list() ])); +} + +sub selectInstallOrUpgrade($) { + my ($o) = @_; + $o->ask_from_list_(_("Install/Upgrade"), + _("Is it an install or an updgrade?"), + [ __("Install"), __("Upgrade") ], + "Install") eq "Upgrade"; +} + +sub selectInstallClass($@) { + my ($o, @classes) = @_; + $o->ask_from_list_(_("Install Class"), + _("What type of user will you have?"), + [ @classes ]); +} + +sub rebootNeeded($) { + my ($o) = @_; + $o->ask_warn('', _("You need to reboot for the partition table modifications to take place")); + $o->SUPER::rebootNeeded; +} + +sub choosePartitionsToFormat($$) { + my ($o, $fstab) = @_; + my @l = grep { $_->{mntpoint} && (isExt2($_) || isSwap($_)) } @$fstab; + my @r = $o->ask_many_from_list('', _("Choose the partitions you want to format"), + [ map { $_->{mntpoint} } @l ], + [ map { $_->{notFormatted} } @l ]); + for (my $i = 0; $i < @l; $i++) { + $l[$i]->{toFormat} = $r[$i]; + } +} + +sub installPackages { + my $o = shift; + + my $old = \&log::ld; + local *log::ld = sub { + my $m = shift; + if ($m =~ /^starting installing/) { + my $name = first($_[0] =~ m|([^/]*)-.+?-|); + print("installing package $name"); + } else { goto $old } + }; + $o->SUPER::installPackages(@_); +} + +sub createBootdisk($) { + my ($o) = @_; + + $o->SUPER::createBootdisk if + $o->{default}->{mkbootdisk} = $o->ask_yesorno('', + _("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 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?")); +} + +sub setupBootloader($) { + my ($o) = @_; + + my $where = $o->ask_from_list(_("Lilo Installation"), _("Where do you want to install the bootloader?"), [ _("First sector of drive"), _("First sector of boot partition") ]); + $o->{default}->{bootloader}->{onmbr} = $where eq _("First sector of drive"); + + $o->SUPER::setupBootloader; +} +=cut +sub exitInstall { + my ($o) = @_; + $o->ask_warn('', +_"Congratulations, installation is complete. +Remove the boot media and press return to reboot. +For information on fixes which are available for this release of Linux Mandrake, +consult the Errata available from http://www.linux-mandrake.com/. +Information on configuring your system is available in the post +install chapter of the Official Linux Mandrake User's Guide."); +} + |