perl-install/standalone/icons/ic82-discdurwhat-40.png

#!/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)
#
#  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.
#
#________________________________________________________________
#
#  Description:
#
#   Drakbacup is use to backup your system.
#   During the configuration you can select 
# 	- System files, 
# 	- Users files, 
# 	- Other files.
# 	or All your system ...  and Other (like windows Partitions)
#
#   Drakbacup allow you to backup your system on:
# 	- Harddrive.
# 	- NFS.
# 	- CDROM (CDRW), DVDROM (with autoboot, rescue and autoinstall.).
# 	- FTP.
# 	- Rsync.
# 	- Webdav.
# 	- Tape.
#
#   Drakbacup allow you to Restore your system on
#   choosen directory.
#
#   Per default all backup will be stored on your
#   /var/drakbackup directory
#
#   configuration file:
# 	/etc/drakconf/drakbackup/drakbakup.conf
#
#________________________________________________________________
#
#  backup files formats:
#	
#	no incremental backup:
#			backup_sys_date_hour.tar.*
#			backup_user_toto_date_hour.tar.*
#			backup_other_date_hour.tar.*
#
#	first incremental backup: (if backup_base* does not exist )
#
#			backup_base_sys_date_hour.tar.*
#			backup_base_user_toto_date_hour.tar.*
#			backup_base_other_date_hour.tar.*
#			
#	other incremental backup: (if backup_base* already exist )
#
#			backup_incr_sys_date_hour.tar.*
#			backup_incr_user_toto_date_hour.tar.*
#			backup_incr_other_date_hour.tar.*
#
#________________________________________________________________
# 
# REQUIRE:      cron if daemon
#               cdrecord & mkisofs
#		ftp || perl Net::FTP
#		ssh-askpass
#
# PBS persistants:
#		selection des sources a inclure dans le backup cd. 
#		et dans le restore_step_user
#
#
# WARNING:      ne pas ecraser les fichiers /etc/passwd fstab 
#               after a other install
#
#
# TODO:
#		during restore step catch the most recent date
#		and put in list all backup between the fisrt date 
#		and the select date.
#		1bis - refaire en clist.
#		3 - add port for ftp backup.
#		4 - change NET::FTP to ftp cmds.  
#		5 - add icons (win & lin) on adv_what_all.
#	        6 - calcul disk space.
#		   use quota.
#               7 - ssh & rsync -> expect or .identity.pub/authorized_keys 
#		8 - write on cd
#		9 - cd writer detection  -> cdrw: /sys/dev/cdrom/info  /scsi/host0/bus0/target4/lun0 
#		10- total backup.( all partitions wanted, windows partitions for example!)
#		    dump use for total backup.
#		11- send mail with results.
#		12- custom deamon
#		13- placer README dans $save_path -> prevenir des danger de supprimer la premier version
#		    explain configuration file variables (mainly for non X users)
#		13bis -  option mode update tar u ....
#		14- webdav
#	        15- backend : --resore_all, --restore_sys, --restore_users
#			  --build_cd_autoinst 	
#			  --backup_now --backup_default_now
#		16- tape device support
#		17- cpio use !!
#		18- boot floppy disk (with dialog)
#		19- build autoboot with backup and install cd 
#		20- use .backupignore like on CVS
#
#		               
# DONE TODAY:
#________________________________________________________________


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

my $in = 'interactive'->vnew('', 'default');
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;


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.
--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 $central_widget;
my $previous_widget;
my $current_widget;
my $interactive;
my $up_box;
my $advanced_box;
my $box;
my $box2;
my $backup_choice = 0;
my $cfg_file_exist = 0;
my @user_and_path_list;
my @all_user_list;
my $list_other;
my $label_cfg_file;
my $DEBUG = 0;
my $restore_sys = 1; 
my $restore_user = 1; 
my $restore_other = 1; 
my @user_backuped = ();
my $sys_backuped = 0;
my $other_backuped = 0;
my @user_list_to_restore= ();
my $retore_box2;
my $cd_devive_entry;
my $custom_help;
my $button_box;
my $button_box_tmp;
my $next_widget;
my $system_state;
my $restore_state;
my $save_path_entry;
my $restore_find_path_entry;
my $pbar;
my $pbar1;
my $pbar2;
my $pbar3;
my $the_time;
my @user_list_to_restore2 = ();
my @data_backuped = ();
my $box_tail; 
my $label_tail;
my @user_list_to_build_on_cd = (); 
my $restore_path = "/";
my $restore_other_path = 0;
my $restore_other_src;
my $path_to_find_restore;
my $other_media_hd;
my $backup_bef_restore = 0;
my $table;

# config. FILES -> Default PATH  & Global variables.
my @sys_files = ("/etc");
my @user_list;
my @list_other = () ;
my $cfg_file = "/etc/drakxtools/drakbackup/drakbackup.conf";
my $save_path = "/var/drakbackup";
my $restore_path = "/tmp";
my $comp_mode = 0;
my $backup_sys = 1;
my $backup_user = 1;
my $backup_daemon = 1;
my $backup_sys_versions = 0;
my $backup_user_versions = 0;
my $backup_other_versions = 0;
my $what_no_browser = 1;
my $cdrw = 0;
my $net_proto= '';
my $host_path = '';
my $login_user = '';
my $net_daemon = 0;
my $hd_daemon = 0;
my $cd_daemon = 0;
my $hd_quota = 0;
my $where_net_ftp = 0;
my $where_net_ssh = 0;
my $where_net = 0;
my $where_hd = 1;
my $where_cd = 0;
my $where_tape = 0;
my $cd_time = 650;
my $when_space;
my $cd_with_install_boot = 0;
my $cd_devive = '';
my $host_name = '';
my $backupignore = 0; 
my $auth_choice = 0;
my $remember_pass = 0;
my $passwd_user= '';
my $save_device_tape = ();
my $cdrw_erase = 0;
my $no_critical_sys = 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;
    /--conf_file/ and $mode = 0, next;
    /--list/ and $mode = 1, next;
    /--debug/ and $DEBUG = 1, next;
    $mode == 1 and push @list_arg, $_;
}

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

sub read_passwd {
    my @tmp1;
    my @tmp2;
    @user_and_path_list = map { (split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] > 500} split ('\n', cat_('/etc/passwd'));  
    $DEBUG and print "user_and_path_list: ".$_."\n" foreach (@user_and_path_list);
    @user_list = ();
    @all_user_list = ();
    push @user_and_path_list, 'root:/root';
    push @user_list, (split(':', $_))[0] foreach (@user_and_path_list);
    push @all_user_list, (split(':', $_))[0] foreach (@user_and_path_list);
    @tmp1 = sort @user_list;
    @user_list = @tmp1;
    @tmp2 = sort @all_user_list;
    @all_user_list = @tmp2;
}


sub the_time {
    $the_time = "_";
    $the_time .= localtime->year() + 1900;
    $the_time .= localtime->mon() +1;
    $the_time .= localtime->mday();
    $the_time .= "_";
    if (localtime->hour() <= 10 ) { $the_time .= "0"; }
    $the_time .= localtime->hour();
    if (localtime->min() <= 10 ) { $the_time .= "0"; }
    $the_time .= localtime->min();

    
 }

sub save_conf_file {
    my @cfg_list = ( "SYS_FILES=@sys_files\n",
		     "HOME_FILES=@user_list\n", 
		     "OTHER_FILES=@list_other\n",
		     "PATH_TO_SAVE=$save_path\n",
		     "HOST_PATH=$host_path\n",
		     "NET_PROTO=$net_proto\n",
		     "CD_TIME=$cd_time\n",
		     "DAEMON_TIME_SPACE=$when_space\n",
		     "CDRW_DEVICE=$cd_devive\n",
		     "LOGIN=$login_user\n",
		     "TAPE_DEVICE=$save_device_tape\n",
		     "HOST_NAME=$host_name\n"
		     );
    $no_critical_sys and push @cfg_list, "NO_CRITICAL_SYS\n" ; 
    $no_critical_sys or push @cfg_list, "CRITICAL_SYS\n" ; 
    $backup_sys_versions and push @cfg_list, "SYS_INCREMENTAL_BACKUPS\n" ; 
    $backup_user_versions and push @cfg_list, "USER_INCREMENTAL_BACKUPS\n" ; 
    $backup_other_versions  and push @cfg_list, "OTHER_INCREMENTAL_BACKUPS\n" ; 
    $cdrw_erase and push @cfg_list, "CDRW_ERASE\n" ; 
    $where_net_ftp and push @cfg_list, "USE_NET_FTP\n" ; 
    $where_net_ssh and push @cfg_list, "USE_NET_SSH\n" ; 
    $remember_pass and push @cfg_list, "LOGIN=$login_user\n" ; 
    $remember_pass and push @cfg_list, "PASSWD=$passwd_user\n" ;
    $remember_pass and push @cfg_list, "REMEMBER_PASS\n" ;
    $auth_choice or push @cfg_list, "AUTH_CHOICE=0\n" ;
    if ($auth_choice == 1) { push @cfg_list, "AUTH_CHOICE=1\n" ;}
    if ($auth_choice == 2) { push @cfg_list, "AUTH_CHOICE=2\n" ;}
    $cd_with_install_boot and push @cfg_list, "CD_WITH_INSTALL_BOOT\n" ;
    $net_daemon and push @cfg_list, "NET_DAEMON\n" ;
    $hd_daemon and push @cfg_list, "HD_DAEMON\n" ;
    $cd_daemon and push @cfg_list, "CD_DAEMON\n" ;
    $hd_quota and  push @cfg_list, "HD_QUOTA\n" ;
    $where_hd and  push @cfg_list, "USE_HD\n" ;
    $where_cd and  push @cfg_list, "USE_CD\n" ;
    $where_net and  push @cfg_list, "USE_NET\n" ;
    $cdrw and push @cfg_list, "CDRW\n"; 
    $what_no_browser or push @cfg_list, "BROWSER_CACHE\n" ;
    $backup_sys or push @cfg_list,  "NO_SYS_FILES\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);
    save_cron_files();
}

sub read_cron_files {
    if (-f '/etc/cron.hourly/drakbackup') { $when_space = 'hourly'; }
    elsif (-f '/etc/cron.daily/drakbackup') { $when_space = 'daily'; }
    elsif (-f '/etc/cron.weekly/drakbackup') { $when_space = 'weekly';}
    elsif (-f '/etc/cron.monthly/drakbackup') { $when_space = 'monthly';}
    else {$backup_daemon = 0; }
}

sub save_cron_files {
    my @cron_file = ("#!/bin/sh\n", "\n", "/seb/cvs/gi/perl-install/standalone --default" );

    if ($backup_daemon) {
	foreach ('hourly', 'daily', 'weekly', 'monthly'){
	    -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");
	}
	if ( $when_space eq _("hourly"))     { output_p('/etc/cron.hourly/drakbackup',  @cron_file )}
	elsif ( $when_space eq _("daily"))   { output_p('/etc/cron.daily/drakbackup',   @cron_file )}
	elsif ( $when_space eq _("weekly"))  { output_p('/etc/cron.weekly/drakbackup',  @cron_file )}
	elsif ( $when_space eq _("monthly")) { output_p('/etc/cron.monthly/drakbackup', @cron_file )}
    } else {
	foreach ('hourly', 'daily', 'weekly', 'monthly'){
	    -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");
	}
    }
}

sub read_conf_file {
    read_passwd();
    if (-e $cfg_file) {
        open ( CONF_FILE, "<"."$cfg_file") || die;
        while (<CONF_FILE>) {
	    next unless /\S/;
	    next if /^#/;
	    chomp;
	    if (/^SYS_FILES/)      { s/^SYS_FILES=//gi;    @sys_files = split(' ', $_ );	}
	    if (/^HOME_FILES/)     { s/^HOME_FILES=//gi;   @user_list = split(' ', $_ );	}
	    if (/^OTHER_FILES/)    { s/^OTHER_FILES=//gi;  @list_other = split(' ', $_ );	}
	    if (/^PATH_TO_SAVE/)   { s/^PATH_TO_SAVE=//gi; $save_path = $_;	}
	    if (/^NO_SYS_FILES/)   { $backup_sys = 0;}
	    if (/^NO_USER_FILES/)  { $backup_user = 0;}
	    if (/^OPTION_COMP/)    { s/^OPTION_COMP=//gi; /TAR.GZ/ and  $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1; }
	    if (/^BROWSER_CACHE/)  { $what_no_browser = 0; }
	    if (/^CDRW/)           { $cdrw = 1; }
	    if (/^NET_PROTO/)      { s/^NET_PROTO=//gi; $net_proto = $_; }
	    if (/^HOST_PATH/)      { s/^HOST_PATH=//gi; $host_path = $_; } 
	    if (/^NET_DAEMON/)	   { $net_daemon = 1; }
	    if (/^HD_DAEMON/)	   { $hd_daemon = 1; }
	    if (/^CD_DAEMON/)	   { $cd_daemon = 1; }
	    if (/^HD_QUOTA/)       { $hd_quota = 1;  }
	    if (/^USE_HD/)         { $where_hd = 1;  }
	    if (/^USE_CD/)         { $where_cd = 1;  }
	    if (/^USE_NET/)        { $where_net = 1; }
	    if (/^USE_TAPE/)       { $where_tape = 1; }
	    if (/^CD_TIME/)        { s/^CD_TIME=//gi; $cd_time = $_; }
	    if (/^DAEMON_TIME_SPACE/) { s/^DAEMON_TIME_SPACE=//gi; $when_space = $_; }
	    if (/^CD_WITH_INSTALL_BOOT/) { $cd_with_install_boot = 1; }
	    if (/^CDRW_DEVICE/)    { s/^CDRW_DEVICE=//gi; $cd_devive = $_;}
	    if (/^HOST_NAME/)      { s/^HOST_NAME=//gi; $host_name = $_;} 
	    if (/^AUTH_CHOICE/)    { s/^AUTH_CHOICE=//gi; $auth_choice = $_; }
	    if (/^REMEMBER_PASS/)  { $remember_pass = 1; }
	    if (/^LOGIN/)          { s/^LOGIN=//gi;  $login_user  = $_; $remember_pass = 1; }
	    if (/^PASSWD/)         { s/^PASSWD=//gi; $passwd_user = $_; $remember_pass = 1; }
	    if (/^USE_NET_FTP/)    { $where_net_ftp = 1;  }
	    if (/^USE_NET_SSH/)    { $where_net_ssh = 1;  }
	    if (/^TAPE_DEVICE/)    { s/TAPE_DEVICE=//gi; $save_device_tape = $_;}
	    if (/^CDRW_ERASE/)     { $cdrw_erase = 1;}
	    if (/^SYS_INCREMENTAL_BACKUPS/)   { $backup_sys_versions = 1;}
	    if (/^USER_INCREMENTAL_BACKUPS/)  { $backup_user_versions = 1;}
	    if (/^OTHER_INCREMENTAL_BACKUPS/) { $backup_other_versions = 1;}
	    if (/^NO_CRITICAL_SYS/)  { $no_critical_sys = 1;}
	    if (/^CRITICAL_SYS/)  { $no_critical_sys = 0;}
	}
	read_cron_files();
	$cfg_file_exist = 1;
    } 
    else { $cfg_file_exist = 0; }
    close CONF_FILE;    
}

sub return_path {
    my $name = $_; 
    foreach (@user_and_path_list) {
	if (grep /^$name\:/, $_) {
	    s/^$name\://gi;
	    return $_;
	}
    }
}

sub ftp_client {
    use Net::FTP; 
    my $ftp = Net::FTP->new("$host_name"); 
    $ftp->login("$login_user","$passwd_user"); 
    $ftp->cwd("$host_path"); 
#   $ftp->get("/ce/repertoire/ce.fichier"); 
    $ftp->send("$save_path/*"); 
    $ftp->quit; 
}

sub return_file_date {
    my($more_recent) = @_;
    my $file_date;
    $_ = $more_recent;
    s/backup\_incr\_sys\_//gi;
    s/backup\_base\_sys\_//gi;
    s/backup\_incr\_user\_//gi;
    s/backup\_base\_user\_//gi;
    s/.tar.\w+$//gi;
    s/\_/ /gi;
    my $date = substr($_, 0, 8);
    my $hour = substr($_, 9,  2);
    my $min =  substr($_, 11, 2);
    $file_date = $date . ' ' . $hour . ':' . $min;
    return $file_date;
}


sub build_backup_files {
    my $path_name;
    my $tar_cmd;
    my $more_recent;
    my $tar_cmd_sys;
    my $tar_cmd_user;
    my $tar_cmd_other;
    my $tar_ext;
    my $vartemp;
    my $base_sys_exist = 0;
    my $base_user_exist = 0;
    my $base_other_exist = 0;
    my @list_temp = ();
    my @list_other_;
    my @dir_content = ();
    my $file_date;

    the_time();    
    -d  $save_path or mkdir_p($save_path);
    if ($comp_mode) { $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 "; $tar_ext = "tar.bz2" }
    else { $tar_cmd = "tar cvzp "; $tar_ext = "tar.gz"}
    $tar_cmd_sys = $tar_cmd;
    $tar_cmd_user = $tar_cmd;
    $tar_cmd_other = $tar_cmd;
    $no_critical_sys and $tar_cmd_sys .= "--exclude passwd --exclude fstab --exclude group";
    $what_no_browser and $tar_cmd_user .= "--exclude NewCache --exclude Cache --exclude cache";

    @dir_content = all($save_path);
    grep (/backup_base_sys/, @dir_content) and $base_sys_exist = 1;
    grep (/backup_base_other/, @dir_content) and $base_other_exist = 1;

# fixme use incremental backup   
#tar -cvf tarfilename --after-date="sept 1, 2000" /home
# tar -cf archive.tar --newer="`date -r file`" /home
# algo: liste des fichiers du meme nom, on prend le dernier puis on applique le tar ci-dessus.
# faire fonctions qui retourne le plus recent element.

    if ($where_hd) {
	$interactive and progress($pbar, 0.5, _("Backup system files..."));
	if ($backup_sys) { 
	    if ($backup_sys_versions) {
 		if (grep(/backup_incr_sys/, @dir_content)) { 
		    my @more_recent = grep /backup_incr_sys/, @dir_content; 
		    @list_temp = sort  @more_recent;
 		    $more_recent = pop @list_temp;
		    $file_date = return_file_date($more_recent);
 		}
  		else { 
		    my @more_recent = grep /backup_base_sys/, @dir_content; 
		    $more_recent = @more_recent[0];
		    $file_date = return_file_date($more_recent);
 		}
		if (!$base_sys_exist) { 
		    system("$tar_cmd_sys -f $save_path/backup_base_sys$the_time.$tar_ext @sys_files"); }
		else { 
		    system("$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext --after-date='$file_date'  @sys_files"); }
	    } else {
		system("cd $save_path && rm -f backup_sys* backup_base_sys* backup_incr_sys*");
		system("$tar_cmd_sys -f $save_path/backup_sys$the_time.$tar_ext @sys_files");
	    }
	}

	$interactive and progress($pbar, 0.5, _("Backup system files..."));
	$interactive and progress($pbar3, 0.3, _("Hard Disk Backup files..."));

	if (@list_other) {
#	    if ($backup_other_versions) {
#		$base_other_exist or  system("$tar_cmd_other -f $save_path/backup_base_other$the_time.$tar_ext @list_other");
#		$base_other_exist and system("$tar_cmd_other -f $save_path/backup_incr_other$the_time.$tar_ext @list_other");
#	    } else {
#	    system("cd $save_path && rm -f backup_other* backup_base_other* backup_incr_other*");
#	    system("$tar_cmd_other -f $save_path/backup_other$the_time.$tar_ext @list_other");
#	    }
	    system("cd $save_path && rm -f backup_other* ");
	    system("$tar_cmd_other -f $save_path/backup_other$the_time.$tar_ext @list_other");
	    
	    foreach (@list_other) { push @list_other_, $_ . "\n"; }
	    output_p( $save_path . '/list_other', @list_other_);    
	}
	
	$interactive and progress($pbar1, 1, _("Backup User files..."));
	$interactive and progress($pbar3, 0.3, _("Hard Disk Backup Progress..."));
	
	if ($backup_user) {
	    foreach (@user_list) {
		my $user = $_;
		if (grep (/backup_base_user_$user/, @dir_content)) {  $base_user_exist = 1; }
		else { $base_user_exist = 0; }
		$path_name = return_path($user);
		if ($backup_user_versions) {
		    if (grep(/backup_incr_user/, @dir_content)) { 
			my @more_recent = grep /backup_incr_user/, @dir_content; 
			@list_temp = sort  @more_recent;
			$more_recent = pop @list_temp;
			$file_date = return_file_date($more_recent);
		    }
		    else { 
			my @more_recent = grep /backup_base_user/, @dir_content; 
			$more_recent = @more_recent[0];
			$file_date = return_file_date($more_recent);
		    }
		    if (!$base_user_exist) { 
			system("$tar_cmd_user -f $save_path/backup_base_user_$user$the_time.$tar_ext $path_name");}
		    else { 
			system("$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext --after-date='$file_date' $path_name");}
		} else {
		    system("cd $save_path && rm -f backup_user_$_* backup_base_user_$_* backup_incr_user_$_*");
		    system("$tar_cmd_user -f $save_path/backup_user_$_$the_time.$tar_ext $path_name");
		}
	    }
	}
	$interactive and progress($pbar2, 1, _("Backup Other files..."));
	$interactive and progress($pbar3, 0.4, _("Hard Disk Backup files..."));
    }

    if ($where_net_ssh) {
#  $res = Net::SSLeay::write($ssl, $msg);  # Perl knows how long $msg is
#         die_if_ssl_error("ssl write");
#         shutdown S, 1;  # Half close --> No more output, sends EOF to server
#         $got = Net::SSLeay::read($ssl);         # Perl returns undef on failure
#         die_if_ssl_error("ssl read");
#         print $got;
                
#         Net::SSLeay::free ($ssl);               # Tear down connection
#         Net::SSLeay::CTX_free ($ctx);
#         close S;
    }
    if ($where_net_ftp) { }
    if ($where_cd)      { }
}

sub list_remove {
    my($widget, $list) = @_;
    my @to_remove;
    push @to_remove, $list->child_position($_) foreach($list->selection);
    splice @list_other, $_, 1 foreach(reverse sort @to_remove);
    $list->remove_items($list->selection);
}

sub file_ok_sel { 
    my ( $widget, $file_selection ) = @_;     
    my $file_name = $file_selection->get_filename();
    if(!member($file_name, @list_other)) {
	push(@list_other, $file_name);
	$list_other->add(gtkshow(new Gtk::ListItem($file_name)));
    }
}

sub filedialog_where_hd {
    my $file_dialog;

    $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
    $file_dialog->ok_button->signal_connect(clicked => sub { 
	$save_path_entry->set_text($file_dialog->get_filename()); 
	$file_dialog->destroy() });
    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
    $file_dialog->show();
}

sub filedialog_restore_find_path {
    my $file_dialog;

    $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
    $file_dialog->ok_button->signal_connect(clicked => sub { 
	$restore_find_path_entry->set_text($file_dialog->get_filename()); 
	$file_dialog->destroy() });
    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
    $file_dialog->show();
}


sub filedialog {
    my $file_dialog;

    $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
    $file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog);
    $file_dialog->ok_button->child->set(_("Add"));
    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
    $file_dialog->cancel_button->child->set(_("Close"));
    $file_dialog->set_filename(_("Select the files or directories and click on 'Add'"));
    $file_dialog->show();
}

################################################  ADVANCED  ################################################  

sub advanced_what_sys {
    my $box_what_sys;
    
    gtkpack($advanced_box,
	    $box_what_sys = gtkpack_(new Gtk::VBox(0, 15),
				     1, _("\nPlease check all options that you need.\n"),
				     1, _("This options can backup and restore all files on your /etc directory.\n"),
				     0, my $check_what_sys = new Gtk::CheckButton( _("Backup your System files. (~ 2Mo)")),
				     0, my $check_what_versions = new Gtk::CheckButton( _("Use incremental backup  (do not replace old backups)") ),
				     0, my $check_what_critical = new Gtk::CheckButton( _("Do not include critical files (passwd, goup, fstab)") ),
				     0, _("With this option you will be able to restore any version\n of your /etc directory."),
				     1, new Gtk::VBox(0, 15),
				     ),
	    );
    foreach ([$check_what_sys, \$backup_sys], [$check_what_critical, \$no_critical_sys]) {
	my $ref = $_->[1];
	gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
	}
    gtksignal_connect(gtkset_active($check_what_versions, $backup_sys_versions), toggled => sub {
	$backup_sys_versions = $backup_sys_versions ? 0 : 1;
    });
    $custom_help = "what";
    $current_widget = \&advanced_what_sys;
    $previous_widget =\&advanced_what;
    $central_widget = \$box_what_sys;
    $up_box->show_all();
}

sub advanced_what_user {
    my ($previous_function) = @_,
    my $box_what_user;
    my %check_what_user;
    
    gtkpack($advanced_box,
	    $box_what_user = gtkpack_(new Gtk::VBox(0, 15),
				      0, _("Please check all user that you want to include inb your backup."),
				      0, new Gtk::HSeparator,
				      1, createScrolledWindow( 
						gtkpack__(new Gtk::VBox(0,0),
							map { my $name = $_;
							      my @user_list_tmp;
							      my $b = new Gtk::CheckButton($name); 
							      if (grep /^$name$/, @user_list) {
								  $check_what_user{$_}[1] = 1;
								  gtkset_active($b, 1);
							      } else {
								  $check_what_user{$_}[1] = 0;
								  gtkset_active($b, 0);
							      }
							      $b->signal_connect(toggled => sub { 
								  if ($check_what_user{$name}[1] ) {
								      $check_what_user{$name}[1] = 0;
								      @user_list_tmp = grep(!/^$name$/, @user_list);
								      @user_list = @user_list_tmp;
								  } else { 
								      $check_what_user{$name}[1] = 1;
								      if (!member($name, @user_list) ) {push @user_list, $name;}
								  }
							      });
							      $b } (@all_user_list) 
							),
							       ),
				      0, my $check_what_browser = new Gtk::CheckButton( _(" do not include the browser cache") ),
				      0, my $check_what_user_versions = new Gtk::CheckButton( _("Use Incremental Backups  (do not replace old backups)") ),
				      ),
	    );
    foreach ([$check_what_browser, \$what_no_browser]) {
	my $ref = $_->[1];
	gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
	}
    gtksignal_connect(gtkset_active($check_what_user_versions, $backup_user_versions), toggled => sub {
	$backup_user_versions = $backup_user_versions ? 0 : 1;
    });
    $custom_help = "what";
    if ($previous_function) { $previous_widget =\&$previous_function; $next_widget =\&$previous_function; }
    else { $previous_widget =\&advanced_what; }
    $current_widget = \&advanced_what_user;
    $central_widget = \$box_what_user;
    $up_box->show_all();
}

sub advanced_what_other {
    my $box_what_other;
    $list_other = new Gtk::List();
    $list_other->set_selection_mode(-extended);
    $list_other->add(gtkshow(new Gtk::ListItem($_))) foreach (@list_other);
    
    gtkpack($advanced_box,
	    $box_what_other = gtkpack_(new Gtk::VBox(0, 15),
				  1, gtkpack_(new Gtk::HBox(0,4),
					      1, createScrolledWindow($list_other),
					      ),
				  0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
					    gtksignal_connect(new Gtk::Button(_("Add")), clicked => sub {filedialog()  }),
					    gtksignal_connect(new Gtk::Button(_("Remove Selected")), clicked => \&list_remove, $list_other),
					    ),
				  0, gtkset_sensitive(my $check_what_other_versions = new Gtk::CheckButton( _("Use Incremental Backups  (do not replace old backups)") ), 0),
ofs	hex dump	ascii
0000	89 50 4e 47 0d 0a 1a 0a 00 00 00 0d 49 48 44 52 00 00 00 34 00 00 00 34 08 06 00 00 00 c5 78 1b	.PNG........IHDR...4...4......x.
0020	eb 00 00 00 06 62 4b 47 44 00 ff 00 ff 00 ff a0 bd a7 93 00 00 00 09 70 48 59 73 00 00 0b 12 00	.....bKGD..............pHYs.....
0040	00 0b 12 01 d2 dd 7e fc 00 00 00 07 74 49 4d 45 07 d2 09 06 0c 02 18 93 19 29 99 00 00 07 74 49	......~.....tIME.........)....tI
0060	44 41 54 78 9c cd 9a cf 6b 13 dd 1b c5 3f 33 93 a4 4d 4d 6c b5 b5 b6 5a 8d 2e 2c 54 2a 54 82 e0	DATx....k....?3..MMl...Z..,T*T..
0080	42 41 77 fe 01 e2 42 70 e1 c2 56 50 7c 77 d2 5d 68 37 05 05 c1 8d d0 2e 75 e1 4a 50 b1 e0 46 45	BAw...Bp..VP\|w.]h7......u.JP..FE
00a0	10 c4 45 41 05 2b 84 af 6f 5b d2 d6 9a 1a 9a 26 6d da 24 73 e7 7e 17 93 99 cc 98 b4 a6 f9 a1 ef	..EA.+..o[.....&m.$s.~..........
00c0	81 a1 99 69 e6 de 7b ee 73 ee 79 9e b9 13 25 1c 0e 4b 00 c3 30 30 0c 03 00 29 25 db 41 51 14 fb	...i..{.s.y...%..K..00...)%.AQ..
00e0	af aa aa f6 79 38 1c 56 b6 bd b1 4a 8c 8f 8f 57 fc 5d 4f 67 67 27 77 ef de 45 d7 75 c5 30 8c df	....y8.V...J...W.]Ogg'w..E.u.0..
0100	92 b1 60 91 51 55 95 57 af 5e c9 47 8f 1e 31 35 35 25 1b 45 aa 52 78 da da da f0 f9 7c 1c 3b 76	..`.QU.W.^.G..155%.E.Rx.....\|.;v
0120	4c 0a 21 5c 84 ac 99 2f 07 27 a1 d5 d5 55 be 7e fd ca 81 03 07 98 9c 9c 94 27 4f 9e 54 76 32 ab	L.!\.../.'...U.~.........'O.Tv2.
0140	f5 84 c7 8a 8a cf e7 ab ba 11 bf df 0f 40 24 12 01 e0 d9 b3 67 72 68 68 e8 af 90 f2 f4 f5 f5 d9	.............@$.....grhh........
0160	03 02 88 46 a3 44 22 11 57 74 ca c9 50 51 14 3b 4a a9 54 8a f9 f9 79 ae 5d bb 86 aa aa 64 32 19	...F.D".Wt..PQ.;J.T...y.]....d2.
0180	66 67 67 e5 c8 c8 08 91 48 e4 8f 4a d0 13 08 04 f0 78 3c f6 85 74 3a cd e9 d3 a7 b9 74 e9 52 55	fgg.....H..J.....x<..t:.....t.RU
01a0	0d 5a 24 3f 7e fc c8 f0 f0 30 42 08 46 47 47 eb 35 de df c2 53 ee 62 26 93 21 9b cd d2 de de 5e	.Z$?~....0B.FGG.5...S.b&.!.....^
01c0	55 a3 8a a2 e0 f7 fb b9 7e fd 3a 5f be 7c 91 b7 6f df 56 56 57 57 77 e4 56 d5 42 dd ea 1f 4d 4d	U.......~.:_.\|..o.VVWWw.V.B...MM
01e0	4d 04 83 c1 aa 8e 40 20 40 4b 4b 0b 00 f7 ef df 67 73 73 53 ee da b5 8b a1 a1 a1 bf 47 a8 1e 78	M.....@.@KK.....gssS........G..x
0200	f7 ee 1d 13 13 13 f4 f7 f7 f3 f4 e9 d3 3f 42 aa ac e4 2a cd 45 db 21 1c 0e f3 f0 e1 43 fb 3c 18	.............?B...*.E.!.....C.<.
0220	0c 32 3d 3d 2d 4f 9d 3a a5 0c 0d 0d 35 4c 7e 65 09 fd 8a a9 a9 29 6e dc b8 c1 91 23 47 80 ed 09	.2==-O.:....5L~e.....)n....#G...
0240	5b ee 68 55 10 56 ae 52 14 85 d9 d9 59 a4 94 f2 f8 f1 e3 0d 23 55 11 21 80 0b 17 2e 70 f9 f2 e5	[.hU.V.R....Y.......#U.!....p...
0260	9a 3a 7b f2 e4 09 ef df bf e7 c4 89 13 f2 d0 a1 43 0d b1 f3 b2 84 ca 55 08 d9 6c 96 ee ee 6e 82	.:{.............C......U..l...n.
0280	c1 60 d5 9d b5 b7 b7 13 89 44 78 fe fc 39 4b 4b 4b 0d 49 be 15 9b 42 3d d6 95 85 91 91 11 3a 3a	.`.......Dx..9KKK.I...B=......::
02a0	3a f0 7a bd b2 de 26 d1 50 97 2b 87 d1 d1 51 ae 5e bd ca dc dc 1c 2f 5e bc a8 3b a9 12 c9 09 21	:.z...&.P.+...Q.^...../^..;....!
02c0	2a ba 31 9d 4e 13 8d 46 77 d4 59 38 1c 26 1c 0e db e7 7d 7d 7d 2c 2c 2c 70 f1 e2 45 ea 65 12 2e	*.1.N..Fw.Y8.&....}}},,,p..E.e..
02e0	42 b9 5c 8e 58 2c b6 6d 95 6d 21 1a 8d 72 e7 ce 1d ce 9d 3b 67 5f db 4a 96 ce ba cf 89 b6 b6 36	B.\.X,.m.m!..r.....;g_.J.......6
0300	d6 d7 d7 b9 75 eb 96 bc 77 ef 5e 5d 9c cf 45 28 16 8b d9 19 be 12 0c 0c 0c 70 e6 cc 19 9a 9a 9a	....u...w.^]..E(.........p......
0320	aa 1e c0 f4 f4 34 2b 2b 2b 8c 8c 8c c8 e1 e1 e1 9a 49 d9 84 12 89 04 86 61 10 08 04 76 d4 40 47	.....4+++........I......a...v.@G
0340	47 07 dd dd dd 55 0f 20 9d 4e d3 df df cf cd 9b 37 19 1c 1c 94 ff fc f3 4f 4d a4 54 00 5d d7 59	G....U...N......7.......OM.T.].Y
0360	5c 5c a4 b3 b3 b3 ec 97 72 b9 5c d5 03 ae 14 bd bd bd 4c 4c 4c f0 e0 c1 03 39 30 30 50 75 89 a4	\\......r.\.......LLL....900Pu..
0380	82 19 9d d6 d6 56 5b e3 ce 35 54 78 b6 29 bb ae ea 61 e5 c1 60 90 37 6f de 70 e5 ca 15 c6 c6 c6	.....V[..5Tx.)...a..`.7o.p......
03a0	d8 b7 6f 1f e3 e3 e3 52 08 51 15 29 8f 35 b0 b6 b6 36 a4 94 ae 41 0a 21 98 9b 9b a3 ab ab 8b cf	..o....R.Q.).5...6...A.!........
03c0	9f 3f d7 3c f8 72 e8 ed ed e5 f1 e3 c7 f6 f9 a7 4f 9f 18 1c 1c 44 d3 34 80 1d bb 9f 47 d7 75 9a	.?.<.r..........O....D.4....G.u.
03e0	9b 9b 6d 22 4e 42 89 44 02 bf df ef 7a 00 6c 24 96 97 97 49 26 93 36 99 6a a0 4a 29 b1 36 47 ac	..m"NB.D....z.l$...I&.6.j.J).6G.
0400	43 51 14 74 5d 27 1e 8f b3 67 cf 9e 2d 6f ae c4 de 2b 45 26 93 21 1e 8f a3 69 9a d5 6e 55 7a b6	CQ.t]'...g..-o...+E&.!...i..nUz.
0420	13 83 94 12 e7 36 56 3c 1e a7 bd bd bd ec ba b2 50 2f 42 d6 3a ed ee ee ae 29 3a 00 ea 87 0f 1f	.....6V<........P/B.:....):.....
0440	48 a5 52 25 ff f0 7a bd 25 16 be b6 b6 66 7f 4e 24 12 bc 7d fb b6 a6 ce c1 9c b8 6f df be b1 7f	H.R%..z.%....f.N$..}.......o....
0460	ff 7e 3b 9f d5 62 36 1e 33 02 66 03 d6 ee a9 ae eb e6 b6 d6 16 0d c7 e3 71 52 a9 54 d5 11 ca e5	.~;..b6.3.f.............qR.T....
0480	72 24 93 49 7e fc f8 81 df ef e7 f0 e1 c3 a8 aa 5a 17 d7 f4 98 0d 59 a7 12 59 20 27 84 40 52 94	r$.I~...........Z.....Y..Y.'.@R.
04a0	a2 35 f8 4c 26 c3 d2 d2 d2 96 39 eb 57 24 93 49 d2 e9 34 1b 1b 1b 80 99 48 5b 5a 5a 08 04 02 f4	.5.L&.....9.W$.I..4.....H[ZZ....
04c0	f4 f4 e0 f5 7a 8b 44 0a 5b d1 35 11 02 d0 34 0d 4d d3 4c 53 30 a4 bd 6e ac 35 e5 9c 39 cb c6 cb	....z.D.[.5...4.M.LS0..n.5..9...
04e0	c9 d4 89 44 22 c1 e2 e2 22 7e bf 9f 40 30 48 20 b8 1b af d7 e3 8a ba dd 76 e1 9a 41 ed b9 cd 03	...D"..."~..@0H.........v..A....
0500	b0 b9 b9 c9 f4 f4 34 42 08 16 16 16 5c 9d 99 87 19 a1 9f 3f 7f e2 f3 f9 ec 7a af 9c e4 84 10 c4	......4B....\......?.....z......
0520	62 31 36 36 36 e8 39 74 18 af d7 0b 14 06 5d 26 35 20 a5 ad 84 ba 48 6e 66 66 86 b1 b1 31 a5 b5	b1666.9t......]&5.....Hnff...1..
0540	b5 55 6a 9a 46 2a 95 e2 ec d9 b3 0e d7 33 30 0c b3 a3 5c 2e 47 4f 4f cf 96 9d 0b 21 88 46 a3 78	.Uj.F*.......30...\.GOO....!.F.x
0560	bd 5e 0e 1d 0e d9 03 76 3a b0 7d 9f 45 0e f7 e4 d5 4c 08 60 65 65 45 ae ad ad a1 69 1a d9 6c d6	.^.....v:.}.E....L.`eeE....i..l.
0580	ee d8 3e 30 73 d3 ee dd bb cd 24 bb 45 c7 b3 b3 b3 78 bd 5e ba ba 0f 60 47 a5 42 22 96 12 6a 96	..>0s.....$.E....x.^...`G.B"..j.
05a0	9c e3 f5 87 2c 90 03 8a 5b ba 42 08 a4 61 b0 b6 b6 66 3e fc 39 24 e2 c4 f7 ef df d1 85 e0 e0 c1	....,...[.B..a...f>.9$..........
05c0	83 20 8b 8b 7b 3b 79 95 92 a9 89 8b 49 c8 f1 59 01 c8 e7 f3 12 60 61 61 c1 5e 4f 33 33 33 45 72	....{;y.....I..Y.....`aa.^O333Er
05e0	94 ea 3d 93 c9 b0 bc bc 6c 6e 73 6d 11 15 e9 b8 e6 24 61 18 56 5b ee 4a a5 1e 84 00 d0 75 5d c9	..=.....lnsm.....$a.V[.J.....u].
0600	66 b3 32 14 0a 21 84 40 08 c1 ca ca 8a ed 82 4e e7 b3 3a 9e 9f 9f a7 ab ab cb 76 c7 4a e4 55 ac	f.2..!.@.......N..:.......v.J.U.
0620	4a 64 c1 2f a4 fd 06 b1 16 94 10 ca e7 f3 4c 4e 4e f2 f2 e5 4b 9b 44 2e 97 e3 fc f9 f3 f6 60 9d	Jd./..........LNN...K.D.......`.
0640	af 2f 9d ce b7 33 79 15 88 60 a6 0a 77 b4 ea 48 28 14 0a 11 0a 85 5c eb ca ca 39 4e 32 56 84 9c	./...3y..`..w..H(.....\...9N2V..
0660	ce e7 24 02 b8 6a c3 72 f2 32 a4 45 a6 48 b4 ca 9a 74 6b 42 e5 e0 9e 35 f7 6c db 8f 17 3b 92 57	..$..j.r.2.E.H...tkB...5.l...;.W
0680	91 9c 7d d8 13 55 13 9f df 12 52 00 72 b9 9c 84 42 22 55 15 10 e6 ec 5b ae b7 33 79 b9 23 65 47	..}..U....R.r...B"U....[..3y.#eG
06a0	dc 90 18 f5 b0 ed 4a be b4 ba ba aa f8 fd 7e 99 cf e7 f9 f7 7f ff 22 a5 64 79 79 d9 2c 28 31 a3	......J.......~.......".dyy.,(1.
06c0	e2 94 97 bb 64 2a 48 ab 8c bc 8a 64 cc bf c2 68 80 cb 6d 41 08 55 55 69 6e 6e 46 08 81 61 18 a8	....d*H....d...h..mA.UUinnF..a..
06e0	aa 5a d6 f9 76 22 2f c3 41 ca 28 44 a8 56 54 fc 6c 3d 39 39 c9 eb d7 af 69 6e 6e 46 51 14 36 36	.Z..v"/.A.(D.VT.l=99....innFQ.66
0700	36 d8 bb 77 af 8b 84 e9 7c 95 cb ab 48 a6 48 e8 8f 48 ae b0 7d 5b e2 7c f9 7c be 24 2a a5 ce 55	6..w....\|...H.H..H..}[.\|.\|.$*..U
0720	90 97 30 23 e2 94 57 f1 5c 62 18 c2 25 db 86 12 2a 07 eb 19 c9 cc a5 a5 99 ff b7 f2 2a 14 be a2	..0#..W.\b..%.................
0740	b0 86 ac 24 5e ab cd 55 43 48 01 d8 dc dc 94 3e 9f 8f 74 7a 1d 21 16 5d e5 90 33 f7 58 55 80 bb	...$^..UCH.....>..tz.!.]..3.XU..
0760	a2 36 65 69 48 03 ec 48 59 b9 89 92 3d f0 46 13 02 20 99 4c 2a a1 50 48 1e 3d 7a 14 5d d7 6d b3	.6eiH..HY...=.F....L*.PH.=z.].m.
0780	28 95 8c c2 76 a6 e5 dc c8 d7 34 0d 8f c7 5b 93 ec aa 26 b4 be be 4e 2c 16 b3 7f 0e 53 4f fc 15	(...v.....4...[...&...N,....SO..
07a0	42 00 d9 6c 56 99 9f 9f a7 a5 a5 45 d6 22 93 5f 11 0a 85 aa be b7 6a 42 ce 17 57 ff 25 d4 6b 5a	B..lV......E."._......jB..W.%.kZ
07c0	ff ea 6f e4 9c a8 e7 a6 f5 7f 82 d4 1f 7f 69 dc 68 fc 1f 6f dc 10 6c 4c 3e 66 86 00 00 00 00 49	..o...........i.h..o..lL>f.....I
07e0	45 4e 44 ae 42 60 82	END.B`.