diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-06-27 14:26:54 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-06-27 14:26:54 +0000 |
| commit | 20e17418ef5bba9d5e90430ce24a0893deb4c7a6 (patch) | |
| tree | 43957a5fbf9ddd8b5cad5050d4c0f920fa513728 /perl-install/any.pm | |
| parent | cb9b426b5a1d5bba90719982e9de077e38b887f8 (diff) | |
| download | drakx-backup-do-not-use-20e17418ef5bba9d5e90430ce24a0893deb4c7a6.tar drakx-backup-do-not-use-20e17418ef5bba9d5e90430ce24a0893deb4c7a6.tar.gz drakx-backup-do-not-use-20e17418ef5bba9d5e90430ce24a0893deb4c7a6.tar.bz2 drakx-backup-do-not-use-20e17418ef5bba9d5e90430ce24a0893deb4c7a6.tar.xz drakx-backup-do-not-use-20e17418ef5bba9d5e90430ce24a0893deb4c7a6.zip | |
have the drakx "bug" command available in standalone via "drakbug_report"
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 2fe5e0eca..b429ac3e4 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -800,4 +800,32 @@ sub runlevel { sub to_utf8 { c::iconv($_[0], $lang::charset || 'ISO-8859-1', "utf-8") } +sub report_bug { + my ($prefix, @other) = @_; + + sub header { " +******************************************************************************** +* $_[0] +********************************************************************************"; + } + + join '', map { chomp; "$_\n" } + header("lspci"), detect_devices::stringlist(), + header("pci_devices"), cat_("/proc/bus/pci/devices"), + header("fdisk"), arch() =~ /ppc/ ? `$ENV{LD_LOADER} pdisk -l` : `$ENV{LD_LOADER} fdisk -l`, + header("scsi"), cat_("/proc/scsi/scsi"), + header("lsmod"), cat_("/proc/modules"), + header("cmdline"), cat_("/proc/cmdline"), + header("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"), `$ENV{LD_LOADER} ddcxinfos`, + header("ddebug.log"), cat_("/tmp/ddebug.log"), + header("install.log"), cat_("$prefix/root/install.log"), + header("fstab"), cat_("$prefix/etc/fstab"), + map_index { even($::i) ? header($_) : $_ } @other; +} + 1; |