summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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"));
}