1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/perl
# Drak Bug Report
# Copyright (C) 2002 MandrakeSoft (daouda@mandrakesoft.com)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
use lib qw(/usr/lib/libDrakX);
use standalone;
use interactive;
use MDK::Common;
require Gtk;
require Gtk::Gdk::ImlibImage;
use my_gtk qw(:helpers :wrappers :ask);
Gtk::Gdk::ImlibImage->init;
my $in = 'interactive'->vnew;
$::bugzilla_url = "https://qa.mandrakesoft.com";
my $window_g = new Gtk::Window -toplevel;
$window_g->set_policy($false,$false,$true);
$window_g->set_position( 1 );
$window_g->border_width( 5 );
$window_g->set_title(_("Mandrake Bug Report Tool"));
#$window_g->set_usize(540, 350);
$window_g->signal_connect( "delete_event", \&quit_global);
chomp(my $kernel_release = `uname -m -r -s`);
$kernel_release.="";
chomp(my $mdk_release = cat_("/etc/mandrake-release"));
my $mdk_app = {
_("Mandrake Control Center") => 'drakconf',
_("First Time Wizard") => 'drakfw',
_("Synchronization tool") => 'draksync',
_("Standalone Tools") =>['adduserdrake','diskdrake','drakautoinst','drakbackup','drakboot','drakbug','drakfloppy','drakfont','drakgw','draknet','drakxservices','drakxtv','keyboardrake','logdrake','mousedrake','net_monitor','printerdrake','scannerdrake','tinyfirewall','XFdrake'],
_("HardDrake") => 'harddrake',
_("Mandrake Online") => ['mdkonline','mdkupdate'],
_("Menudrake") => 'menudrake',
_("Remote Control") => 'rfbdrake',
_("Software Manager") => ['rpmdrake','MandrakeUpdate'],
_("Urpmi") => ['urpmi','urpmq','urpme'],
_("Windows Migration tool") => 'transfugdrake',
_("Userdrake") => 'userdrake',
_("Configuration Wizards") => 'wizdrake',
};
gtkpack2__(
gtkpack2__(my $vbx = new Gtk::VBox(0,5),
gtkpack(new Gtk::HBox(0,0),
gtkpack(new Gtk::Label(_("Application:"))),
gtkpack(gtkcombo_setpopdown_strings(my $comb_app = new Gtk::Combo(),("",keys %{$mdk_app}))),
),
gtkpack(new Gtk::HBox(0,5),
gtkpack(new Gtk::Label(_("Package: "))),
gtkpack(gtkset_text(my $version = new Gtk::Entry(50),"fetching ...")),
),
gtkpack(new Gtk::HBox(0,5),
gtkpack(new Gtk::Label(_("Kernel:"))),
gtkpack(gtkset_text(my $kernel_rel = new Gtk::Entry(50),"$kernel_release")),
),
gtkpack(new Gtk::HBox(0,0),
gtkpack(new Gtk::Label(_("Release: "))),
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(new Gtk::HSeparator),
),
);
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}'`);
chomp($app_choice = `rpm -qf '$which_app'`);
}
}
);
my $hbx = new Gtk::HBox(0,0);
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");});
$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();
sub connect_bugzilla {
my($url) = @_;
my $w = $in->wait_message('',_("connecting to Bugzilla wizard ..."));
exec $ENV{BROWSER},$url if $ENV{BROWSER};
$in->ask_warn('', _("No browser available please! Please install one"));
}
sub read_app_context {
my ($name) = @_;
}
sub quit_global {
Gtk->exit(0);
}
|
