summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-22 22:22:37 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-22 22:22:37 +0000
commit9c6126635193f3daf9cfe4b13aa09c68051ce45a (patch)
tree411e3eec97d2f859a28001212a06f44dfdcec22e /perl-install
parentc914e4afd54855d3add074970c0616f4a4349301 (diff)
downloaddrakx-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar
drakx-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar.gz
drakx-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar.bz2
drakx-9c6126635193f3daf9cfe4b13aa09c68051ce45a.tar.xz
drakx-9c6126635193f3daf9cfe4b13aa09c68051ce45a.zip
do not mix interactive and ugtk2, let reusse create_dialog()
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug8
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 70ab28da6..3f34eaadc 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -22,14 +22,10 @@ use diagnostics;
use lib qw(/usr/lib/libDrakX);
use standalone;
-use interactive;
use common;
use ugtk2 qw(:all);
use Config;
-
-my $in = 'interactive'->vnew;
-
my $bugzilla_url = "http://drakbug.mandrakesoft.com";
my $version = "0.9.0";
my $prog;
@@ -157,12 +153,12 @@ sub parse_release() {
sub connect_bugzilla {
my ($url) = @_;
- my $_w = $in->wait_message('', N("connecting to Bugzilla wizard ..."));
+ my $_w = create_dialog(N("Please wait"), N("connecting to Bugzilla wizard ..."));
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 }
}
- $in->ask_warn('', N("No browser available! Please install one"));
+ create_dialog(N("Error"), N("No browser available! Please install one"));
}