summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2005-03-01 12:47:55 +0000
committerDaouda Lo <daouda@mandriva.com>2005-03-01 12:47:55 +0000
commit9500bac03ef2292a834f0b8742e38bdd27ed815a (patch)
treebd216f95dbc816a9c6a65a1e760500b92fd97a92 /perl-install
parentc2a709ca28f5d3bb13b60e3bc0c070ef43750a03 (diff)
downloaddrakx-backup-do-not-use-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar
drakx-backup-do-not-use-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar.gz
drakx-backup-do-not-use-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar.bz2
drakx-backup-do-not-use-9500bac03ef2292a834f0b8742e38bdd27ed815a.tar.xz
drakx-backup-do-not-use-9500bac03ef2292a834f0b8742e38bdd27ed815a.zip
- use any::launch_browser_with_wm func to launch better suited browser
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug16
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"));
-}