summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-01-29 22:38:31 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-01-29 22:38:31 +0000
commita219b373c051fdc3e932634a31b15b4fa4e983ff (patch)
tree76037d6c553e543cf4db603576e3c9ca8e80c23e /perl-install/standalone
parentc6112f999b11dbf57a12cabd4bfa277fde6704e8 (diff)
downloaddrakx-backup-do-not-use-a219b373c051fdc3e932634a31b15b4fa4e983ff.tar
drakx-backup-do-not-use-a219b373c051fdc3e932634a31b15b4fa4e983ff.tar.gz
drakx-backup-do-not-use-a219b373c051fdc3e932634a31b15b4fa4e983ff.tar.bz2
drakx-backup-do-not-use-a219b373c051fdc3e932634a31b15b4fa4e983ff.tar.xz
drakx-backup-do-not-use-a219b373c051fdc3e932634a31b15b4fa4e983ff.zip
move /root/* files (ddebug.log, install.log, report.bug,
auto_inst.cfg.pl, replay_install.img) to /root/drakx/, and also save stage1.log there
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakautoinst7
-rwxr-xr-xperl-install/standalone/drakbug_report1
2 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 04ff72cbc..0bd6894a4 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -41,7 +41,7 @@ my $in = 'interactive'->vnew('su', 'default');
begin:
$::isEmbedded and kill USR2, $::CCPID;
-my $imagefile = "/root/replay_install.img";
+my $imagefile = "/root/drakx/replay_install.img";
-f $imagefile or $in->ask_okcancel(_("Error!"),
_("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
@@ -360,6 +360,11 @@ sub control_buttons {
#-------------------------------------------------
#- $Log$
+#- Revision 1.17 2002/01/29 22:38:31 gc
+#- move /root/* files (ddebug.log, install.log, report.bug,
+#- auto_inst.cfg.pl, replay_install.img) to /root/drakx/,
+#- and also save stage1.log there
+#-
#- Revision 1.16 2002/01/18 20:22:20 gc
#- - write the 'common' part of the 'explanations' stuff,
#- with nice help from Pixel for the tough Perl part
diff --git a/perl-install/standalone/drakbug_report b/perl-install/standalone/drakbug_report
index e031a008f..6b70acb35 100755
--- a/perl-install/standalone/drakbug_report
+++ b/perl-install/standalone/drakbug_report
@@ -8,6 +8,7 @@ use any;
my %other = (
'rpm -qa' => join('', sort `rpm -qa`),
'mandrake version' => cat_('/etc/redhat-release'),
+ 'df' => join('', `df`),
);
print any::report_bug('', %other);