path: root/perl-install/standalone/drakbackup

#!/usr/bin/perl
#
# Copyright (C) 2001 by Sebastien DUPONT <sdupont@mandrakesoft.com>
# Redistribution of this file is permitted under the terms of the GNU
# Public License (GPL)
## description:
#
#  Drakbacup is use to backup system files and user files
#  Drakbacup allow to restore the system (etc, var files)
#  from starup or on drakconf utility.
#
#backup name format: all the time from the /
#                    backup_sys_12102001.tar.gz                    -> default system backup
#		     backup_sys_etc_var_proc_12102001.tar.gz       -> specific system directories
#		     backup_user_james_12102001.tar.gz             -> default user backup
#		     backup_user_james_documents_12102001.tar.gz   -> specific user directories
#                    backup_other_proc_12102001.tar.gz             -> specific other directories
#
# backup name rules: system: begin by sys
#                    user:   begin by user
#                    other:   begin by other
#                    end of all `date`.tar.gz
#
# seems to be good idea to have a txt file where user explain the differences
# between all the backup
#
# save only the differences...
#
# find / -mtime -1 \! -type d -print > /tmp/liste.jour
# build iso fs with rescue.
# configuration file on /etc/drakconf/drakbackup/drakbakup.conf
# perl -ne 'split(":");print "$_[0]:*:$_[2]:$_[3]:::\n";' /etc/passwd > passwd 

use Gtk;
use lib qw(/usr/lib/libDrakX );
use interactive;
use standalone;
use my_gtk qw(:helpers :wrappers);
use common;
use strict;

my $in = 'interactive'->vnew('', 'default');
!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1;


if ("@ARGV" =~ /--help|-h/) {
    print q(Backup and monitoring application

--list           : list of files or directories to backup.
--default        : save default directories.
--build_cd       : build restore iso with the currents backups files
                       & rescue options.
--build_floppy   : build restore floppy.
--replace        : delete backup files before build new do not update.
--save_dir       : by default the backup files are saved in 
                       in /var/backup directory so write other directory
	               to change to change it.
--conf_file      : to read other configuration file. 
);
    exit(0);
}

# Backend Options.
my $default = 0;
my $build_cd = 0;
my $build_floppy = 0;
my $mode = 0;
my $conf_file = 0;
my @list_arg = ();
my $windows = 0;
my $central_widget;
my $central_widget_save;
my $interactive;
my $up_box;
my $box;
my $backup_choice = 0;
my $cfg_file_exist = 0;

# config. FILES ->  PATH  & Global variables.
my @sys_files = ("/etc");
my @home_files = ("/home/seb") ;
my @other_files = ("/var/www") ;
my $cfg_file = "/etc/drakxtools/drakbackup/drakbackup.conf";
my $save_path = "/var/drakbackup";
my $option_replace = 0;
my $comp_mode = 0;
my $backup_mode = 0; # 1: save all files don't remove if remove on system.


my $DEBUG = 1;


foreach (@ARGV) {
    /--default/ and $default = 1, $mode=-1;
    /--build_cd/ and $build_cd = 1, $mode=-1;
    /--build_floppy/ and $build_floppy = 1, $mode=-1;
    /--replace|-r/ and $option_replace = 1, $mode=-1;
    /--conf_file/ and $mode = 0, next;
#    $mode == 0 and push $conf_file, $_;
    /--list/ and $mode = 1, next;
    $mode == 1 and push @list_arg, $_;
}

sub debug {
    print "SYS_FILES: $_ \n" foreach (@sys_files);
    print "HOME_FILES: $_ \n" foreach (@home_files);
    print "OTHER_FILES: $_ \n" foreach (@other_files);
    print "PATH_TO_SAVE: $save_path \n";
    print "OPTION_REPLACE: $option_replace \n";
    print "OPTION_COMP: $comp_mode \n";
}


sub read_passwd {
#foreach (grep /[5-9][0-9][0-9]/, cat_('/etc/passwd'));    
#grep 5[0-9][0-9], cat_('/etc/passwd');
	
	
    

}


sub save_conf_file {
# perl -ne 'split(":");print "$_[0]:*:$_[2]:$_[3]:::\n";' /etc/passwd > passwd 
# gawk -F":" '{ if ($3 >= 500 ) print "login " $1 " uid = " $3 " rép perso : " $6}' /etc/passwd
    my @cfg_list = ( "SYS_FILES=@sys_files\n",
		     "HOME_FILES=@home_files\n", 
		     "OTHER_FILES=@other_files\n",
		     "PATH_TO_SAVE=$save_path\n",
		     );
    $option_replace and push @cfg_list, "OPTION_REPLACE\n" ;
    if ($comp_mode) {
	push @cfg_list, "OPTION_COMP=TAR.BZ2\n";
    } else {
	push @cfg_list, "OPTION_COMP=TAR.GZ\n";
    }
    output_p( $cfg_file, @cfg_list);
}



sub read_conf_file {
    if (-e $cfg_file) {
	while (cat_ ('$cfg_file')) {
	    next unless /\S/;
	    next if /^#/;
	    chomp;
	    if (/^SYS_FILES/)      { s/^SYS_FILES=//gi;    @sys_files = split(' ', $_ );	}
	    if (/^HOME_FILES/)     { s/^HOME_FILES=//gi;   @home_files = split(' ', $_ );	}
	    if (/^OTHER_FILES/)    { s/^OTHER_FILES=//gi;  @other_files = split(' ', $_ );	}
	    if (/^PATH_TO_SAVE/)   { s/^PATH_TO_SAVE=//gi; $save_path = $_;	}
	    if (/^OPTION_REPLACE/) { $option_replace = 1; }
	    if (/^OPTION_COMP/)    { s/^OPTION_COMP=//gi; /TAR.GZ/ and  $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1; }
	}
	$cfg_file_exist = 1;
    } else {
	$cfg_file_exist = 0;
    }    
    $DEBUG and debug; 
}

$build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode();

sub backend_mod {
    read_conf_file();
}

sub build_cd_fct {

}

sub build_floppy_fct {

}

sub build_backup_files {

}

sub interactive_mode {
    $interactive = 1;
    my $box_cfg_state;
    my $box_cgf_state_replace;
    my $box_cgf_state_comp;
    my $mask;
    my $style;
    my $box;
    init Gtk;
    my $text2 = new Gtk::Text(undef, undef);
    my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
    $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
    $window1->set_position(1);
    $window1->set_title(_("Drakbackup"));

    read_conf_file();    
    if ($option_replace) {
	$box_cgf_state_replace = _("Replace backups (do not update)"),
    } else {
	$box_cgf_state_replace = _("Update backups (do not replace)"),
    }

    if ($comp_mode) {
	$box_cgf_state_comp = _("Backups use tar and gunzip "),
    } else {
	$box_cgf_state_comp = _("Backups use tar and gunzip"),
    }

	
    if ($cfg_file_exist) {
	$box_cfg_state =  gtkpack(new Gtk::VBox( 0, 0),
				  _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @home_files\n-Other Files to backup: @other_files\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n"),
				  ),
    } else {
	$box_cfg_state =  gtkpack(new Gtk::VBox(0,1),
				  _("No configuration please click Wizard or Advanced."),
				  ),
    }
    gtkadd($window1,
	   gtkpack(new Gtk::VBox(0,0),
		   gtkpack(gtkset_usize($up_box = new Gtk::VBox(0,5), 500, 350),
			   $box = gtkpack_(new Gtk::VBox(0,3),
					   0, _("Welcome on DrakBackup"),
					   1, gtkadd(new Gtk::Frame(_("State of configuration file.")),
						      gtkpack(new Gtk::VBox(0,10),
							      $box_cfg_state,
							      ),
						     ),
					   0, gtkpack_(new Gtk::HBox(0, 0),
						       0, gtksignal_connect(new Gtk::Button(_(" Build Backup ")), 
									    clicked => sub { save_conf_file(); Gtk->main_quit() }),
						       ),
					   0, gtkpack_(new Gtk::HBox(0, 0),
						       0, gtksignal_connect(new Gtk::Button(_("     Restore      ")), 
									    clicked => sub { save_conf_file(); Gtk->main_quit() }),
						       ),
					   0, new Gtk::HSeparator,
					   0, gtkpack_(gtkset_layout(new Gtk::HButtonBox, -end),
						       1, gtksignal_connect(new Gtk::Button(_("Advanced Conf.")), clicked => 
									    sub { ${$central_widget}->destroy(); advanced() }),
						       1, gtksignal_connect(new Gtk::Button(_("Wizard Conf.")), clicked => 
									    sub { ${$central_widget}->destroy(); wizard() }),
						       1, gtksignal_connect(new Gtk::Button(_("About")), clicked => 
									    sub { ${$central_widget}->destroy(); about() }),
						       1, gtksignal_connect(new Gtk::Button(_("close")), clicked => 
									    sub { save_conf_file(); Gtk->main_quit() }),
						       ),
					   ),
			   ),
		   ),
	   );
    $central_widget = \$box;
    $window1->show_all;
    $window1->realize;
    $window1->show_all();
    
    Gtk->main;
    Gtk->exit(0);
}


sub retore_window {
    my $restore_box;
    gtkpack($up_box,
	    $restore_box = $central_widget_save,
	    );
    $up_box->show_all();
}

sub about {
    my $text = new Gtk::Text(undef, undef);
    my $about_box;
    gtkpack($up_box,
	    $about_box = gtkpack_(new Gtk::VBox(0,10),
				  1, gtkpack_(new Gtk::HBox(0,0),
					      1, gtktext_insert(gtkset_editable($text, 1), _("
 Copyright (C) 2001 by MandrakeSoft (sdupont\@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.

")),
					      0, new Gtk::VScrollbar($text->vadj),
					      ),
				  0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
					    gtksignal_connect(new Gtk::Button(_("OK")), clicked => 
							      sub { ${$central_widget}->destroy(); interactive_mode()  }),
					    ),
				  )
	    );
    $central_widget = \$about_box;
    $up_box->show_all();
}


sub adv_help {
    my $text = new Gtk::Text(undef, undef);
    my $about_box;
    gtkpack($up_box,
	    $about_box = gtkpack_(new Gtk::VBox(0,10),
				  1, gtkpack_(new Gtk::HBox(0,0),
					      1, gtktext_insert(gtkset_editable($text, 1), _("
description:

 Drakbacup is use to backup system files and user files
 Drakbacup allow to restore the system (etc, var files)
 from starup or on drakconf utility.

backup name format: all the time from the / dir.

	system backup:
                   backup_sys_12102001.tar.gz 
		   backup_sys_etc_var_proc_12102001.tar.gz
	user backup
		   backup_user_james_12102001.tar.gz      
		   backup_user_james_documents_12102001.tar.gz
	other directories
                   backup_other_proc_12102001.tar.gz          

backup name rules: system:   begin by sys
                   user:     begin by user
                   other:    begin by other
                   end of all `date`.tar.gz


save only the differences...
find / -mtime -1 \! -type d -print > /tmp/liste.jour

build iso fs with rescue.

configuration file:

	/etc/drakconf/drakbackup/drakbakup.conf


")),
					      0, new Gtk::VScrollbar($text->vadj),
					      ),
				  0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
					    gtksignal_connect(new Gtk::Button(_("OK")), clicked => 
							      sub { ${$central_widget}->destroy(); advanced();  }),
					    ),
				  )
	    );
    $central_widget = \$about_box;
    $up_box->show_all();
}



sub wizard {
    my $intf;
    my $user = 1;
    my $user2;

    my $module;
    my $text;
  begin: 
    $::isWizard=1;

 step_what_backup:
#   $::Wizard_no_previous = 1;
    $in->ask_from(_("Please choose that you want to backup"),
  	          (_("Please choose that you want to backup") . "\n\n") .
	          $text,
		  [ 
		    #{ label => _("Netmask"),     val => \$intf->{NETMASK}, disabled => sub { $pump } },
		    { label => _("System Files"), val => \$user, type => "bool", text => _("  all files on your /etc directory.") },
		    { label => _("user: seb"), val => \$user2, type => "bool", text => _("") },

		    ],
		  ),
    

   my $r = $in->ask_from_list_(_("Backup Configuration wizard"),
				_("Please choose what you need to backup from your system"),
				[ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ]) 
	or quit_global($in, 0);
     
  step_where_backup:
    undef $::Wizard_no_previous;
    my $r2 = $in->ask_from_no_check(_("Backup Configuration wizard"),
				_("Please choose how to backup your system"),
				[ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ]) 
	or quit_global($in, 0);


}
sub after_adv {
    my $text = new Gtk::Text(undef, undef);
    my $after_adv_box;
    my $box_cfg_state;
    my $box_cgf_state_replace;
    my $box_cgf_state_comp;

    read_conf_file();    
    if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
    } else { $box_cgf_state_replace = _("Update backups (do not replace)"), }

    if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "),
    } else { $box_cgf_state_comp = _("Backups use tar and gunzip"),    }
	
    if ($cfg_file_exist) { 
	$box_cfg_state =  gtkpack(new Gtk::VBox( 0, 0),
				  _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @home_files\n-Other Files to backup: @other_files\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n"),
				  ),
    } else { $box_cfg_state =  gtkpack(new Gtk::VBox(0,1),  _("No configuration please click Wizard or Advanced."), ),  }

    gtkpack($up_box,
	    $after_adv_box = gtkpack_(new Gtk::VBox(0,10),
				      1, gtkadd(new Gtk::Frame(_("State of configuration file.")),
						gtkpack(new Gtk::VBox(0,10),
							$box_cfg_state,
							),
						),
				      0, gtksignal_connect(new Gtk::Button(_("Click here if you want to build a backup now.")), clicked => 
							   sub { ${$central_widget}->destroy(); }),
				      0, new Gtk::HSeparator,
				      0, gtkadd(new Gtk::HButtonBox,
						gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
						gtksignal_connect(new Gtk::Button(_("About")), clicked => 
								  sub { ${$central_widget}->destroy();  about() }),
						gtksignal_connect(new Gtk::Button(_("Help")), clicked => 
								  sub { save_conf_file(); ${$central_widget}->destroy(); adv_help() }),
						gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub { 
						    ${$central_widget}->destroy(); after_adv();    }),
						),				  
				      ),
	    );
    $central_widget = \$box;
    $up_box->show_all();
}

sub advanced {
    my $notebook; 
    my $notebook_what; 
    my $notebook_when; 
    my $notebook_where; 
    my $notebook_options; 
    my $about_box;
    my $book_open;
    my $book_open_mask;
    my $transparent;
    my $book_closed;
    my $book_closed_mask;
    
    my $checkbutton = new Gtk::CheckButton( "Check me please!" );
    $checkbutton->set_usize( 100, 75 );
    $checkbutton->show();
    my ($pix_net_map, $pix_net_mask) = gtkcreate_png("../pixmaps/backup_net.png");
    my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("../pixmaps/backup_hd.png");
    my ($pix_time_map, $pix_time_mask) = gtkcreate_png("../pixmaps/backup_time.png");
    my ($pix_user_map, $pix_user_mask) = gtkcreate_png("../pixmaps/user.png");
    my ($pix_sys_map, $pix_sys_mask) = gtkcreate_png("../pixmaps/bootloader.png");
    my ($pix_other_map, $pix_other_mask) = gtkcreate_png("../pixmaps/net_u.png");
    my ($pix_options_map, $pix_options_mask) = gtkcreate_png("../pixmaps/backup_options.png");

#    ($book_open, $book_open_mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($up_box->window, $transparent, @book_open_xpm);
#    ($book_closed, $book_closed_mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($up_box->window, $transparent, @book_closed_xpm);

    my $label_what = gtkpack(new Gtk::VBox( 0, 2),
			 new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
			 _("What backup.")
			 );
    my $label_where = gtkpack(new Gtk::VBox( 0, 2),
			 new Gtk::Pixmap($pix_net_map, $pix_net_mask),
			 _("Where backup.")
			 );
    my $label_when = gtkpack(new Gtk::VBox( 0, 2),
			 new Gtk::Pixmap($pix_time_map, $pix_time_mask),
			 _("When backup.")
			 );

    my $label_options = gtkpack(new Gtk::VBox( 0, 2),
			 new Gtk::Pixmap($pix_options_map, $pix_options_mask),
			 _("Options")
			 );

    my $label_what_sys = gtkpack(new Gtk::HBox( 0, 2),
			 new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
			 _("System", " ")
			 );
    my $label_what_user = gtkpack(new Gtk::HBox( 0, 2),
			 new Gtk::Pixmap($pix_user_map, $pix_user_mask),
			 _("Users", " ")
			 );

    my $label_what_other = gtkpack(new Gtk::HBox( 0, 2),
			 new Gtk::Pixmap($pix_other_map, $pix_other_mask),
			 _("Other", " ")
			 ); 



    my $box_what_sys =  gtkpack(new Gtk::VBox(0,1),
				_("\nPlease check all options that you need.\n"),
				new Gtk::CheckButton( _("need to restore any versions (CVS)") ),
				new Gtk::CheckButton( "Check me please!" ),
				new Gtk::CheckButton( "Check me please!" ),
			_("When backup.")
			);

    my $box_what_user =  gtkpack(new Gtk::VBox(0,1),
			new Gtk::Pixmap($pix_time_map, $pix_time_mask),
			_("When backup.")
			);

    my $box_what_other =  gtkpack(new Gtk::VBox(0,1),
			new Gtk::Pixmap($pix_time_map, $pix_time_mask),
			_("When backup.")
			);
    
    my $box_what = gtkpack(new Gtk::VBox(0,1),
			   $notebook_what = new Gtk::Notebook,
			   $notebook_what->insert_page( $box_what_sys, $label_what_sys, 0),
			   $notebook_what->insert_page( $box_what_user, $label_what_user, 1),
			   $notebook_what->insert_page( $box_what_other, $label_what_other, 2),
			   $notebook_what->set_scrollable( 1),
			   );

    my $box_where =  gtkpack(new Gtk::VBox(0,1),
 			$notebook_where = new Gtk::Notebook,
 #			$notebook_where->insert_page( _("toto") , "titi", 0 ),
			);
    my $box_when =  gtkpack(new Gtk::VBox(0,1),
 			$notebook_when = new Gtk::Notebook,
# 			$notebook_when->insert_page( _("toto") , "titi", 0 ),
			);
    my $box_options =  gtkpack(new Gtk::VBox(0,1),
			$notebook_options = new Gtk::Notebook,
 #			$notebook_options->insert_page( _("toto") , "titi", 0 ),
			);


    gtkpack($up_box,
	    $about_box = gtkpack_(new Gtk::VBox(0,10),
				  1, gtkpack(new Gtk::HBox(0,0),
					     gtkpack(my $notebook_box = new Gtk::VBox(0,5),
						     $notebook = new Gtk::Notebook,
						     $notebook->insert_page( $box_what, $label_what, 0),
						     $notebook->insert_page( $box_where, $label_where, 1),
						     $notebook->insert_page( $box_when, $label_when, 2),
						     $notebook->insert_page( $box_options, $label_options, 3),
						     $notebook->set_scrollable( 1 )
							 ),
					     ),
				  0, gtkadd(new Gtk::HButtonBox,
					    gtksignal_connect(new Gtk::Button(_("Close")), clicked => 
							      sub { ${$central_widget}->destroy(); interactive_mode() }),
					    gtksignal_connect(new Gtk::Button(_("Help")), clicked => 
							      sub { save_conf_file(); ${$central_widget}->destroy(); adv_help() }),
					    gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub { 
						${$central_widget}->destroy(); after_adv();    }),
					    ),				  
				  ),
	    ),

	my %rotate = (
		top => "right",
		right => "bottom",
		bottom => "left",
		left => "top"
	);

	$notebook->set_tab_pos( $rotate{ $notebook->tab_pos } );

    $central_widget = \$about_box;
    $up_box->show_all();
}









#   step_where_backup:
#     undef $::Wizard_no_previous;
#     my $r2 = $in->ask_from_list_(_("Backup Configuration wizard"),
# 				_("Please choose how to backup your system"),
# 				[ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ]) 
# 	or quit_global($in, 0);



#    print "$r AAAA \n";
#$r eq "Hard Drive" and  do something

#     my $wizard_box;
 
#     gtkpack($up_box,
# 	    new Gtk::VBox(0,10),
# 	    $wizard_box = new Gtk::FontSelection,
# 	    );
#     $central_widget = \$wizard_box;
#     $up_box->show_all();




# 							       0, gtktext_insert(gtkset_editable($text2, 0), _("Drakbackup allow you to build a backup of your system. With Drakbackup you will be able to save your backups on your Hard-disk or on CD, across the network with mandrake-online or other place, it accept ftp, sftp, scp, rsync, nfs. "),









#    my $checkbutton = new Gtk::CheckButton( "Check me please!" );
#    $checkbutton->set_usize( 100, 75 );
#    $checkbutton->show();


#     $pixmap_fst_choice = new Gtk::Notebook,
#     my $label1 = new Gtk::Label( "What backup." );
#     my $label2 = new Gtk::Label( "Where backup." );
#     my $label3 = new Gtk::Label( "When backup." );
#
#     gtkadd($window1,
# 	   gtkpack_(new Gtk::VBox(0,2),
# 		    1, gtkpack_(new Gtk::VBox(0,2),
# 				1, new Gtk::VBox(0,0),
# 				1, gtkpack(gtkset_usize($notebook_box = new Gtk::VBox(0,5),500, 350),
# 					   $notebook = new Gtk::Notebook,
# 					   $notebook->insert_page( $checkbutton, $label1, 2 ),
# 					   $notebook->insert_page( $checkbutton, $label2, 2 ),
# 					   $notebook->insert_page( $checkbutton, $label3, 2 )
# 					   ),
# 				1, new Gtk::VBox(0,0)
# 				),
# 		    0, gtkpack_(new Gtk::HBox(0,5),
# 				1, new Gtk::HBox(0,0),
# 				1, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
# 					  gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub { 
# 					       ${$central_widget}->destroy(); help() }),
# 					  gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { 
# 					       ${$central_widget}->destroy(); help() }),
# 					  gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
# 					  ),
# 				)
# 		    ),
# 	   );

#________________________________________________________________________________________________________


#				0, _("DrakFont"),
#				0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
# 					  gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked 	=>
# 							    sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}),
# 					  gtksignal_connect(new Gtk::Button(_("Configuration")), clicked =>
# 							    sub {  ${$central_widget}->destroy(); $windows = 0; license(\&advanced_install)}),
# 					  gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => 
# 							    sub { ${$central_widget}->destroy(); uninstall() }),
# 					  gtksignal_connect(new Gtk::Button(_("Font List")), clicked 	=>
# 							    sub { ${$central_widget}->destroy(); create_fontsel()}),
#					  ),










# sub interactive_mode {
#     my $fst_choice_box;
#     my $fst_choice_box1;
#     my $pixmap_fst_choice;
#     $interactive = 1;
#     my $pixmap;
#     my $pixmapwid;
#     my $mask;
#     my $style;
#     init Gtk;
    
#     $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
#     $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
#     $window1->set_position(1);
#     $window1->set_title(_("Drakbackup"));

#     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("/home/seb/draklogo.png");
#     my ($pix_l_map, $pix_l_mask) = gtkcreate_png("/home/seb/back_l.png");
#     my ($pix_r_map, $pix_r_mask) = gtkcreate_png("/home/seb/back_r.png");

#     gtkadd($window1,
# 	   gtkpack_(new Gtk::VBox(0,0),
# 		    1, gtkpack_(gtkset_usize(new Gtk::VBox(0,0), 550, 360), 
# 		       1, gtkpack_(my $up_box = new Gtk::VBox(0,0),
# 				   1, new Gtk::VBox(0,0),
# 				   1, gtkpack_($fst_choice_box = new Gtk::VBox(0,0),
# 					       0, my $pix_c = new Gtk::Pixmap($pix_u_map, $pix_u_mask),
# 					       0, gtkpack_(new Gtk::HBox(0,1),
# 							   0, my $pix_l = new Gtk::Pixmap($pix_l_map, $pix_l_mask),
# 							   1, gtkpack_(new Gtk::VButtonBox,
# 								       0, gtksignal_connect(new Gtk::Button(_("Wizard")), clicked => sub { 
# 									   ${$central_widget}->destroy(); wizard() }),
# 								       0, gtksignal_connect(new Gtk::Button(_("Advanced")), clicked => sub {
# 									   ${$central_widget}->destroy(); about() }),		
# 								       ),
# 								    ),
# 					       1, my $pix_r = new Gtk::Pixmap($pix_r_map, $pix_r_mask),
# 					       ),
# 				   ),
# 				1, gtkpack_(new Gtk::HBox(0,5),
# 					    1, new Gtk::HBox(0,5),
# 					    1, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
# 						      gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub { 
# 							  ${$central_widget}->destroy(); help() }),
# 						      gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { 
# 							  ${$central_widget}->destroy(); help() }),
# 						      gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
# 						      ),
# 					    )
# 				),
# 		    ),
# 		    );
#     $central_widget = \$up_box;
#     $window1->show_all;
#     $window1->realize;
#     $window1->show_all();
    
#     Gtk->main;
#     Gtk->exit(0);
# }


# ok

sub interactive_mode_my {
    $interactive = 1;
    my $mask;
    my $style;
    my $box;
    init Gtk;
    my $text2 = new Gtk::Text(undef, undef);
    my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
    $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
    $window1->set_position(1);
    $window1->set_title(_("Drakbackup"));

    my ($pix_u_map, $pix_u_mask) = gtkcreate_png("pixmaps/backup_title.png");
    my ($pix_l_map, $pix_l_mask) = gtkcreate_png("pixmaps/backup_left.png");
    my ($pix_r_map, $pix_r_mask) = gtkcreate_png("pixmaps/backup_bot.png");
    my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("pixmaps/backup_hd.png");

    my $box2 = new Gtk::VBox( 0, 10 );

    my $label3 = gtkpack(new Gtk::HBox(0,10),
			 new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
			 _("Backup Wizard")
			 );

    my $radio1 = new Gtk::RadioButton( "  Backup Wizard");
    $box2->add( $radio1);
    $radio1->set_active(1);
    my $radio2 = new Gtk::RadioButton( "  Backup Advanced", $radio1);
    $box2->add( $radio2);
    my $radio3 = new Gtk::RadioButton( "  Build Backup now", $radio2);
    $box2->add( $radio3);
    my $radio4 = new Gtk::RadioButton( "  Restore Backup", $radio3);
    $box2->add( $radio4);
    gtksignal_connect( $radio1, clicked => sub { $backup_choice = 0 });
    gtksignal_connect( $radio2, clicked => sub { $backup_choice = 1 });
    gtksignal_connect( $radio3, clicked => sub { $backup_choice = 2 });
    
    gtkadd($window1,
	   gtkpack(new Gtk::VBox(0,0),
		    gtkpack(new Gtk::VBox(0,0),
			    new Gtk::Pixmap($pix_u_map, $pix_u_mask),
			    gtkpack_(new Gtk::HBox(0,0),
				     0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
				     1, gtkpack($up_box = new Gtk::VBox(0,5),
						$box = gtkpack_(new Gtk::VBox(0,0),
								0, _("\n Please choose the method to configure your system backup."),
								1, gtkpack(new Gtk::HBox(0,20),
									   gtkpack(new Gtk::VBox(0,10),
										   new Gtk::HBox(0,15),
										   $box2,
										   new Gtk::HBox(0,5),
										   ),
									   ),
								1, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
									  gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
									      ${$central_widget}->destroy(); help() }),
									  gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { 
									      ${$central_widget}->destroy(); 
									      $backup_choice == 0  and print "Wizard\n";
									      $backup_choice == 1  and advanced();
									      $backup_choice == 2  and print "now\n";
									  }),
									  ),
							       ),
						),
				     ),
			    new Gtk::Pixmap($pix_r_map, $pix_r_mask),
			    gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
				   gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { save_conf_file(); Gtk->main_quit() }),
				   gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { $central_widget_save = $central_widget; 
				       ${$central_widget}->destroy(); about() }),
				   gtksignal_connect(new Gtk::Button(_("            Help           ")), clicked => sub { 
				       ${$central_widget}->destroy(); help() }),
				   ),
			    ),
		   ),
	   );
    $central_widget = \$box;
    $window1->show_all;
    $window1->realize;
    $window1->show_all();
    
    Gtk->main;
    Gtk->exit(0);
}