path: root/relcontrolcenter

#!/usr/bin/perl -w 

# Control-center

# Copyright (C) 1999-2001 MandrakeSoft 
#                                 Damien Krotkine (damien@mandrakesoft.com)
#                                 Daouda Lo (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 Gtk;
use Config;
use POSIX;
# for i18n
use Locale::GetText;

setlocale (LC_ALL, "");
Locale::GetText::textdomain ("DrakConf");

import Locale::GetText I_;
*_ = *I_;

init Gtk;
use Data::Dumper;

my %pixmaps_global;
my $xpm_path="pixmaps";
my $tree_depth_max = 1;
my @ctree_sib;

my $window_global = new Gtk::Window -toplevel;
$window_global->set_usize(800, 600);
$window_global->signal_connect ( delete_event => sub { Gtk->exit(0); });
$window_global->set_position(1);
$window_global->set_title(_("Mandrake Control Center"));
$window_global->border_width(0);

$vbox_global = new Gtk::VBox(0, 0);
$window_global->add($vbox_global);

######### menus
my @item_factory_entries = (
			    [_("/_File"),	undef,	0,	"<Branch>"],
			    [_("/File/tearoff1"),	undef,	0,	"<Tearoff>"],
			    #[_("/File/_Quit"),	"<control>Q",	5],
			    {
				'path' => _("/File/_Quit"), 
				'accelerator' => _("<control>Q"),	
				'action' => 1,
				'type' => '<Item>'
				},
			    [_("/_Help"),	undef,	0,	"<Branch>"],
			    [_("/Help/_Mandrake Control Center"),	undef,	2],
			    [_("/Help/_Report Bug"),	undef,	3 ],
			    [_("/Help/_About..."),  undef,  4 ]
			    );

my ($accel_group, $item_factory, $box1, $label, $box2);
my ($separator, $button, $dummy);

$accel_group = new Gtk::AccelGroup;
$item_factory = new Gtk::ItemFactory('Gtk::MenuBar', "<main>", $accel_group);

$accel_group->attach($window_global);
foreach (@item_factory_entries) {
    $item_factory->create_item($_, \&item_factory_cb);
}

$vbox_global->pack_start($item_factory->get_widget('<main>'), 0, 0, 0);
$hseparator_global = new Gtk::HSeparator;
$vbox_global->pack_start($hseparator_global, 0, 1, 0);
######### menus end


my $hbox_global = new Gtk::HBox(0,0);
$vbox_global->pack_start($hbox_global, 1, 1, 0);
$hbox_global->border_width(5);
my $scrolled_global = new Gtk::ScrolledWindow;
$scrolled_global->set_policy('automatic','automatic');
$scrolled_global->set_usize(180, 0);
$scrolled_global->set_name("icons_back");
#$scrolled_global->window->draw_rectangle(nil,1, 0, 0, 70, 70); #$scrolled_global->window->style->bg_gc('normal')
$hbox_global->pack_start($scrolled_global,0,1,0);
my $vseparator_global = new Gtk::VSeparator;
$hbox_global->pack_start($vseparator_global,0,1,0);

my $notebook_global = new Gtk::Notebook;
$notebook_global->set_show_border(0);
$notebook_global->set_show_tabs(0);
$hbox_global->pack_start($notebook_global,1,1,0);

#-------------------------------- splash screeen --------------------------------------------------------

<<<<<<< relcontrolcenter
sub splash {
=======
my $hbox1= new Gtk::HBox(0,20);
my ($pix_about_map, $pix_about_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'),  "$xpm_path/logo.xpm");
my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask);
$pix_about->set_alignment(10,0);
$hbox1->pack_start($pix_about, 0, 1, 0);
my $style = new Gtk::Style;
$style->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--*-180-100-100-p-*-iso8859-*,*-r-*")));
my $label_about2 = new Gtk::Label (_("Mandrake Control Center"));
$label_about2->set_alignment(0,0);
$label_about2->set_style($style);
$hbox1->pack_start($label_about2, 0, 1, 0);
my $vbox_about = new Gtk::VBox(0,10);
$vbox_about->pack_start($hbox1, 0, 1, 0);
my $label_about3 = new Gtk::Label (_("The place where you can configure your Mandrake Box"));
$vbox_about->pack_start($label_about3, 0, 0, 0);

$table_info1 = new Gtk::Table(6,2,1);
$table_info1->set_row_spacings(15);
$table_info1->set_col_spacings(10);

my @revtree;
my @infotree;
open VERS,  "/etc/redhat-release" or die "cannot open this file for read: $!";
while (<VERS>) { 
    push (@revtree,$_);
}
@info_tree = split / /, $revtree[0];
>>>>>>> 1.3

    my $hbox1= new Gtk::HBox(0,20);
    my ($pix_about_map, $pix_about_mask) = Gtk::Gdk::Pixmap->create_from_xpm(NULL, Gtk::Widget->get_default_style->bg('normal'),  "$xpm_path/logo.xpm");
    my $pix_about = new Gtk::Pixmap ($pix_about_map, $pix_about_mask);
    $pix_about->set_alignment(10,0);
    $hbox1->pack_start($pix_about, 0, 1, 0);
    my $style = new Gtk::Style;
    $style->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--25-180-100-100-p-132-iso8859-1'));
    my $label_about2 = new Gtk::Label ("Mandrake Control Center");
    $label_about2->set_alignment(0,0);
    $label_about2->set_style($style);
    $hbox1->pack_start($label_about2, 0, 1, 0);
    my $vbox_about = new Gtk::VBox(0,10);
    $vbox_about->pack_start($hbox1, 0, 1, 0);
    my $label_about3 = new Gtk::Label ("The place where you can configure your Mandrake Box");
    $vbox_about->pack_start($label_about3, 0, 0, 0);
    
    $table_info1 = new Gtk::Table(6,2,1);
    $table_info1->set_row_spacings(15);
    $table_info1->set_col_spacings(10);

<<<<<<< relcontrolcenter
    
    my @revtree;
    my @infotree;
    open VERS,  "/etc/redhat-release" or die "cannot open this file for read :$!";
    while (<VERS>) { 
	push (@revtree,$_);
    }
    @info_tree = split / /, $revtree[0];
    
    my ($sysname, $nodename, $release, $version, $machine ) = POSIX::uname();
    my $username= POSIX::cuserid();
    
    my $style1 = new Gtk::Style;
    $style1->font(Gtk::Gdk::Font->load('-adobe-times-bold-r-normal--14-100-100-100-p-76-iso8859-1'));
    
    my $ld = new Gtk::Label("$username");
    $table_info1->attach($ld, 1, 2, 0, 1, 0, 0, 0, 0);
    my $label_user = new Gtk::Label("User: "); 
    $label_user->set_style($style1);
    $label_user->set_justify('right');
    $table_info1->attach($label_user, 0, 1, 0, 1, 0, 0, 0, 0);
    my $ld1 = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4]  ");
    $table_info1->attach($ld1, 1, 2, 1, 2, 0, 0, 0, 0);
    my $ld2 = new Gtk::Label("$nodename");
    $table_info1->attach($ld2, 1, 2, 2, 3, 0, 0, 0, 0);
    my $ld3 = new Gtk::Label("$release $version");
    $table_info1->attach($ld3, 1, 2, 3, 4, 0, 0, 0, 0);
    my $ld4 = new Gtk::Label("$machine");
    $table_info1->attach($ld4, 1, 2, 4, 5, 0, 0, 0, 0);
    my $label_os = new Gtk::Label("System: ");
    $label_os->set_style($style1);
    $label_os->set_justify('right');
    $table_info1->attach($label_os, 0, 1, 1, 2, 0, 0, 0, 0);
    my $label_host = new Gtk::Label("Hostname: ");
    $label_host->set_style($style1);
    $table_info1->attach_defaults($label_host, 0, 1, 2, 3);
    my $label_kernel = new Gtk::Label("Kernel Version : ");
    $label_kernel->set_style($style1);
    $table_info1->attach_defaults($label_kernel, 0, 1, 3, 4);
    my $label_box = new Gtk::Label("Machine: ");
    $label_box->set_style($style1);
    $table_info1->attach_defaults($label_box, 0, 1, 4, 5);
    
    $vbox_about->set_spacing(30);
    $vbox_about->pack_start($table_info1, 0, 0, 0);
    $vbox_about->reorder_child($table_info1,150);
    
    $notebook_global->append_page($vbox_about, "$arg");
    my $vbox_global_left = new Gtk::VBox(0,0);
    $scrolled_global->add_with_viewport($vbox_global_left);
    
    $window_global->realize;
    
    my $ctree_parent = new Gtk::CTree(0,1,0);
    $vbox_global_left->pack_start($ctree_parent,1,1,0);
}
=======
my $style1 = new Gtk::Style;
$style1->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*")));

my $ld = new Gtk::Label("$username");
$table_info1->attach($ld, 1, 2, 0, 1, 0, 0, 0, 0);
my $label_user = new Gtk::Label(_("User: ")); 
$label_user->set_style($style1);
$label_user->set_justify('right');
$table_info1->attach($label_user, 0, 1, 0, 1, 0, 0, 0, 0);
my $ld1 = new Gtk::Label("$info_tree[0] $info_tree[1] $info_tree[3] $info_tree[4]  ");
$table_info1->attach($ld1, 1, 2, 1, 2, 0, 0, 0, 0);
my $ld2 = new Gtk::Label("$nodename");
$table_info1->attach($ld2, 1, 2, 2, 3, 0, 0, 0, 0);
my $ld3 = new Gtk::Label("$release $version");
$table_info1->attach($ld3, 1, 2, 3, 4, 0, 0, 0, 0);
my $ld4 = new Gtk::Label("$machine");
$table_info1->attach($ld4, 1, 2, 4, 5, 0, 0, 0, 0);
my $label_os = new Gtk::Label(_("System: "));
$label_os->set_style($style1);
$label_os->set_justify('right');
$table_info1->attach($label_os, 0, 1, 1, 2, 0, 0, 0, 0);
my $label_host = new Gtk::Label(_("Hostname: "));
$label_host->set_style($style1);
$table_info1->attach_defaults($label_host, 0, 1, 2, 3);
my $label_kernel = new Gtk::Label(_("Kernel Version: "));
$label_kernel->set_style($style1);
$table_info1->attach_defaults($label_kernel, 0, 1, 3, 4);
my $label_box = new Gtk::Label(_("Machine: "));
$label_box->set_style($style1);
$table_info1->attach_defaults($label_box, 0, 1, 4, 5);

$vbox_about->set_spacing(30);
$vbox_about->pack_start($table_info1, 0, 0, 0);
$vbox_about->reorder_child($table_info1,150);

$notebook_global->append_page($vbox_about, "$arg");
my $vbox_global_left = new Gtk::VBox(0,0);
$scrolled_global->add_with_viewport($vbox_global_left);

$window_global->realize;

my $ctree_parent = new Gtk::CTree(0,1,0);
$vbox_global_left->pack_start($ctree_parent,1,1,0);
>>>>>>> 1.3

map {
    create_ctree($ctree_parent ,$_->[0], "$xpm_path/$_->[1]",0 , 1 , undef , undef);
} ([_("Boot Configuration"), 'logo.xpm'] , [_("Hardware Configuration"), 'logo.xpm'] , [_("User and Groups Management"),'logo.xpm'], 
   [_("Network and Internet Connection"),'logo.xpm'] , [_("Menu Customization"),'logo.xpm'] , [_("Font Management"),'logo.xpm']);

map {
    create_ctree($ctree_parent ,$_->[0], "$xpm_path/$_->[1]", 1, 0, $_->[2],$_->[3] );
} ([_("Drakboot"),'item.xpm',1,0] , [_("Drakfloppy"), 'item.xpm',2,0] , [_("Drakelogo"), 'item.xpm',3,0],
   [_("XFDrake"),'item.xpm',4,1] , [_("HardDrake"),'item.xpm',5,1] , [_("Mousedrake"), 'item.xpm',6,1] , [_("Printerdrake"),'item.xpm',7,1] , [_("Keyboarddrake"), 'item.xpm',8,1],
   [_("Userdrake"),'item.xpm',9,2] ,
   [_("Draknet") , 'item.xpm',10,3] , [_("Drakgw"),'item.xpm',10,3],
   [_("Menudrake") , 'item.xpm',11,4] ,
   [_("Drakfont"), 'item.xpm', 12,5]);

%tree_exec = ([_("Drakboot") => "drakeboot"], [_("Drakfloppy") => "drakfloppy"], 
	      [_("Drakelogo") => "DrakeLogo"] , [_("XFDrake")  => "XFDrake"] , 
	      [_("HardDrake") => "harddrake-auth"] , [_("Mousedrake") => "mousedrake"] , 
	      [_("Printerdrake") => "printerdrake"] , [_("Keyboarddrake") => "keyboarddrake"] , 
	      [_("Userdrake") => "userdrake"] , [_("Draknet") => "draknet"] ,
	      [_("Drakgw") => "drakgw"] , [_("Menudrake") => "menudrake"] , [_("Drakfont") => "drakfont"]
	      );

my $rc = "control-center.rc";
 Gtk::Rc->parse($rc);
$window_global->show_all;


print "num: " . $notebook_global->page_num($vbox_about) . "\n";
#$notebook_global->set_page(0);
$SIG{USR1} = sub { $notebook_global->set_page(0); }; # embedded applications will send me that signal in order to "hide" them

Gtk->main;

sub about_mdk_cc()
{
    my $window_about = new Gtk::Dialog();
    $window_about->set_position(1);
    my $button = new Gtk::Button(_("Close"));
    $button->signal_connect_object("clicked",$window_about => destroy);
    $window_about->action_area->pack_start($button,$true,$true,0);
    $button->show();
    
    my $label = new Gtk::Label( _("Mandrake Control Center 1.0 \n Copyright (C) 2001 MandrakeSoft SA\n") );
    my $style1 = new Gtk::Style;
    $style1->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--14-*-100-100-p-*-iso8859-*,*-r-*")));
    $label->set_style($style1); 
    $window_about->vbox->pack_start( $label, $true, $true, 0 );
    $label->show();
    
    my $label1 = new Gtk::Label( _("Authors: ") . "\n\n Daouda Lo <daouda\@mandrakesoft.com> \n \n Damien Krotkine <dams\@mandrakesoft.com>\n" );
    $window_about->vbox->pack_start( $label1, $true, $true, 0 );
    $label1->show();
    
    $window_about->show();
    
}

sub create_ctree {
    my ($ctree, $label , $xpm_filename, $is_leaf , $is_expand, $num, $tree_pos)= @_;
    
    my ($pixmap, $mask );
    my $sibling = undef;
    my $parent = undef;
    
    # Now on to the xpm stuff
    ($pixmap, $mask) = Gtk::Gdk::Pixmap->create_from_xpm($parent->window, $style, $xpm_filename );
    my $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
    
    if(!$is_leaf) {
	$sibling=$ctree->insert_node (
				      $parent,
				      $sibling,
				      $label,
				      5,
				      $pixmap,
				      $mask,
				      $pixmap,
				      $mask,
				      $is_leaf,
				      $is_expand
				      );
	push(@ctree_sib,$sibling);
    };
    if($is_leaf) {	
	$sibling=$ctree->insert_node (
				      $ctree_sib[tree_pos],
				      $sibling,
				      $label,
				      5,
				      $pixmap,
				      $mask,
				      $pixmap,
				      $mask,
				      $is_leaf,
				      $is_expand,
				      );
    $ctree->signal_connect( 'tree_select_row', sub {
	my ($ct, $node) = @_;
	my ($t);
	($t, undef, undef) = $ct->node_get_pixtext($node);
	exec_treeitem($tree_exec[$ct],$num);
    } );
    
}

}

sub exec_treeitem {
    my ($exec_string,$num) = @_;
    
    if ($exec_string) {
	my $socket = new Gtk::Socket;
	$socket->show;
	$notebook_global->append_page($socket, "");
	$socket->realize;
	printf ("The XID of the sockets window nr. %s is [%s]\n", $arg, $socket->window->XWINDOW );
	printf ("My PID is [%s]\n", $$ );
	my $a = $exec_string . " --embedded " . $socket->window->XWINDOW . " " . $$ . "&";
	print "$a\n";
 	system ($a);
	$notebook_global->set_page($num);
    }
}

sub item_factory_cb {
    my ($widget, $action, @data) = @_;

    print "ItemFactory: activated ", $widget->item_factory_path(), " -> ", $action, "\n";
    $action == 1 and Gtk->exit(0);
    $action == 4 and about_mdk_cc();
}


sub create_item_factory {
    if (!defined $item_factory_window) {
	my ($accel_group, $item_factory, $box1, $label, $box2);
	my ($separator, $button, $dummy);
	
	
	$item_factory_window = new Gtk::Window('toplevel');
	signal_connect $item_factory_window destroy => \&destroy_window, \$item_factory_window;
	signal_connect $item_factory_window "delete-event" => \&destroy_window, \$item_factory_window;
	
	$accel_group = new Gtk::AccelGroup;
	$item_factory = new Gtk::ItemFactory('Gtk::MenuBar', "<main>", $accel_group);
	
	#$item_factory_window->set_data('<main>', $item_factory);
	$accel_group->attach($item_factory_window);
	# $item_factory->create_items();
	foreach (@item_factory_entries) {
	    $item_factory->create_item($_, \&item_factory_cb);
	}
	
	$item_factory_window->set_title(_("Item Factory"));
	$item_factory_window->set_border_width(0);
	
	$box1 = new Gtk::VBox(0, 0);
	$item_factory_window->add($box1);
	$box1->pack_start($item_factory->get_widget('<main>'), 0, 0, 0);

	$label = new Gtk::Label( _("Type\n<alt>\nto start") );
	
	$label->set_usize(200, 200);
	$label->set_alignment(0.5, 0.5);
	$box1->pack_start($label, 1, 1, 0);
	
	$separator = new Gtk::HSeparator;
	$box1->pack_start($separator, 0, 1, 0);
	
	$box2 = new Gtk::VBox(0, 10);
	$box2->set_border_width(10);
	$box1->pack_start($box2, 0, 1, 0);
	
	$button = new Gtk::Button(_("Close"));
	$button->signal_connect('clicked', sub {$item_factory_window->destroy;});
	$box2->pack_start($button, 1, 1, 0);
	$button->can_default(1);
	$button->grab_default;
	
    }
    if (!visible $item_factory_window) {
	show_all $item_factory_window;
    } else {
	destroy $item_factory_window;
    }
}