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

8 files changed, 30 insertions, 16 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;
 }
 
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index f98da39e3..2893b4a46 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -183,7 +183,7 @@ sub formatPartitions {
 	etc/sysconfig/network-scripts etc/sysconfig/console/consolefonts 
 	etc/sysconfig/console/consoletrans
 	home mnt tmp var var/tmp var/lib var/lib/rpm var/lib/urpmi);
-    mkdir "$o->{prefix}/$_", 0700 foreach qw(root root/tmp);
+    mkdir "$o->{prefix}/$_", 0700 foreach qw(root root/tmp root/drakx);
 
     common::screenshot_dir__and_move();
 
@@ -626,8 +626,8 @@ sub main {
 
     -e "$o->{prefix}/usr/sbin/urpmi.update" or eval { rm_rf("$o->{prefix}/var/lib/urpmi") };
 
-    #- have the really bleeding edge ddebug.log
-    eval { cp_af("/tmp/ddebug.log", "$o->{prefix}/root") };
+    #- copy latest log files
+    eval { cp_af("/tmp/$_", "$o->{prefix}/root/drakx") foreach qw(ddebug.log stage1.log) };
 
     #- ala pixel? :-) [fpons]
     common::sync(); common::sync();
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 4461e4815..f5204bcec 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -648,7 +648,7 @@ sub kdemove_desktop_file {
 #-###############################################################################
 #- auto_install stuff
 #-###############################################################################
-sub auto_inst_file() { ($::g_auto_install ? "/tmp" : "$::o->{prefix}/root") . "/auto_inst.cfg.pl" }
+sub auto_inst_file() { ($::g_auto_install ? "/tmp" : "$::o->{prefix}/root/drakx") . "/auto_inst.cfg.pl" }
 
 sub report_bug {
     my ($prefix) = @_;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 7352b0476..a2a43e6dc 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -49,7 +49,7 @@ sub leavingStep {
     log::l("step `$step' finished");
 
     if (-d "$o->{prefix}/root") {
-	eval { cp_af("/tmp/ddebug.log", "$o->{prefix}/root") };
+	eval { cp_af("/tmp/ddebug.log", "$o->{prefix}/root/drakx") };
 	output(install_any::auto_inst_file(), install_any::g_auto_install());
     }
 
@@ -382,7 +382,7 @@ sub afterInstallPackages($) {
     die _("Some important packages didn't get installed properly.
 Either your cdrom drive or your cdrom is defective.
 Check the cdrom on an installed computer using \"rpm -qpl Mandrake/RPMS/*.rpm\"
-") if grep { m|read failed: Input/output error| } cat_("$o->{prefix}/root/install.log");
+") if grep { m|read failed: Input/output error| } cat_("$o->{prefix}/root/drakx/install.log");
 
     if (arch() !~ /^sparc/) { #- TODO restore it as may be needed for sparc
 	-x "$o->{prefix}/usr/bin/dumpkeys" or $::testing or die 
@@ -939,8 +939,15 @@ sub miscellaneous {
 #------------------------------------------------------------------------------
 sub exitInstall { 
     my ($o) = @_;
-    eval { output "$o->{prefix}/root/report.bug", install_any::report_bug($o->{prefix}) };
-    install_any::getAndSaveAutoInstallFloppy($o, 1, "$o->{prefix}/root/replay_install.img");
+    eval { output "$o->{prefix}/root/drakx/report.bug", install_any::report_bug($o->{prefix}) };
+    install_any::getAndSaveAutoInstallFloppy($o, 1, "$o->{prefix}/root/drakx/replay_install.img" );
+    eval { output "$o->{prefix}/root/drakx/README", "This directory contains several installation-related files,
+mostly log files (very useful if you ever report a bug!).
+
+Beware that some Mandrake tools rely on the contents of some
+of these files... so remove any file from here at your own
+risk!
+" };
     install_any::unlockCdrom;
     install_any::log_sizes($o);
 }
diff --git a/perl-install/log.pm b/perl-install/log.pm
index 59f3d4bbf..649ed30a0 100644
--- a/perl-install/log.pm
+++ b/perl-install/log.pm
@@ -36,7 +36,7 @@ sub openLog(;$) {
 	if ($_[0]) { #- useLocal
 	    open LOG, "> $_[0]";# or die "no log possible :(";
 	} else {
-	    open LOG, "> /dev/tty3" or open LOG, ">> /tmp/install.log";# or die "no log possible :(";
+	    open LOG, "> /dev/tty3";# or die "no log possible :(";
 	}
 	open LOG2, ">> /tmp/ddebug.log";# or die "no log possible :(";
 	select((select(LOG),  $| = 1)[0]);
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8c2f24865..5107c0bc8 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -862,7 +862,7 @@ sub computeGroupSize {
 sub init_db {
     my ($prefix) = @_;
 
-    my $f = "$prefix/root/install.log";
+    my $f = "$prefix/root/drakx/install.log";
     open(LOG, ">> $f") ? log::l("opened $f") : log::l("Failed to open $f. No install log will be kept.");
     *LOG or *LOG = log::F() or *LOG = *STDERR;
     CORE::select((CORE::select(LOG), $| = 1)[0]);
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);