summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-11 07:28:43 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-11 07:28:43 +0000
commit21aa88487bfd3513bd00bbd30203490bbff8cd7d (patch)
tree19085c83dafd87756ebb99c3b0cc241bb00ede32 /perl-install/standalone
parenta308e6644979aed8a280db1bf391779f108496a6 (diff)
downloaddrakx-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar
drakx-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar.gz
drakx-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar.bz2
drakx-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar.xz
drakx-21aa88487bfd3513bd00bbd30203490bbff8cd7d.zip
fix product, component and version for bugzilla
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbug8
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 {