summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-07-08 13:11:43 +0000
committerDaouda Lo <daouda@mandriva.com>2002-07-08 13:11:43 +0000
commit0bafedc40d723be1edebd98e1a9863a200861634 (patch)
treebd1bcf2136831611176f82b2c001d9894097e9ae /perl-install/standalone/drakbug
parentcf251661c9c3b3c06f4a74af69e7befa97223200 (diff)
downloaddrakx-backup-do-not-use-0bafedc40d723be1edebd98e1a9863a200861634.tar
drakx-backup-do-not-use-0bafedc40d723be1edebd98e1a9863a200861634.tar.gz
drakx-backup-do-not-use-0bafedc40d723be1edebd98e1a9863a200861634.tar.bz2
drakx-backup-do-not-use-0bafedc40d723be1edebd98e1a9863a200861634.tar.xz
drakx-backup-do-not-use-0bafedc40d723be1edebd98e1a9863a200861634.zip
- detect package automatically when app is chosen
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug19
1 files changed, 12 insertions, 7 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index bd0865e11..25fe0d8fc 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
# Drak Bug Report
# Copyright (C) 2002 MandrakeSoft (daouda@mandrakesoft.com)
@@ -67,7 +67,7 @@ gtkpack2__(
),
gtkpack(new Gtk::HBox(0,5),
gtkpack(new Gtk::Label(_("Package: "))),
- gtkpack(gtkset_text(my $version = new Gtk::Entry(50),"fetching ...")),
+ gtkpack(gtkset_text(my $version = new Gtk::Entry(50),"...")),
),
gtkpack(new Gtk::HBox(0,5),
gtkpack(new Gtk::Label(_("Kernel:"))),
@@ -78,7 +78,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.mandrakebugzilla.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),
@@ -87,9 +87,11 @@ gtkpack2__(
my $app_choice;
$comb_app->entry->signal_connect('changed', sub {
- if (my $text = $comb_app->entry->get_text() ne '') {
- chomp($which_app = `which '$mdk_app->{$text}'`);
+ 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"));
}
}
);
@@ -99,13 +101,16 @@ 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");});
+$Report_Button->signal_connect(clicked => sub { connect_bugzilla("https://qa.mandrakesoft.com/wizard.php/");});
$hbx->pack_end($Report_Button,0,0,0);
$vbx->pack_start($hbx,0,0,0);
$window_g->add($vbx);
$window_g->show_all();
Gtk->main();
+Gtk->exit(0);
+in->exit(0);
+
sub connect_bugzilla {
my($url) = @_;
@@ -116,7 +121,7 @@ sub connect_bugzilla {
sub read_app_context {
my ($name) = @_;
-
+ $na
}
sub quit_global {