From 53612ac1c6058c05c5f63b4549ed7472b2ada42e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 5 Aug 2004 06:13:22 +0000 Subject: make room on replay/auto_install floppy image before doing anything --- perl-install/install_any.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') 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, -- cgit v1.2.1