From f2783f79e6109cf337de96eb64adea4b05258554 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Wed, 10 Jul 2002 12:32:02 +0000 Subject: - code update - use local http server for test. --- perl-install/standalone/drakbug | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 25fe0d8fc..94e373af2 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # Drak Bug Report # Copyright (C) 2002 MandrakeSoft (daouda@mandrakesoft.com) @@ -25,10 +25,13 @@ use MDK::Common; require Gtk; require Gtk::Gdk::ImlibImage; use my_gtk qw(:helpers :wrappers :ask); +use Config; Gtk::Gdk::ImlibImage->init; +$::isStandalone=1; my $in = 'interactive'->vnew; + $::bugzilla_url = "https://qa.mandrakesoft.com"; my $window_g = new Gtk::Window -toplevel; @@ -88,7 +91,6 @@ my $app_choice; $comb_app->entry->signal_connect('changed', sub { if ((my $text = $comb_app->entry->get_text()) ne '') { - # wantarray ? exists $mdk_app->{$text}[1] ? chomp($which_app =`which '$mdk_app->{$text}[1]'`) : chomp($which_app = `which '$mdk_app->{$text}'`); chomp($app_choice = `rpm -qf '$which_app'`); $app_choice ne '' ? $version->set_text("$app_choice") : $version->set_text(_("Not installed")); @@ -101,7 +103,7 @@ my $Close_Button = new Gtk::Button(_("Close")); $Close_Button->signal_connect(clicked => sub { Gtk->exit(0)}); $hbx->pack_start($Close_Button,0,0,0); my $Report_Button = new Gtk::Button(_("Report")); -$Report_Button->signal_connect(clicked => sub { connect_bugzilla("https://qa.mandrakesoft.com/wizard.php/");}); +$Report_Button->signal_connect(clicked => sub { connect_bugzilla("http://192.168.100.126/~daouda/bugs/html/wizard/");}); $hbx->pack_end($Report_Button,0,0,0); $vbx->pack_start($hbx,0,0,0); $window_g->add($vbx); @@ -111,7 +113,6 @@ Gtk->main(); Gtk->exit(0); in->exit(0); - sub connect_bugzilla { my($url) = @_; my $w = $in->wait_message('',_("connecting to Bugzilla wizard ...")); @@ -121,7 +122,6 @@ sub connect_bugzilla { sub read_app_context { my ($name) = @_; - $na } sub quit_global { -- cgit v1.2.1