diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbug | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 54552a6db..07c1cf4b9 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -132,9 +132,13 @@ gtkadd($window->{window}, my $options = "mdkbugreport=1"; $options .= "&incident=1" if $incident; my $p = $package->get_text; - $options .= "&package=$p" if $p =~ /mdk/; + my ($product, $version) = $p =~ /^(.*)-([^-]+-[^-]+mdk)$/; + my $app = $comb_app->entry->get_text; + my $component = if_(member($app, @all_drakxtools), $app) || $mdk_app->{$app}; + $options .= "&product=$product" if $product; + $options .= "&component=$component" if $component; + $options .= "&version=$version" if $version; $options .= "&kernel=$kernel_release"; - $options .= "&version=$mandrake_version"; print($bugzilla . "?" . $options . "\n"); connect_bugzilla($bugzilla . "?" . $options); } else { |