summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2004-02-26 16:38:22 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2004-02-26 16:38:22 +0000
commit3d3d3e7e3e29baefb02f8e1070d1223270f4e4b4 (patch)
treeb1682cbfe03df40628a6e694424de87f2268ed51 /perl-install/standalone
parent84a113aea8b49baa670dd26a83bb2642df8e00cf (diff)
downloaddrakx-3d3d3e7e3e29baefb02f8e1070d1223270f4e4b4.tar
drakx-3d3d3e7e3e29baefb02f8e1070d1223270f4e4b4.tar.gz
drakx-3d3d3e7e3e29baefb02f8e1070d1223270f4e4b4.tar.bz2
drakx-3d3d3e7e3e29baefb02f8e1070d1223270f4e4b4.tar.xz
drakx-3d3d3e7e3e29baefb02f8e1070d1223270f4e4b4.zip
support two-floppies boot style for replay_install disk as well (not nice at all..)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakautoinst17
1 files changed, 17 insertions, 0 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 19c0cd880..4512571ca 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -34,6 +34,7 @@ my $direct = /-direct/;
my $in = 'interactive'->vnew('su', 'default');
my $imagefile = "/root/drakx/replay_install.img";
+my $imagefile2 = "/root/drakx/replay_install_drivers.img";
-f $imagefile or $in->ask_warn(N("Error!"),
N("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
@@ -82,6 +83,22 @@ do {
$again = $@; #- grrr... $@ is localized in code block :-(
} while $again;
fs::mount($dev, $mountdir, 'vfat', 0);
+
+if (-f $imagefile2) {
+ do {
+ eval { fs::umount($mountdir) };
+ $in->ask_okcancel('', N("Insert another blank floppy in drive %s (for drivers disk)", $floppy), 1) or quit_global($in, 0);
+ log::explanations(N("Creating auto install floppy (drivers disk)"));
+ my $_w = $in->wait_message('', N("Creating auto install floppy"));
+ eval {
+ commands::dd("if=$imagefile2", "of=$dev", "bs=1440", "count=1024");
+ common::sync();
+ };
+ $again = $@; #- grrr... $@ is localized in code block :-(
+ } while $again;
+ fs::mount($dev, $mountdir, 'ext2', 0);
+}
+
my $cfgfile = "$mountdir/auto_inst.cfg";
eval(cat_($cfgfile));
my $o_old = $o; # BUG (maybe install's $::o ?)