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/any.pm | |
| 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/any.pm')
| -rw-r--r-- | perl-install/any.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 36d6fc954..22929ef64 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -376,7 +376,7 @@ sub rotate_log { } sub rotate_logs { my ($prefix) = @_; - rotate_log("$prefix/root/$_") foreach qw(ddebug.log install.log); + rotate_log("$prefix/root/drakx/$_") foreach qw(ddebug.log install.log); } sub writeandclean_ldsoconf { @@ -891,17 +891,18 @@ sub report_bug { header("scsi"), cat_("/proc/scsi/scsi"), header("lsmod"), cat_("/proc/modules"), header("cmdline"), cat_("/proc/cmdline"), - header("pcmcia: stab"), cat_('/var/run/stab'), cat_('/var/lib/pcmcia/stab'), + header("pcmcia: stab"), cat_('/var/lib/pcmcia/stab') || cat_('/var/run/stab'), header("usb"), cat_("/proc/bus/usb/devices"), header("partitions"), cat_("/proc/partitions"), header("cpuinfo"), cat_("/proc/cpuinfo"), header("syslog"), cat_("/tmp/syslog"), header("ddcxinfos"), ddcxinfos(), - header("stage1.log"), cat_("/tmp/stage1.log"), - header("ddebug.log"), cat_("/tmp/ddebug.log"), - header("install.log"), cat_("$prefix/root/install.log"), + header("stage1.log"), cat_("/tmp/stage1.log") || cat_("$prefix/root/drakx/stage1.log"), + header("ddebug.log"), cat_("/tmp/ddebug.log") || cat_("$prefix/root/drakx/ddebug.log"), + header("install.log"), cat_("$prefix/root/drakx/install.log"), header("fstab"), cat_("$prefix/etc/fstab"), header("modules.conf"), cat_("$prefix/etc/modules.conf"), + header("/etc/modules"), cat_("$prefix/etc/modules"), map_index { even($::i) ? header($_) : $_ } @other; } |