diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-01-29 22:38:31 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-01-29 22:38:31 +0000 |
| commit | a219b373c051fdc3e932634a31b15b4fa4e983ff (patch) | |
| tree | 76037d6c553e543cf4db603576e3c9ca8e80c23e /perl-install/standalone | |
| parent | c6112f999b11dbf57a12cabd4bfa277fde6704e8 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakautoinst | 7 | ||||
| -rwxr-xr-x | perl-install/standalone/drakbug_report | 1 |
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); |