From 4f7862bb0b44201619adfc76ee3763dd81b020d3 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
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