summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rwxr-xr-xperl-install/standalone/drakbug15
2 files changed, 13 insertions, 3 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 997c24f7f..54982d43c 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
- drakbug:
+ o automatically report CPU name & kernel version
o prefill the platform field
Version 10.32 - 13 May 2008
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 5b32631c2..14f37ff40 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -238,6 +238,10 @@ sub report_bug_to_bugzilla() {
}
my $rel_data = mandrake_release_info();
my $rel = standalone::real_version();
+ my $cpuinfo;
+ if (cat_('/proc/cpuinfo') =~ /model name\s*:\s*(.*)$/m) {
+ $cpuinfo = $1;
+ }
my $arch = arch();
$arch = 'i586' if arch =~ /^i.86/;
my $options = join('&',
@@ -248,7 +252,10 @@ sub report_bug_to_bugzilla() {
"rep_platform=$arch",
if_($incident,
"short_desc=$prog%20" . ($segfaulted ? 'segfaulted' : 'crashed'),
- 'comment=' . uri_escape(qq(The "$prog" program crashed. Drakbug-$rel caught it.
+ ),
+ 'comment=' . uri_escape(
+ if_($incident,
+ qq(The "$prog" program crashed. Drakbug-$rel caught it.
) . ($text || "Please describe what you were doing when it crashed.") . "\n\n"
. ($error ? qq(Backtrace was:
@@ -257,8 +264,10 @@ $error) :
. if_($gdb_trace, qq(
GDB backtrace was (its interesting part is below Perl_pp_fork() or Perl_pp_waitpid()):
$gdb_trace)),
- ),
- ),
+ )
+ . qq(Kernel version = $kernel_release
+) . if_($cpuinfo, "CPU=$cpuinfo")
+ ),
);
print($bugzilla_url . "?" . $options . "\n");
run_program::raw({ detach => 1, setuid => $parent_uid }, '/usr/bin/www-browser', "$bugzilla_url?$options");