summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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");