diff options
author | Daouda Lo <daouda@mandriva.com> | 2005-03-01 12:47:55 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2005-03-01 12:47:55 +0000 |
commit | 9500bac03ef2292a834f0b8742e38bdd27ed815a (patch) | |
tree | bd216f95dbc816a9c6a65a1e760500b92fd97a92 /perl-install/standalone/drakbug | |
parent | c2a709ca28f5d3bb13b60e3bc0c070ef43750a03 (diff) | |
download | drakx-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar drakx-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar.gz drakx-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar.bz2 drakx-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar.xz drakx-9500bac03ef2292a834f0b8742e38bdd27ed815a.zip |
- use any::launch_browser_with_wm func to launch better suited browser
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-x | perl-install/standalone/drakbug | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index bd4ab4289..934818d3f 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -21,7 +21,7 @@ use strict; use diagnostics; use lib qw(/usr/lib/libDrakX); - +use any; use standalone; use common; use ugtk2 qw(:all); @@ -120,7 +120,7 @@ gtkadd($window->{window}, $options .= "&distro_code=$distrocode"; $options .= "&kernel=$kernel_release" if $kernel_release; print($bugzilla . "?" . $options . "\n"); - connect_bugzilla($bugzilla . "?" . $options); + any::launch_browser_with_wm($bugzilla . "?" . $options); } ), 0, gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { ugtk2->exit(0) }), @@ -178,16 +178,4 @@ sub get_package { $rpm_package; } -sub connect_bugzilla { - my ($url) = @_; -# let's not force people to click ok in order to launch the browser (vdanen) -# my $_w = create_dialog(N("Please wait"), N("connecting to %s...", $wizard_name)); -# sleep(3); - exec $ENV{BROWSER},$url if exists $ENV{BROWSER}; - my @browser = qw(mozilla konqueror galeon); - foreach (@browser) { - if (-e "/usr/bin/$_") { log::explanations("Contacting $url with $_\n "); exec $_,$url } - } - create_dialog(N("Error"), N("No browser available! Please install one")); -} |