From 4f7862bb0b44201619adfc76ee3763dd81b020d3 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 3 Jul 2001 13:49:27 +0000 Subject: added loadSavePackagesOnFloppy to manage package selection file used by auto_install too from packages tree directly on floppies. --- perl-install/install_steps_interactive.pm | 33 ++++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 4fda58db6..88f48cab5 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -527,7 +527,38 @@ sub choosePackagesTree { 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 { translate($_[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'); + } }, + ]); + $choice->{code} and $choice->{code}(); +} sub chooseGroups { my ($o, $packages, $compssUsers, $min_level, $individual, $max_size) = @_; -- cgit v1.2.1