diff options
author | Daouda Lo <daouda@mandriva.com> | 2002-09-10 16:48:35 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2002-09-10 16:48:35 +0000 |
commit | a5e8ed69b1dffe7e87510b310006772cc0e93730 (patch) | |
tree | cd5a01a5e6f032e3fccda5558913090b8feb8531 /perl-install/standalone | |
parent | c27d222300169193a55127625716d70510110f45 (diff) | |
download | drakx-backup-do-not-use-a5e8ed69b1dffe7e87510b310006772cc0e93730.tar drakx-backup-do-not-use-a5e8ed69b1dffe7e87510b310006772cc0e93730.tar.gz drakx-backup-do-not-use-a5e8ed69b1dffe7e87510b310006772cc0e93730.tar.bz2 drakx-backup-do-not-use-a5e8ed69b1dffe7e87510b310006772cc0e93730.tar.xz drakx-backup-do-not-use-a5e8ed69b1dffe7e87510b310006772cc0e93730.zip |
- definitive link and options
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakbug | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 5e8358950..75ffb1a37 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -34,7 +34,7 @@ my $in = 'interactive'->vnew; my $bugzilla_url = "https://drakbug.mandrakesoft.com"; my $version = "0.9.0"; my $prog; -my $incident=1; +my $incident=0; sub usage { print STDERR _("drakbug version %s @@ -130,11 +130,15 @@ my $hbx = new Gtk::HBox(0,0); my $Close_Button = new Gtk::Button(_("Close")); $Close_Button->signal_connect(clicked => sub { Gtk->exit(0) }); $hbx->pack_start($Close_Button,0,0,0); -my $options = "mdkwizard=1"; -$options.=""; my $Report_Button = new Gtk::Button(_("Report")); -$Report_Button->signal_connect(clicked => sub { connect_bugzilla("$::bugzilla_url/wizard?"."$options") }); +$Report_Button->signal_connect(clicked => sub { my $options = "mdkwizard=1"; + $options.="incident=1" if $incident; + $p = $package->get_text(); $k=$kernel_rel->get_text(); ($r =parse_release()) =~ s/\s//; + $options.="?package=$p" ; + $options.="?kernel=$k"; + $options.="?mdkrelease=$r"; + connect_bugzilla("$bugzilla_url/wizard?"."$options") }); $hbx->pack_end($Report_Button,0,0,0); $vbx->pack_start($hbx,0,0,0); $window_g->add($vbx); @@ -176,16 +180,17 @@ sub get_package { sub parse_release { my ($rel) = cat_('/etc/mandrake-release') =~ /release\s(\S+\s\(.*\))/; - + $rel; } + sub connect_bugzilla { my($url) = @_; my $w = $in->wait_message('',_("connecting to Bugzilla wizard ...")); - sleep(2); + sleep(3); exec $ENV{BROWSER},$url if exists $ENV{BROWSER} ; my @browser = qw (mozilla konqueror galeon); foreach (@browser) { - if (-e "/usr/bin/$_") { print "execing $_ : $url\n "; exec $_,$url } + if (-e "/usr/bin/$_") { standalone::explanations("Contacting $url with $_\n "); exec $_,$url } } $in->ask_warn('', _("No browser available! Please install one")); } |