summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 6a57a234a..c7410d753 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -31,7 +31,7 @@ Gtk::Gdk::ImlibImage->init;
my $in = 'interactive'->vnew;
-my $bugzilla_url = "https://drakbug.mandrakesoft.com";
+my $bugzilla_url = "http://drakbug.mandrakesoft.com";
my $version = "0.9.0";
my $prog;
my $incident=0;
@@ -133,12 +133,12 @@ $hbx->pack_start($Close_Button,0,0,0);
my $Report_Button = new Gtk::Button(_("Report"));
$Report_Button->signal_connect(clicked => sub { my $options = "mdkwizard=1";
- $options.="?incident=1" if $incident;
+ $options.="&incident=1" if $incident;
$p = $package->get_text(); $k=$kernel_rel->get_text(); ($r =parse_release()) =~ s/\s//;
- $options.="?package=$p" if $p =~ /rpm/;
- $options.="?kernel=$k";
- $options.="?mdkrelease=$r";
- print "$bugzilla_url/wizard?"."$options" ."\n";
+ $options.="&package=$p" if $p =~ /rpm/;
+ $options.="&kernel=$k";
+ $options.="&mdkrelease=$r";
+ print "$bugzilla_url"."?"."$options" ."\n";
connect_bugzilla("$bugzilla_url/wizard?"."$options") });
$hbx->pack_end($Report_Button,0,0,0);
$vbx->pack_start($hbx,0,0,0);