summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-05 06:13:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-05 06:13:22 +0000
commit53612ac1c6058c05c5f63b4549ed7472b2ada42e (patch)
treec492428d105b5cebe4f514f50b6f51899b1983ee /perl-install
parent021bea3b0bd1a14b10eda7ccc7d5f8383642aeca (diff)
downloaddrakx-53612ac1c6058c05c5f63b4549ed7472b2ada42e.tar
drakx-53612ac1c6058c05c5f63b4549ed7472b2ada42e.tar.gz
drakx-53612ac1c6058c05c5f63b4549ed7472b2ada42e.tar.bz2
drakx-53612ac1c6058c05c5f63b4549ed7472b2ada42e.tar.xz
drakx-53612ac1c6058c05c5f63b4549ed7472b2ada42e.zip
make room on replay/auto_install floppy image before doing anything
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 427c019c3..95c73953c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -901,12 +901,14 @@ sub getAndSaveAutoInstallFloppies {
s/\bautomatic=method:disk/$param/;
} "$mountdir/menu.lst";
} elsif (-e "$mountdir/syslinux.cfg") {
+ #- make room first
+ unlink "$mountdir/help.msg", "$mountdir/boot.msg";
+
substInFile {
s/timeout.*/$replay ? 'timeout 1' : ''/e;
s/^(\s*append)/$1 $param/
} "$mountdir/syslinux.cfg";
- unlink "$mountdir/help.msg";
output "$mountdir/boot.msg", $replay ? '' : "\n0c" .
"!! If you press enter, an auto-install is going to start.
All data on this computer is going to be lost,