summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug131
1 files changed, 0 insertions, 131 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
deleted file mode 100755
index e7c242585..000000000
--- a/perl-install/standalone/drakbug
+++ /dev/null
@@ -1,131 +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 $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','drakconnect','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),"...")),
- ),
- 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.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),
-
- ),
- );
-my $app_choice;
-
-$comb_app->entry->signal_connect('changed', sub {
- if ((my $text = $comb_app->entry->get_text()) ne '') {
- 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"));
- }
- }
- );
-
-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("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);
-
-$window_g->show_all();
-Gtk->main();
-Gtk->exit(0);
-in->exit(0);
-
-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);
-}
-
-
-