From 21aa88487bfd3513bd00bbd30203490bbff8cd7d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 11 Aug 2004 07:28:43 +0000 Subject: fix product, component and version for bugzilla --- perl-install/standalone/drakbug | 8 ++++++-- 1 file 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 { -- cgit v1.2.1