summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-07-26 12:11:37 +0000
committerDaouda Lo <daouda@mandriva.com>2002-07-26 12:11:37 +0000
commit33a73290ad32f4584b0e52da1e0f3e3dbde5812b (patch)
tree2fe54c931ab7e8fead3ec07f1860a2b8ac4a2a39 /perl-install/standalone/drakbug
parent01eab8710027a9adfa643c0008c930ce2f8ccb5a (diff)
downloaddrakx-backup-do-not-use-33a73290ad32f4584b0e52da1e0f3e3dbde5812b.tar
drakx-backup-do-not-use-33a73290ad32f4584b0e52da1e0f3e3dbde5812b.tar.gz
drakx-backup-do-not-use-33a73290ad32f4584b0e52da1e0f3e3dbde5812b.tar.bz2
drakx-backup-do-not-use-33a73290ad32f4584b0e52da1e0f3e3dbde5812b.tar.xz
drakx-backup-do-not-use-33a73290ad32f4584b0e52da1e0f3e3dbde5812b.zip
- add browser list in case BROWSER env var isn't set
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 007237b98..eb0d38c03 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -84,7 +84,7 @@ gtkpack2__(
gtkpack(gtkset_text(my $compiler = new Gtk::Entry(50),"$mdk_release")),
),
gtkpack(new Gtk::HBox(0,0),
- gtkpack(gtkset_justify(new Gtk::Label(_("\n\nTo submit a bug report, click on the button report.\nThis will open a web browser window on https://www.bugzilla.com\n where you'll find a form to fill in.The information displayed above will be \ntransferred to that server\n\n")),"left")),
+ gtkpack(gtkset_justify(new Gtk::Label(_("\n\nTo submit a bug report, click on the button report.\nThis will open a web browser window on https://www.bugzilla.com\n where you'll find a form to fill in.The information displayed above will be \ntransferred to that server\n\n")),"left")),
),
gtkpack(new Gtk::HSeparator),
@@ -92,6 +92,7 @@ gtkpack2__(
);
$comb_app->entry->signal_connect('changed', sub {
if (($text = $comb_app->entry->get_text()) ne '') {
+ $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}";
if (member($text,@all_drakxtools)) {chomp($app_choice = `rpm -q drakxtools`) } else {
exists $mdk_app->{$text}[1] ? chomp($which_app =`which '$mdk_app->{$text}[1]'`) : chomp($which_app = `which '$mdk_app->{$text}'`);
@@ -120,7 +121,11 @@ in->exit(0);
sub connect_bugzilla {
my($url) = @_;
my $w = $in->wait_message('',_("connecting to Bugzilla wizard ..."));
- exec $ENV{BROWSER},$url if $ENV{BROWSER};
+ exec $ENV{BROWSER},$url if exists $ENV{BROWSER};
+ my @browser = qw (mozilla konqueror galeon );
+ foreach (@browser) {
+ if (-e "/usr/bin/$_") { print "execing $_\n "; exec $_,$url}
+ }
$in->ask_warn('', _("No browser available please! Please install one"));
}