summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakautoinst
diff options
context:
space:
mode:
authorStefan Siegel <siegel@linux-mandrake.com>2001-09-14 17:30:23 +0000
committerStefan Siegel <siegel@linux-mandrake.com>2001-09-14 17:30:23 +0000
commit3bd2c253380344880bc99ab40aee72969f797906 (patch)
treec9e7f5ec440dd4afdb361534827bdc38bbc35561 /perl-install/standalone/drakautoinst
parentdd34a8c52724e2811a6674c1d4eec04e6bc033bf (diff)
downloaddrakx-backup-do-not-use-3bd2c253380344880bc99ab40aee72969f797906.tar
drakx-backup-do-not-use-3bd2c253380344880bc99ab40aee72969f797906.tar.gz
drakx-backup-do-not-use-3bd2c253380344880bc99ab40aee72969f797906.tar.bz2
drakx-backup-do-not-use-3bd2c253380344880bc99ab40aee72969f797906.tar.xz
drakx-backup-do-not-use-3bd2c253380344880bc99ab40aee72969f797906.zip
Check exisence of "/root/replay_install.img" before anything else ...
Diffstat (limited to 'perl-install/standalone/drakautoinst')
-rwxr-xr-xperl-install/standalone/drakautoinst11
1 files changed, 7 insertions, 4 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index e811a2e31..2cb665b6c 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -40,6 +40,10 @@ my $in = 'interactive'->vnew('su', 'default');
begin:
$::isEmbedded and kill USR2, $::CCPID;
+my $imagefile = "/root/replay_install.img";
+-f $imagefile or $in->ask_okcancel(_("Error!"),
+ _("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
+
$::direct or $in->ask_okcancel(_("Auto Install Configurator"),
_("You are about to configure an Auto Install floppy. This feature is somewhat dangerous and must be used circumspectly.
@@ -70,10 +74,6 @@ $in->ask_from(_("Automatic Steps Configuration"),
${$_->[1]} eq 'manual' and push @manual_steps, $_->[0] foreach @all_steps;
-
-my $imagefile = "/root/replay_install.img";
--f $imagefile or $in->ask_okcancel(_("Error!"),
- _("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
my $mountdir = "/root/tmp/drakautoinst-mountdir"; -d $mountdir or mkdir $mountdir, 0755;
my $floppy = detect_devices::floppy();
my $dev = devices::make($floppy);
@@ -125,6 +125,9 @@ sub quit_global {
#-------------------------------------------------
#- $Log$
+#- Revision 1.6 2001/09/14 17:30:23 siegel
+#- Check exisence of "/root/replay_install.img" before anything else ...
+#-
#- Revision 1.5 2001/08/29 21:58:24 gc
#- quit_global
#-