diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbug | 8 |
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")); } |