diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/drakbug | 15 |
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"); |