summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-01 19:35:21 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-01 19:35:21 +0000
commit45d7eadb3b58f569382f6557d053767cbd0127a2 (patch)
tree1b777b165b7226b4cd7ccb01c353082d1af0d8a5 /perl-install
parentc42a6126e32df080f9146ce9a3a1fdd663b3e225 (diff)
downloaddrakx-backup-do-not-use-45d7eadb3b58f569382f6557d053767cbd0127a2.tar
drakx-backup-do-not-use-45d7eadb3b58f569382f6557d053767cbd0127a2.tar.gz
drakx-backup-do-not-use-45d7eadb3b58f569382f6557d053767cbd0127a2.tar.bz2
drakx-backup-do-not-use-45d7eadb3b58f569382f6557d053767cbd0127a2.tar.xz
drakx-backup-do-not-use-45d7eadb3b58f569382f6557d053767cbd0127a2.zip
basic adaption to new bugzilla (#31995)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rwxr-xr-xperl-install/standalone/drakbug10
2 files changed, 4 insertions, 7 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index b0cf09ece..fce235dea 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -4,6 +4,7 @@
bad compared to testdisk anyway)
- drakauth: fix bogus string (#10776)
- drakbug:
+ o basic adaption to new bugzilla (#31995)
o display Mandriva Online for mdkapplet in the "select mandriva
tool" field
- draksec: improve explanations (#6969)
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 1a8718c3a..508eda66b 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -98,19 +98,15 @@ gtkadd($window->{window},
gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub { system("drakhelp --id drakbug &") }),
gtkpack(create_hbox('end'),
gtksignal_connect(Gtk2::Button->new(N("Report")), clicked => sub {
- my $options = "mdkbugreport=1";
- $options .= "&incident=1" if $incident;
my $p = $package->get_text;
my ($product, $version) = $p =~ /^(.*)-([^-]+-[^-]+(mdk|mdv.*))$/; # FIXME: fragile!
my $app = $comb_app->entry->get_text;
my $component = $app ?
if_(member($app, @all_drakxtools), $app) || $mdk_app->{$app} :
$product;
- $options .= "&product=$product" if $product;
- $options .= "&component=$component";
- $options .= "&version=$version" if $version;
- $options .= "&distro_code=$distrocode";
- $options .= "&kernel=$kernel_release" if $kernel_release;
+ my $options .= 'cf_rpmpkg=' . join('-', $product, $version) if $product || $version;
+ $options .= '&component=Core%20Packages';
+ $options .= '&classification=Mandriva%20Linux';
print($bugzilla_url . "?" . $options . "\n");
require run_program;
run_program::raw({ detach => 1 }, '/usr/bin/www-browser', "$bugzilla_url?$options");