From b6027f18bafeac575bee9aa5068a627130d50f8d Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Sun, 26 Aug 2001 14:50:16 +0000
Subject: save the .img file so that multi-cd install won't ask to re-enter
 first cd

---
 perl-install/install_any.pm | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index c07f4a9ca..f7c86f9f8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -191,7 +191,11 @@ sub setup_postinstall_rpms($$) {
     #- last arg is default medium '' known as the CD#1.
     pkgs::extractHeaders($prefix, \@toCopy, $packages->{mediums}{1});
     commands::cp((map { "/tmp/image/" . relGetFile(pkgs::packageFile($_)) } @toCopy), $postinstall_rpms);
+
+    log::l("copying Auto Install Floppy");
+    getAndSaveInstallFloppy($::o, "$postinstall_rpms/auto_install.img");
 }
+
 sub clean_postinstall_rpms() {
     require commands;
     $postinstall_rpms and -d $postinstall_rpms and commands::rm('-rf', $postinstall_rpms);
@@ -668,10 +672,16 @@ push @graphical_steps, 'doPartitionDisks', 'formatPartitions';
 
 sub getAndSaveInstallFloppy {
     my ($o, $where) = @_;
-    my $image = cat_("/proc/cmdline") =~ /pcmcia/ ? "pcmcia" :
-      ${{ disk => 'hd', cdrom => 'cdrom', ftp => 'network', nfs => 'network', http => 'network' }}{$o->{method}};
-    $image .= arch() =~ /sparc64/ && "64"; #- for sparc64 there are a specific set of image.
-    getAndSaveFile("images/$image.img", $where) or log::l("failed to write Install Floppy ($image.img) to $where"), return;
+    if ($postinstall_rpms && -d $postinstall_rpms && -r "$postinstall_rpms/auto_install.img") {
+	log::l("getAndSaveInstallFloppy: using file saved as $postinstall_rpms/auto_install.img");
+	require commands;
+	commands::cp("-f", "$postinstall_rpms/auto_install.img", $where) or return;
+    } else {
+	my $image = cat_("/proc/cmdline") =~ /pcmcia/ ? "pcmcia" :
+	  ${{ disk => 'hd', cdrom => 'cdrom', ftp => 'network', nfs => 'network', http => 'network' }}{$o->{method}};
+	$image .= arch() =~ /sparc64/ && "64"; #- for sparc64 there are a specific set of image.
+	getAndSaveFile("images/$image.img", $where) or log::l("failed to write Install Floppy ($image.img) to $where"), return;
+    }
     1;
 }
 
@@ -715,7 +725,7 @@ sub getAndSaveAutoInstallFloppy {
         commands::rm("-rf", $workdir, $mountdir, $imagefile);
     } else {
 	my $imagefile = "$o->{prefix}/tmp/autoinst.img";
-	my $mountdir = "$o->{prefix}/tmp/mount"; -d $mountdir or mkdir $mountdir, 0755;
+	my $mountdir = "$o->{prefix}/tmp/aif-mount"; -d $mountdir or mkdir $mountdir, 0755;
 
 	my $param = 'kickstart=floppy ' . generate_automatic_stage1_params($o);
 
@@ -740,8 +750,10 @@ sub getAndSaveAutoInstallFloppy {
 	output("$mountdir/auto_inst.cfg", g_auto_install($replay));
 
 	fs::umount($mountdir);
+	rmdir $mountdir;
 	c::del_loop($dev);
-        commands::dd("if=$imagefile", "of=$where", "bs=1440", "count=1024");
+	require commands;
+	commands::dd("if=$imagefile", "of=$where", "bs=1440", "count=1024");
     }
     1;
 }
-- 
cgit v1.2.1