diff options
Diffstat (limited to 'perl-install/standalone/drakbug')
| -rwxr-xr-x | perl-install/standalone/drakbug | 174 |
1 files changed, 0 insertions, 174 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug deleted file mode 100755 index fab8662be..000000000 --- a/perl-install/standalone/drakbug +++ /dev/null @@ -1,174 +0,0 @@ -#!/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); -use Config; - -Gtk::Gdk::ImlibImage->init; - -my $in = 'interactive'->vnew; - -$::bugzilla_url = "https://qa.mandrakesoft.com"; -my $version = "0.9.0"; -my $prog = undef; - -sub usage { - print STDERR _("drakbug version %s -Copyright (C) 2002 MandrakeSoft. -This is free software and may be redistributed under the terms of the GNU GPL. - -usage: drakbug [OPTIONS] [PROGRAM_NAME] - -OPTIONS: -", $version) . _(" --help - print this help message. -") . "\n" . _(" --report - program should be one of mandrake tools -"); - exit(0); -} - -while (defined($_ = shift @ARGV)) { - /^--help$/ and do { usage; next }; - /^--report$/ and do { $prog = shift @ARGV;}; -} - -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); - -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','drakconnect','drakxservices','drakxtv','keyboardrake','logdrake','mousedrake','net_monitor','printerdrake','scannerdrake','tinyfirewall','XFdrake'], - _("HardDrake") => 'harddrake2', - _("Mandrake Online") => ['mdkonline','mdkupdate'], - _("Menudrake") => 'menudrake', - _("Msec") => 'msec', - _("Remote Control") => 'rfbdrake', - _("Software Manager") => ['rpmdrake','MandrakeUpdate'], - _("Urpmi") => ['urpmi','urpmq','urpme'], - _("Windows Migration tool") => 'transfugdrake', - _("Userdrake") => 'userdrake', - _("Configuration Wizards") => 'wizdrake', - }; -my @generic_tool = keys %{$mdk_app}; -my @all_drakxtools = @ { $mdk_app->{_("Standalone Tools")} }; -push(@generic_tool,@all_drakxtools); - -my $kernel_release = chomp_(`uname -r`); -$kernel_release.=""; -my $mdk_release = chomp_(cat_("/etc/mandrake-release")); - -my $table = new Gtk::Table(4,2,'TRUE'); -#$table->set_border_width(5); -$table->set_row_spacings(10); -$table->set_col_spacings(5); -$table->attach(new Gtk::Label(_("Application:")), 0, 1, 0, 1,'fill', 'fill',20,0); -$table->attach(new Gtk::Label(_("Package: ")), 0, 1, 1, 2, 'fill', 'fill',0,0); -$table->attach(new Gtk::Label(_("Kernel:")), 0, 1, 2, 3, 'fill', 'fill',0,0); -$table->attach(new Gtk::Label(_("Release: ")), 0, 1, 3, 4, 'fill', 'fill',0,0); -$table->attach(my $comb_app = new Gtk::Combo(), 1, 2, 0, 1, 'fill', 'fill',0,0); -$comb_app->set_usize(270,undef); -$comb_app->set_popdown_strings("",@generic_tool); -$table->attach(my $package = new Gtk::Entry(), 1, 2, 1, 2, 'fill', 'fill',0,0); -$package->set_text("..."); -$table->attach(my $kernel_rel = new Gtk::Entry(), 1, 2, 2, 3, 'fill', 'fill',0,0); -$kernel_rel->set_text("$kernel_release"); -$table->attach(my $mdk_rel = new Gtk::Entry(), 1, 2, 3, 4, 'fill', 'fill',0,0); -$mdk_rel->set_text("$mdk_release"); - -gtkpack2__( - gtkpack2__(my $vbx = new Gtk::VBox(0,5), - gtkadd($table ), - 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.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), - - ), - ); -if (defined $prog && member($prog, @all_drakxtools)) { - $comb_app->entry->set_text($prog); - update_app($prog); -}; - -$comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text())} ); -my $kernel = $kernel_rel->get_chars(0,-1); -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("$::bugzilla_url/wizard/");}); -$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 update_app { - my ($text) = @_; - if ($text ne '') { - $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; - if (member($text,@all_drakxtools)) { - chomp($app_choice = `rpm -q drakxtools`) - } else { - exists $mdk_app->{$text}[1] ? $which_app =chomp_(`which '$mdk_app->{$text}[1]'`) : $which_app = chomp_(`which '$mdk_app->{$text}'`); - $app_choice = chomp_(`rpm -qf '$which_app'`); - } - $app_choice !~ m/ / ? $package->set_text("$app_choice") : $package->set_text(_("Not installed")); - } -} - -sub connect_bugzilla { - my($url) = @_; - my $w = $in->wait_message('',_("connecting to Bugzilla wizard ...")); - sleep(2); - exec $ENV{BROWSER},$url if exists $ENV{BROWSER} ; - my @browser = qw (mozilla konqueror galeon ); - foreach (@browser) { - if (-e "/usr/bin/$_") { print "execing $_ : $url\n "; exec $_,$url} - } - $in->ask_warn('', _("No browser available! Please install one")); -} - -sub read_app_context { - my ($name) = @_; -} - -sub quit_global { - Gtk->exit(0); -} - - - |