summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-03-04 13:22:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-03-04 13:22:48 +0000
commitdf07d79cd3d7add4ccb2406f881b9d3d958812cc (patch)
tree970e20ce139fd0d3fd8b26bfe9834606b349c556 /perl-install/install_steps_interactive.pm
parent4457a2607c6a9fc0a1d2935a3febee7f85e1a415 (diff)
downloaddrakx-backup-do-not-use-df07d79cd3d7add4ccb2406f881b9d3d958812cc.tar
drakx-backup-do-not-use-df07d79cd3d7add4ccb2406f881b9d3d958812cc.tar.gz
drakx-backup-do-not-use-df07d79cd3d7add4ccb2406f881b9d3d958812cc.tar.bz2
drakx-backup-do-not-use-df07d79cd3d7add4ccb2406f881b9d3d958812cc.tar.xz
drakx-backup-do-not-use-df07d79cd3d7add4ccb2406f881b9d3d958812cc.zip
fix & cleanup generating replay & auto_install images
(thanks to David Eastcott)
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm16
1 files changed, 10 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 02f032b8f..5cc38719e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1278,17 +1278,21 @@ sub configureX {
#------------------------------------------------------------------------------
sub generateAutoInstFloppy {
my ($o, $replay) = @_;
+ my @imgs = install_any::getAndSaveAutoInstallFloppies($o, $replay) or return;
my $floppy = detect_devices::floppy();
-
$o->ask_okcancel('', N("Insert a blank floppy in drive %s", $floppy), 1) or return;
- my $dev = devices::make($floppy);
- {
+ my $i;
+ foreach (@imgs) {
+ if ($i++) {
+ $o->ask_okcancel('', N("Please insert another floppy for drivers disk"), 1) or return;
+ }
my $_w = $o->wait_message('', N("Creating auto install floppy..."));
- install_any::getAndSaveAutoInstallFloppy($o, $replay, $dev) or return;
- }
- common::sync(); #- if you shall remove the floppy right after the LED switches off
+ require commands;
+ commands::dd("if=$_", 'of=' . devices::make($floppy));
+ common::sync();
+ }
}
#------------------------------------------------------------------------------