summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-01-24 13:12:04 +0000
committerThierry Vignaud <tv@mandriva.org>2008-01-24 13:12:04 +0000
commitfd543ea84f3e0ed8e179b1f74750f427b90ac4ff (patch)
tree5ef2e7753c68bb9ffdf5a1e8bef873b884b2181a /perl-install/standalone/drakbug
parent1997d020ea4a42e3a708b6d9a0b6e11902449e7d (diff)
downloaddrakx-fd543ea84f3e0ed8e179b1f74750f427b90ac4ff.tar
drakx-fd543ea84f3e0ed8e179b1f74750f427b90ac4ff.tar.gz
drakx-fd543ea84f3e0ed8e179b1f74750f427b90ac4ff.tar.bz2
drakx-fd543ea84f3e0ed8e179b1f74750f427b90ac4ff.tar.xz
drakx-fd543ea84f3e0ed8e179b1f74750f427b90ac4ff.zip
make "Please describe what you were doing when it crashed" more
visible and force people to write something in before opening bugzilla
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug24
1 files changed, 20 insertions, 4 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index d064b1ae8..fa7d84173 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -33,7 +33,7 @@ use run_program;
my $prog;
my $incident = 0;
-my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode, $error, $gdb_trace);
+my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode, $error, $gdb_trace, $user_descr);
my $i;
foreach (@ARGV) {
@@ -153,6 +153,12 @@ gtkadd($window->{window},
N("To submit a bug report, click on the report button. \nThis will open a web browser window on %s where you'll find a form to fill in. The information displayed above will be transferred to that server. \nThings useful to include in your report are the output of lspcidrake -v, kernel version, and /proc/cpuinfo.", $wizard_name)
]
])),
+ 0, gtknew('Title2', label => N("Please describe what you were doing when it crashed:")),
+ if_($incident,
+ 1, create_scrolled_window(
+ $user_descr = gtknew('TextView', editable => 1, height => 200)
+ ),
+ ),
if_(!$error,
0, gtkadd($table),
),
@@ -167,6 +173,17 @@ gtkadd($window->{window},
my $component = $app ?
if_(member($app, @all_drakxtools), $app) || $mdk_app->{$app} :
$product;
+ my $text;
+ if ($incident) {
+ my $buffer = $user_descr->get_buffer;
+ $text = $buffer->get_text($buffer->get_start_iter, $buffer->get_end_iter, 0);
+ if (!$text) {
+ err_dialog(N("Warning"),
+ N("You must type in what you were doing when this bug happens in order to increase the reproductibility of this bug and the odds of fixing it")
+ . "\n\n" . N("Thanks."));
+ return;
+ }
+ }
my $rel = standalone::real_version();
my $options = join('&',
($product || $version ?
@@ -177,9 +194,8 @@ gtkadd($window->{window},
"short_desc=$prog%20" . ($segfaulted ? 'segfaulted' : 'crashed'),
'comment=' . uri_escape(qq(The "$prog" program crashed. Drakbug-$rel caught it.
-Please describe what you were doing when it crashed.
-
-) . ($error ? qq(Backtrace was:
+). ($text || "Please describe what you were doing when it crashed.") . "\n\n"
+. ($error ? qq(Backtrace was:
$error) :
qq(If you can, try to run the "$prog" program from a terminal and copy and paste here any error messages and/or backtrace))
. if_($gdb_trace, qq(