diff options
author | Olivier Blin <oblin@mandriva.org> | 2004-08-11 07:28:43 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2004-08-11 07:28:43 +0000 |
commit | 21aa88487bfd3513bd00bbd30203490bbff8cd7d (patch) | |
tree | 19085c83dafd87756ebb99c3b0cc241bb00ede32 /perl-install | |
parent | a308e6644979aed8a280db1bf391779f108496a6 (diff) | |
download | drakx-backup-do-not-use-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar drakx-backup-do-not-use-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar.gz drakx-backup-do-not-use-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar.bz2 drakx-backup-do-not-use-21aa88487bfd3513bd00bbd30203490bbff8cd7d.tar.xz drakx-backup-do-not-use-21aa88487bfd3513bd00bbd30203490bbff8cd7d.zip |
fix product, component and version for bugzilla
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 { |