summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-21 18:10:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-21 18:10:42 +0000
commit976db1b453aca3e4702f54d6af2cba47aa24c222 (patch)
treec3bcd1a801f87b39b4d48b67c4f83c21f216bf9e /perl-install/install_steps_interactive.pm
parentfa9551fa118a60eb2eb4ccbb5d65621134f10ee1 (diff)
downloaddrakx-backup-do-not-use-976db1b453aca3e4702f54d6af2cba47aa24c222.tar
drakx-backup-do-not-use-976db1b453aca3e4702f54d6af2cba47aa24c222.tar.gz
drakx-backup-do-not-use-976db1b453aca3e4702f54d6af2cba47aa24c222.tar.bz2
drakx-backup-do-not-use-976db1b453aca3e4702f54d6af2cba47aa24c222.tar.xz
drakx-backup-do-not-use-976db1b453aca3e4702f54d6af2cba47aa24c222.zip
(exitInstall): add generateAutoInstFloppy and g_default_packages calls in
advanced
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm23
1 files changed, 16 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 6b634cbf4..04d2d2869 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -987,17 +987,15 @@ sub configureX {
}
#------------------------------------------------------------------------------
-sub generateAutoInstFloppy($) {
+sub generateAutoInstFloppy {
my ($o) = @_;
- $::expert || $::g_auto_install or return;
my $floppy = detect_devices::floppy();
- $o->ask_yesorno('',
-_("Do you want to generate an auto install floppy for linux replication?"), $floppy) or return;
+#+ $o->ask_yesorno('',
+#+_("Do you want to generate an auto install floppy for linux replication?"), $floppy) or return;
$o->ask_warn('', _("Insert a blank floppy in drive %s", $floppy));
- require commands;
my $dev = devices::make($floppy);
my $image = $o->{pcmcia} ? "pcmcia" :
@@ -1014,6 +1012,7 @@ _("Do you want to generate an auto install floppy for linux replication?"), $flo
install_any::getAndSaveFile("images/$image.img", $imagefile) or log::l("failed to write $dev"), return;
devices::make($_) foreach qw(/dev/loop6 /dev/ram);
+ require commands;
run_program::run("losetup", "/dev/loop6", $imagefile);
fs::mount("/dev/loop6", $mountdir, "romfs", 'readonly');
commands::cp("-f", $mountdir, $workdir);
@@ -1073,7 +1072,9 @@ Do you really want to quit now?"), 0);
$o->exit unless $alldone;
- $o->ask_warn('',
+ $o->ask_from_entries_refH_powered_no_check(
+ {
+ messages =>
_("Congratulations, installation is complete.
Remove the boot media and press return to reboot.
@@ -1081,7 +1082,15 @@ 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.")) if $alldone && !$::g_auto_install;
+install chapter of the Official Linux-Mandrake User's Guide.")
+ },
+ [
+ if_($::expert,
+ { val => \ (my $t1 = _("Generate auto install floppy")), clicked => sub { $o->generateAutoInstFloppy }, advanced => 1 },
+ { val => \ (my $t2 = _("Save packages selection")), clicked => sub { install_any::g_default_packages($o) }, advanced => 1 },
+ ),
+ ]
+ ) if $alldone && !$::g_auto_install;
}