diff options
| author | Stefan Siegel <siegel@linux-mandrake.com> | 2001-09-14 17:30:23 +0000 |
|---|---|---|
| committer | Stefan Siegel <siegel@linux-mandrake.com> | 2001-09-14 17:30:23 +0000 |
| commit | 3bd2c253380344880bc99ab40aee72969f797906 (patch) | |
| tree | c9e7f5ec440dd4afdb361534827bdc38bbc35561 /perl-install/standalone | |
| parent | dd34a8c52724e2811a6674c1d4eec04e6bc033bf (diff) | |
| download | drakx-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')
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 11 |
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 #- |