#!/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);
}