diff options
Diffstat (limited to 'perl-install/standalone/drakbackup')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 5149 |
1 files changed, 0 insertions, 5149 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup deleted file mode 100755 index 7736a2e17..000000000 --- a/perl-install/standalone/drakbackup +++ /dev/null @@ -1,5149 +0,0 @@ -#!/usr/bin/perl -w -# -# Copyright (C) 2001 MandrakeSoft by Sebastien DUPONT <dupont_s@epita.fr> -# 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: -# -# Drakbackup is used 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) -# -# Drakbackup allows you to backup your system on: -# - Harddrive. -# - NFS. -# - CDROM (CDRW), DVDROM (with autoboot, rescue and autoinstall.). -# - FTP. -# - Rsync. -# - Webdav. -# - Tape. -# -# Drakbackup allows you to Restore your system on -# choosen directory. -# -# Per default all backup will be stored on your -# /var/lib/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 -# perl Net::FTP -# ssh-askpass -# -# BUGS : -# restore->other_media->next->previous => crash ... -# selection des sources a inclure dans le backup cd. -# help -> ok after install_rpm -# -# TODO: -# 1 - print ftp problem for user. -# 2 - calcul disk space. -# use quota. -# 3 - ssh & rsync -> expect or .identity.pub/authorized_keys -# 4 - write on cd --> ! change Joliet to HFS for Apple -# 5 - cd writer detection -> cdrw: /sys/dev/cdrom/info /scsi/host0/bus0/target4/lun0 -# /proc/sys/dev/cdrom/ -# 6 - total backup.( all partitions wanted, windows partitions for example!) -# dump use for total backup. -# 7 - custom deamon -# 8 - placer README dans $save_path -> prevenir des danger de supprimer la premier version -# explain configuration file variables (mainly for non X users) -# 9 - webdav -# 10- backend : --resore_all, --restore_sys, --restore_users -# --build_cd_autoinst -# --backup_now --backup_default_now -# 11- tape device support -# 12- cpio use !! -# 13- boot floppy disk (with dialog) -# 14- build autoboot with backup and install cd -# 15- use .backupignore like on CVS -# 16- afficher les modif dans un fichier texte du meme nom -# pour afficher durant le restore. -# 17- futur: could be possible to restore a specific file -# or directory at specific date. -# 18- possible all files each time from directory. -# -# DONE TODAY: -#________________________________________________________________ - -use Gtk; -use lib qw(/usr/lib/libDrakX ); - -use standalone - ; #- warning, standalone must be loaded very first, for 'explanations' - -use interactive; -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 Restore application - ---default : save default directories. ---debug : show all debug messages. ---show-conf : list of files or directories to backup. ---daemon : use daemon configuration. ---help : show this message. ---version : show version name. -); - exit(0); -} - -if ( "@ARGV" =~ /--version/ ) { - print "DrakBakckup Version 1.0\n"; - exit(0); -} - -# Backend Options. -my $central_widget; -my $previous_widget; -my $current_widget; -my $interactive; -my $up_box; -my $advanced_box; -my $box2; -my $cfg_file_exist = 0; -my @all_user_list; -my $list_other; -my $DEBUG = 0; -my $restore_sys = 1; -my $restore_user = 1; -my $restore_other = 1; -my $restore_step_sys_date = ""; -my @user_backuped = (); -my @sys_backuped = (); -my $sys_backuped = 0; -my $other_backuped = 0; -my @user_list_to_restore = (); -my @sys_list_to_restore = (); -my $cd_devive_entry; -my $custom_help; -my $button_box; -my $button_box_tmp; -my $next_widget; -my $sav_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 $label_tail; -my @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; -my @user_list_backuped = (); -my @files_corrupted = (); -my $remove_user_before_restore = 1; -my @file_list_to_send_by_ftp = (); -my $results; - -# 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/lib/drakbackup"; -my $comp_mode = 0; -my $backup_sys = 1; -my $backup_user = 1; -my $backup_daemon = 1; -my $backup_sys_versions = 1; -my $backup_user_versions = 1; -my $backup_other_versions = 0; -my $what_no_browser = 1; -my $cdrw = 0; -my $net_proto = ''; -my $host_path = ''; -my $login_user = ''; -my $daemon = 0; -my $ssh_daemon = 0; -my $ftp_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; -my $send_mail = 0; -my $user_mail; -my @user_info; - -foreach (@ARGV) { - /--default/ and backend_mode(); - /--daemon/ and daemon_mode(); - /--show-conf/ and show_conf(); - /--debug/ and $DEBUG = 1, next; -} - -sub show_conf { - print "DrakBakckup configuration:\n\n"; - read_conf_file(); - system_state(); - print $system_state . "\n"; - exit(0); -} - -sub backend_mode { - build_backup_files(); - exit(0); -} - -sub daemon_mode { - $daemon = 1; - build_backup_files(); - exit(0); -} - -interactive_mode(); - -sub all_user_list { - my ( $uname, $uid ); - @all_user_list = (); - setpwent(); - do { - @user_info = getpwent(); - ( $uname, $uid ) = @user_info[ 0, 2 ]; - push ( @all_user_list, $uname ) - if ( $uid > 500 ) - and !( $uname eq "nobody" ); - } while (@user_info); -} - -sub the_time { - $the_time = "_"; - $the_time .= localtime->year() + 1900; - if ( localtime->mon() < 9 ) { $the_time .= "0"; } - $the_time .= localtime->mon() + 1; - if ( localtime->mday() < 10 ) { $the_time .= "0"; } - $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(); - if ( localtime->sec() < 10 ) { $the_time .= "0"; } - $the_time .= localtime->sec(); -} - -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", "USER_MAIL=$user_mail\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"; - $send_mail and push @cfg_list, "SEND_MAIL\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"; - $ssh_daemon and push @cfg_list, "SSH_DAEMON\n"; - $ftp_daemon and push @cfg_list, "FTP_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 ); - system("chmod 600 $cfg_file"); - save_cron_files(); -} - -sub read_cron_files { - my $daemon_found = 0; - foreach (qw(hourly daily weekly monthly)) { - if ( -f "/etc/cron.$_/drakbackup" ) { - $when_space = $_; - $daemon_found = 1; - last; - } - - } - !$daemon_found and $backup_daemon = 0; -} - -sub save_cron_files { - my @cron_file = ( "#!/bin/sh\n", "\n", "/usr/sbin/drakbackup --daemon" ); - - if ($backup_daemon) { - foreach (qw(hourly daily weekly monthly)) { - -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup"); - } - output_p( "/etc/cron.$when_space/drakbackup", @cron_file ); - system("chmod +x /etc/cron.$when_space/drakbackup"); - } - else { - foreach (qw(hourly daily weekly monthly)) { - -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup"); - } - } -} - -sub read_conf_file { - if ( -e $cfg_file ) { - open( CONF_FILE, "<" . "$cfg_file" ) - || print "You must be root to read configuration file. \n"; - 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 (/^SSH_DAEMON/) { $ssh_daemon = 1; } - if (/^FTP_DAEMON/) { $ftp_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 (/^USER_MAIL/) { s/^USER_MAIL=//gi; $user_mail = $_; } - if (/^USE_NET_FTP/) { $where_net_ftp = 1; } - if (/^SEND_MAIL/) { $send_mail = 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 complete_results { - system_state(); - $results .= -"***********************************************************************\n\n"; - $daemon or $results .= _("\n DrakBackup Report \n\n"); - $daemon - and $results .= - _("\n DrakBackup Daemon Report\n\n\n"); - $results .= -"***********************************************************************\n\n"; - $results .= $system_state; - $results .= -"\n\n***********************************************************************\n\n"; - $results .= _("\n DrakBackup Report Details\n\n\n"); - $results .= -"***********************************************************************\n\n"; -} - -sub ftp_client { - use Net::FTP; - my $ftp; - - $DEBUG - and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp; - if ( $DEBUG && $interactive ) { - $ftp = Net::FTP->new( "$host_name", Debug => 1 ) or return (1); - } - elsif ($interactive) { - $ftp = Net::FTP->new( "$host_name", Debug => 0 ) or return (1); - } - else { $ftp = Net::FTP->new( "$host_name", Debug => 0 ) or return (1); } - $ftp->login( "$login_user", "$passwd_user" ); - $ftp->cwd("$host_path"); - foreach (@file_list_to_send_by_ftp) { - $pbar->set_value(0); - $interactive and progress( $pbar, 0.5, $_ ); - $interactive and $pbar->set_show_text($_); - $ftp->put("$_"); - $interactive and progress( $pbar, 0.5, $_ ); - $interactive and $pbar->set_show_text($_); - $interactive - and - progress( $pbar3, 1 / @file_list_to_send_by_ftp, _("total progess") ); - } - $ftp->quit; - return (0); -} - -sub ssh_client { - system("scp @file_list_to_send_by_ftp root\@petra:."); -} - -sub write_on_cd { - - # system("cdrecord "); -} - -sub build_iso { - - # system("mkisofs -r -J -T -v -V 'Drakbackup' -o drakbackup.iso /var/lib/drakbackup"); -} - -sub build_cd { - build_iso(); -} - -sub send_mail { - my ($result) = @_; - my $datem = `date`; - - open F, "|/usr/sbin/sendmail -f$user_mail $user_mail" or return (1); - print F "From: drakbackup\n"; - print F "To: $user_mail \n"; - print F "Subject: DrakBackup report on $datem \n"; - print F "\n"; - print F "$result\n"; - close F or return (1); - return (0); -} - -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; - $results = ""; - - read_conf_file(); - the_time(); - $send_mail and complete_results(); - -d $save_path or mkdir_p($save_path); - if ($comp_mode) { - $DEBUG and $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 "; - $DEBUG or $tar_cmd = "tar c --use-compress-program /usr/bin/bzip2 "; - $tar_ext = "tar.bz2"; - } - else { - $DEBUG and $tar_cmd = "tar cvpz "; - $DEBUG or $tar_cmd = "tar cpz "; - $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 --exclude mtab"; - $what_no_browser - and $tar_cmd_user .= "--exclude NewCache --exclude Cache --exclude cache"; - - -d $save_path and @dir_content = all($save_path); - grep ( /^backup\_base\_sys/, @dir_content ) and $base_sys_exist = 1; - - if ( ( $where_hd && !$daemon ) || ( $daemon && $hd_daemon ) ) { - $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/, - sort @dir_content; - $more_recent = pop @more_recent; - $DEBUG and print "more recent file: $more_recent\n"; - system( -"find @sys_files -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_sys$the_time.txt" - ); - if ( !cat_("$save_path/list_incr_sys$the_time.txt") ) { - system("rm $save_path/list_incr_sys$the_time.txt"); - } - else { - system( -"$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext -T $save_path/list_incr_sys$the_time.txt" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_incr_sys$the_time.$tar_ext"; - push @file_list_to_send_by_ftp, - "$save_path/list_incr_sys$the_time.txt"; - $results .= -"\nfile: $save_path/backup_incr_sys$the_time.$tar_ext\n"; - $results .= - cat_("$save_path/list_incr_sys$the_time.txt"); - } - } - elsif ( grep /^backup\_base\_sys/, @dir_content ) { - my @more_recent = grep /^backup\_base\_sys/, - sort @dir_content; - $more_recent = pop @more_recent; - $DEBUG and print "more recent file: $more_recent\n"; - system( -"find @sys_files -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_sys$the_time.txt" - ); - if ( !cat_("$save_path/list_incr_sys$the_time.txt") ) { - system("rm $save_path/list_incr_sys$the_time.txt"); - } - else { - system( -"$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext -T $save_path/list_incr_sys$the_time.txt" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_incr_sys$the_time.$tar_ext"; - push @file_list_to_send_by_ftp, - "$save_path/list_incr_sys$the_time.txt"; - $results .= -"\nfile: $save_path/backup_incr_sys$the_time.$tar_ext\n"; - $results .= - cat_("$save_path/list_incr_sys$the_time.txt"); - } - } - else { - system( -"$tar_cmd_sys -f $save_path/backup_base_sys$the_time.$tar_ext @sys_files" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_base_sys$the_time.$tar_ext"; - $results .= - "\nfile: $save_path/backup_base_sys$the_time.$tar_ext\n"; - } - } - 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" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_sys$the_time.$tar_ext"; - $results .= "\nfile: $save_path/backup_sys$the_time.$tar_ext\n"; - } - } - - $interactive and progress( $pbar, 0.5, _("Backup system files...") ); - $interactive - and progress( $pbar3, 0.3, _("Hard Disk Backup files...") ); - - if (@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" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_other$the_time.$tar_ext"; - $results .= "\nfile: $save_path/backup_other$the_time.$tar_ext\n"; - - #old foreach (@list_other) { push @list_other_, $_ . "\n"; } - @list_other_ = map { "$_\n" } @list_other; - 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 = $_; - $path_name = return_path($user); - if ($backup_user_versions) { - if ( grep( /^backup\_incr\_user\_$user\_/, @dir_content ) ) - { - my @more_recent = grep /^backup\_incr\_user\_$user\_/, - sort @dir_content; - $more_recent = pop @more_recent; - $DEBUG and print "more recent file: $more_recent\n"; - system( -"find $path_name -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_user_$user$the_time.txt" - ); - if ( - !cat_( - "$save_path/list_incr_user_$user$the_time.txt" - ) - ) - { - system( -"rm $save_path/list_incr_user_$user$the_time.txt" - ); - } - else { - system( -"$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext -T $save_path/list_incr_user_$user$the_time.txt" - ); - push @file_list_to_send_by_ftp, -"$save_path/backup_incr_user_$user$the_time.$tar_ext"; - push @file_list_to_send_by_ftp, - "$save_path/list_incr_user_$user$the_time.txt"; - $results .= -" \nfile: $save_path/backup_incr_user_$user$the_time.$tar_ext\n"; - $results .= cat_( - "$save_path/list_incr_user_$user$the_time.txt"); - } - } - elsif ( grep /^backup\_base\_user\_$user\_/, @dir_content ) - { - my @more_recent = grep /^backup\_base\_user\_$user\_/, - sort @dir_content; - $more_recent = pop @more_recent; - $DEBUG and print "more recent file: $more_recent\n"; - system( -"find $path_name -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_user_$user$the_time.txt" - ); - if ( - !cat_( - "$save_path/list_incr_user_$user$the_time.txt" - ) - ) - { - system( -"rm $save_path/list_incr_user_$user$the_time.txt" - ); - } - else { - system( -"$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext -T $save_path/list_incr_user_$user$the_time.txt" - ); - push @file_list_to_send_by_ftp, -"$save_path/backup_incr_user_$user$the_time.$tar_ext"; - push @file_list_to_send_by_ftp, - "$save_path/list_incr_user_$user$the_time.txt"; - $results .= -"\nfile: $save_path/backup_incr_user_$user$the_time.$tar_ext\n"; - $results .= cat_( - "$save_path/list_incr_user_$user$the_time.txt"); - } - } - else { - system( -"$tar_cmd_user -f $save_path/backup_base_user_$user$the_time.$tar_ext $path_name" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_base_user_$user$the_time.$tar_ext"; - $results .= -"\nfile: $save_path/backup_base_user_$user$the_time.$tar_ext\n"; - } - } - 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" - ); - push @file_list_to_send_by_ftp, - "$save_path/backup_user_$_$the_time.$tar_ext"; - $results .= -"\nfile: $save_path/backup_user_$user$the_time.$tar_ext\n"; - } - } - } - $interactive and progress( $pbar2, 1, _("Backup Other files...") ); - $interactive - and progress( $pbar3, 0.4, _("Hard Disk Backup files...") ); - } - - if ( ( $where_net_ssh && !$daemon ) || ( $daemon && $ssh_daemon ) ) { - - #ssh_client(); - } - if ( ( $where_net_ftp && !$daemon ) || ( $daemon && $ftp_daemon ) ) { - $results .= _( "file list send by FTP : %s\n ", $_ ) - foreach @file_list_to_send_by_ftp; - $interactive and build_backup_ftp_status(); - if ( ftp_client() ) { - $results .= _( -"\n FTP connexion problem: It was not possible to send your backup files by FTP.\n" - ); - $interactive and client_ftp_pb(); - } - } - if ( ( $where_cd && !$daemon ) || ( $daemon && $cd_daemon ) ) { - build_cd(); - } - if ($send_mail) { - if ( send_mail("$results") ) { - $interactive and send_mail_pb(); - $interactive or print _(" Error during mail sending. \n"); - } - } -} - -my @list_of_rpm_to_install; - -sub require_rpm { - my $all_rpms_found = 1; - my $res; - my @file_cache = cat_("/var/log/rpmpkgs"); - @list_of_rpm_to_install = (); - - # my($pkg) = @_; - foreach my $pkg (@_) { - $res = grep /$pkg/, @file_cache; - - # $res = system("rpm -qa | grep $_"); - if ( $res == 0 ) { - $all_rpms_found = 0; - push @list_of_rpm_to_install, $pkg; - } - } - return ($all_rpms_found); -} - -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 check_list { - foreach (@_) { - my $ref = $_->[1]; - gtksignal_connect( - gtkset_active( $_->[0], ${$ref} ), - toggled => sub { invbool $ref } - ); - } -} - -sub fonction_env { - ( - $central_widget, $current_widget, $previous_widget, - $custom_help, $next_widget - ) - = @_; -} - -# sub redraw_during_check { -# my ($tmp1, $tmp2) = @_; -# gtksignal_connect(gtkset_active($tmp1, $tmp2), toggled => sub { -# # invbool \$tmp2; -# print "tmp2 bef = $tmp2\n"; -# $tmp2 = $tmp2 ? 0 : 1; -# ${$central_widget}->destroy(); -# print "tmp2 after = $tmp2\n"; -# $current_widget->(); -# return ($tmp2); -# }); -# } - -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, - _( -"These options can backup and restore all files in your /etc directory.\n" - ), - 0, - my $check_what_sys = new Gtk::CheckButton( - _("Backup your System files. ( /etc directory )") - ), - 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, group, fstab)") - ), - 0, - _( -"With this option you will be able to restore any version\n of your /etc directory." - ), - 1, - new Gtk::VBox( 0, 15 ), - ), - ); - check_list( - [ $check_what_sys, \$backup_sys ], - [ $check_what_critical, \$no_critical_sys ], - [ $check_what_versions, \$backup_sys_versions ] - ); - fonction_env( \$box_what_sys, \&advanced_what_sys, \&advanced_what, - "what" ); - $up_box->show_all(); -} - -sub advanced_what_user { - my ($previous_function) = @_, my $box_what_user; - my %check_what_user; - - all_user_list(); - gtkpack( - $advanced_box, - $box_what_user = gtkpack_( - new Gtk::VBox( 0, 15 ), - 0, - _( -"Please check all users that you want to include in 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)") - ), - ), - ); - check_list( - [ $check_what_browser, \$what_no_browser ], - [ $check_what_user_versions, \$backup_user_versions ] - ); - if ($previous_function) { - fonction_env( \$box_what_user, \&advanced_what_user, - \&$previous_function, "what", \&$previous_function ); - } - else { - fonction_env( \$box_what_user, \&advanced_what_user, \&advanced_what, - "what" ); - } - $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 - ), - ), - ); - check_list( [ $check_what_other_versions, \$backup_other_versions ] ); - fonction_env( \$box_what_other, \&advanced_what_other, \&advanced_what, - "what" ); - $up_box->show_all(); -} - -sub advanced_what_entire_sys { - my $box_what; - - my ( $pix_user_map, $pix_user_mask ) = gtkcreate_png("user"); - my ( $pix_other_map, $pix_other_mask ) = gtkcreate_png("net_u"); - my ( $pix_sys_map, $pix_sys_mask ) = gtkcreate_png("bootloader"); - - gtkpack( - $advanced_box, - $box_what = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - my $button_what_other = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - message_underdevel(); - } - ), - 1, - gtksignal_connect( - my $button_what_all = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - message_underdevel(); - } - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $button_what_other->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_sys_map, $pix_sys_mask ), - new Gtk::Label( _("Linux") ), - new Gtk::HBox( 0, 5 ) - ) - ); - $button_what_all->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_user_map, $pix_user_mask ), - new Gtk::Label( _("Windows (FAT32)") ), - new Gtk::HBox( 0, 5 ) - ) - ); - fonction_env( \$box_what, \&advanced_what_entire_sys, \&advanced_what, "" ); - $up_box->show_all(); -} - -sub advanced_what { - my $box_what; - my ( $pix_user_map, $pix_user_mask ) = gtkcreate_png("ic82-users-40"); - my ( $pix_other_map, $pix_other_mask ) = gtkcreate_png("ic82-others-40"); - my ( $pix_sys_map, $pix_sys_mask ) = gtkcreate_png("ic82-system-40"); - my ( $pix_sysp_map, $pix_sysp_mask ) = gtkcreate_png("ic82-systemeplus-40"); - - gtkpack( - $advanced_box, - $box_what = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - my $button_what_sys = new Gtk::Button(), - clicked => - sub { $box_what->destroy(); advanced_what_sys(); } - ), - 1, - gtksignal_connect( - my $button_what_user = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_what_user(); - } - ), - 1, - gtksignal_connect( - my $button_what_other = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_what_other(); - } - ), - - # 1, gtksignal_connect(my $button_what_all = new Gtk::Button(), - # clicked => sub { ${$central_widget}->destroy(); advanced_what_entire_sys(); }), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $button_what_sys->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_sys_map, $pix_sys_mask ), - new Gtk::Label( _("System") ), - new Gtk::HBox( 0, 5 ) - ) - ); - $button_what_user->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_user_map, $pix_user_mask ), - new Gtk::Label( _("Users") ), - new Gtk::HBox( 0, 5 ) - ) - ); - $button_what_other->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_other_map, $pix_other_mask ), - new Gtk::Label( _("Other") ), - new Gtk::HBox( 0, 5 ) - ) - ); - - # $button_what_all->add(gtkpack(new Gtk::HBox(0,10), - # new Gtk::Pixmap($pix_sysp_map, $pix_sysp_mask), - # new Gtk::Label(_("An Entire System")), - # new Gtk::HBox(0, 5) - # )); - - fonction_env( \$box_what, \&advanced_what, \&advanced_box, "" ); - $up_box->show_all(); -} - -sub advanced_where_net_ftp { - my ($previous_function) = @_, my $box_where_net; - - gtkpack( - $advanced_box, - $box_where_net = gtkpack_( - new Gtk::VBox( 0, 15 ), - 0, - new Gtk::HSeparator, - 0, - my $check_where_net_ftp = - new Gtk::CheckButton( _("Use FTP connection to backup") ), - 0, - new Gtk::HSeparator, - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please enter the host name or IP.") ), - $where_net_ftp - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - my $host_name_entry = new Gtk::Entry(), - $where_net_ftp - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter the directory to\n put the backup on this host." - ) - ), - $where_net_ftp - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - my $host_path_entry = new Gtk::Entry(), - $where_net_ftp - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please enter your login") ), - $where_net_ftp - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - my $login_user_entry = new Gtk::Entry(), - $where_net_ftp - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please enter your password") ), - $where_net_ftp - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - my $passwd_user_entry = new Gtk::Entry(), - $where_net_ftp - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - my $check_remember_pass = - new Gtk::CheckButton( _("Remember this password") ), - $where_net_ftp - ), - ), - ), - ); - $passwd_user_entry->set_visibility(0); - $passwd_user_entry->set_text($passwd_user); - $passwd_user_entry->signal_connect( 'changed', - sub { $passwd_user = $passwd_user_entry->get_text() } ); - $host_path_entry->set_text($host_path); - $host_name_entry->set_text($host_name); - $login_user_entry->set_text($login_user); - $host_name_entry->signal_connect( 'changed', - sub { $host_name = $host_name_entry->get_text() } ); - $host_path_entry->signal_connect( 'changed', - sub { $host_path = $host_path_entry->get_text() } ); - $login_user_entry->signal_connect( 'changed', - sub { $login_user = $login_user_entry->get_text() } ); - check_list( [ $check_remember_pass, \$remember_pass ] ); - gtksignal_connect( - gtkset_active( $check_where_net_ftp, $where_net_ftp ), - toggled => sub { - invbool \$where_net_ftp; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - if ($previous_function) { - fonction_env( \$box_where_net, \&advanced_where_net_ftp, - \&$previous_function, "ftp" ); - } - else { - fonction_env( \$box_where_net, \&advanced_where_net_ftp, - \&advanced_where, "ftp" ); - } - $up_box->show_all(); -} - -sub advanced_where_net_ssh { - my ($previous_function) = @_, my $box_where_ssh; - - gtkpack( - $advanced_box, - $box_where_ssh = gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 15 ), - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - new Gtk::Button("rsync"), - clicked => sub { - ${$central_widget}->destroy(); - message_underdevel(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button("WebDav"), - clicked => sub { - ${$central_widget}->destroy(); - message_underdevel(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button("scp"), - clicked => sub { - ${$central_widget}->destroy(); - message_underdevel(); - } - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - new Gtk::VBox( 0, 15 ), - ), - ), - ); - - # test si x11 - #print system("xterm -fn 7x14 -bg black -fg white -e ssh-keygen -f ~/.ssh/identity-backup && scp") . "\n"; - - if ($previous_function) { - fonction_env( \$box_where_ssh, \&advanced_where_net_ssh, - \&$previous_function, "ssh" ); - } - else { - fonction_env( \$box_where_ssh, \&advanced_where_net_ssh, - \&advanced_where, "ssh" ); - } - $up_box->show_all(); -} - -sub advanced_where_net { - my ($previous_function) = @_, my $box_where_net; - - gtkpack( - $advanced_box, - $box_where_net = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - gtksignal_connect( - new Gtk::Button( _("FTP Connection") ), - clicked => sub { - $box_where_net->destroy(); - if ($previous_function) { - advanced_where_net_ftp( \&$previous_function ); - } - else { - advanced_where_net_ftp(); - } - } - ), - if_( - 0, - 1, - gtksignal_connect( - new Gtk::Button( _("Secure Connection") ), - clicked => sub { - $box_where_net->destroy(); - if ($previous_function) { - advanced_where_net_ssh( \&$previous_function ); - } - else { - advanced_where_net_ssh(); - } - } - ) - ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - new Gtk::VBox( 0, 10 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - if ($previous_function) { - fonction_env( \$box_where_net, \&advanced_where_net, - \&$previous_function, "remote" ); - } - else { - fonction_env( - \$box_where_net, \&advanced_where_net, - \&advanced_where, "remote" - ); - } - $up_box->show_all(); -} - -sub advanced_where_cd { - my ($previous_function) = @_, my $box_where_cd; - my $combo_where_cd_time = new Gtk::Combo(); - $combo_where_cd_time->set_popdown_strings( "650", "700", "750", "800" ); - - gtkpack( - $advanced_box, - $box_where_cd = gtkpack_( - new Gtk::VBox( 0, 6 ), - 0, - my $check_where_cd = - new Gtk::CheckButton( _("Use CD/DVDROM to backup") ), - 0, - new Gtk::HSeparator, - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please choose your CD space") ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - gtkset_usize( $combo_where_cd_time, 200, 20 ), $where_cd - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _("Please check if you are using CDRW media") - ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - my $check_cdrw = new Gtk::CheckButton(), $where_cd - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _("Please check if you want to erase your CDRW before") - ), - $cdrw && $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - my $check_cdrw_erase = new Gtk::CheckButton(), - $cdrw && $where_cd - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please check if you want to include\n install boot on your CD." - ) - ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - my $check_cd_with_install_boot = new Gtk::CheckButton(), - $where_cd - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter your CD Writer device name\n ex: 0,1,0" - ) - ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_usize( - gtkset_sensitive( - $cd_devive_entry = new Gtk::Entry(), $where_cd - ), - 200, 20 - ), - ), - ), - ); - - foreach ( [ $check_cdrw_erase, \$cdrw_erase ], - [ $check_cd_with_install_boot, \$cd_with_install_boot ] ) - { - my $ref = $_->[1]; - gtksignal_connect( gtkset_active( $_->[0], ${$ref} ), - toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } ); - } - gtksignal_connect( - gtkset_active( $check_where_cd, $where_cd ), - toggled => sub { - $where_cd = $where_cd ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - gtksignal_connect( - gtkset_active( $check_cdrw, $cdrw ), - toggled => sub { - $cdrw = $cdrw ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - $cd_devive_entry->set_text($cd_devive); - $cd_devive_entry->signal_connect( 'changed', - sub { $cd_devive = $cd_devive_entry->get_text(); } ); - $combo_where_cd_time->entry->set_text($cd_time); - $combo_where_cd_time->entry->signal_connect( 'changed', - sub { $cd_time = $combo_where_cd_time->entry->get_text() } ); - - if ($previous_function) { - fonction_env( \$box_where_cd, \&advanced_where_cd, \&$previous_function, - "" ); - } - else { - fonction_env( \$box_where_cd, \&advanced_where_cd, \&advanced_where, - "" ); - } - $up_box->show_all(); -} - -sub advanced_where_tape { - my ($previous_function) = @_, my $box_where_tape; - my $button; - my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0; - my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("filedialog"); - - gtkpack( - $advanced_box, - $box_where_tape = gtkpack_( - new Gtk::VBox( 0, 6 ), - 0, - new Gtk::HSeparator, - 0, - my $check_where_tape = - new Gtk::CheckButton( _("Use tape to backup") ), - 0, - new Gtk::HSeparator, - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _("Please enter the device name to use for backup") - ), - $where_tape - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - my $save_device_tape_entry = new Gtk::Entry(), - $where_tape - ), - 200, 20 - ), - ), - 0, - new Gtk::VBox( 0, 6 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter the maximum size\n allowed for Drakbackup" - ) - ), - $where_tape - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - my $spinner = new Gtk::SpinButton( $adj, 0, 0 ), - $where_tape - ), - 200, 20 - ), - ), - 0, - gtkpack_( new Gtk::HBox( 0, 10 ), ), - ), - ); - gtksignal_connect( - gtkset_active( $check_where_tape, $where_tape ), - toggled => sub { - $where_tape = $where_tape ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - $save_device_tape_entry->set_text($save_device_tape); - $save_device_tape_entry->signal_connect( 'changed', - sub { $save_device_tape = $save_device_tape_entry->get_text() } ); - if ($previous_function) { - fonction_env( \$box_where_tape, \&advanced_where_tape, - \&$previous_function, "" ); - } - else { - fonction_env( \$box_where_tape, \&advanced_where_tape, \&advanced_where, - "" ); - } - $up_box->show_all(); -} - -sub advanced_where_hd { - my ($previous_function) = @_, my $box_where_hd; - my $button; - my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0; - my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("ic82-dossier-32"); - - gtkpack( - $advanced_box, - $box_where_hd = gtkpack_( - new Gtk::VBox( 0, 6 ), - 0, new Gtk::HSeparator, - - # 0, my $check_where_hd = new Gtk::CheckButton( _("Use Hard Disk to backup") ), - # 0, new Gtk::HSeparator, - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please enter the directory to save:") ), - $where_hd - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - $save_path_entry = new Gtk::Entry(), $where_hd - ), - 152, 20 - ), - 0, - gtkset_sensitive( - $button = gtksignal_connect( - new Gtk::Button(), - clicked => sub { - filedialog_where_hd(); - } - ), - $where_hd - ), - ), - 0, - new Gtk::VBox( 0, 6 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter the maximum size\n allowed for Drakbackup" - ) - ), - $where_hd - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - my $spinner = new Gtk::SpinButton( $adj, 0, 0 ), - $where_hd - ), - 200, - 20 - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_sensitive( - my $check_where_hd_quota = - new Gtk::CheckButton( _("Use quota for backup files.") ), - $where_hd - ), - 0, - new Gtk::VBox( 0, 6 ), - ), - ), - ); - foreach ( [ $check_where_hd_quota, \$hd_quota ] ) { - my $ref = $_->[1]; - gtksignal_connect( gtkset_active( $_->[0], ${$ref} ), - toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } ); - } - - # gtksignal_connect(gtkset_active($check_where_hd, $where_hd), toggled => sub { - # $where_hd = $where_hd ? 0 : 1; - # $where_hd = 1; - # ${$central_widget}->destroy(); - # $current_widget->(); - # }); - $button->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_fs_map, $pix_fs_mask ) - ) - ); - $save_path_entry->set_text($save_path); - $save_path_entry->signal_connect( 'changed', - sub { $save_path = $save_path_entry->get_text() } ); - if ($previous_function) { - fonction_env( \$box_where_hd, \&advanced_where_hd, \&$previous_function, - "" ); - } - else { - fonction_env( \$box_where_hd, \&advanced_where_hd, \&advanced_where, - "" ); - } - $up_box->show_all(); -} - -sub advanced_where { - my $box_where; - my ( $pix_net_map, $pix_net_mask ) = gtkcreate_png("ic82-network-40"); - my ( $pix_cd_map, $pix_cd_mask ) = gtkcreate_png("ic82-CD-40"); - my ( $pix_hd_map, $pix_hd_mask ) = gtkcreate_png("ic82-discdurwhat-40"); - my ( $pix_tape_map, $pix_tape_mask ) = gtkcreate_png("ic82-tape-40"); - - gtkpack( - $advanced_box, - $box_where = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - my $button_where_net = new Gtk::Button(), - clicked => sub { - - # $box_where->destroy(); advanced_where_net(); }), - $box_where->destroy(); - advanced_where_net_ftp(); - } - ), - - # 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub { - # ${$central_widget}->destroy(); - # if (require_rpm("mkisofs", "cdrecord", "toto")) { advanced_where_cd(); } - # else { - # print "have to install @list_of_rpm_to_install...\n"; - # ${$central_widget}->destroy(); - # install_rpm(\&advanced_where); - # } - # }), - 1, - gtksignal_connect( - my $button_where_hd = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_where_hd(); - } - ), - - # 1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub { - # ${$central_widget}->destroy(); message_underdevel();}), #advanced_where_tape(); }), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $button_where_net->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_net_map, $pix_net_mask ), - new Gtk::Label( _("Network") ), - new Gtk::HBox( 0, 5 ) - ) - ); - - # $button_where_cd->add(gtkpack(new Gtk::HBox(0,10), - # new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), - # new Gtk::Label(_("CDROM / DVDROM")), - # new Gtk::HBox(0, 5) - # )); - $button_where_hd->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_hd_map, $pix_hd_mask ), - new Gtk::Label( _("HardDrive / NFS") ), - new Gtk::HBox( 0, 5 ) - ) - ); - - # $button_where_tape->add(gtkpack(new Gtk::HBox(0,10), - # new Gtk::Pixmap($pix_tape_map, $pix_tape_mask), - # new Gtk::Label(_("Tape")), - # new Gtk::HBox(0, 5) - # )); - fonction_env( \$box_where, \&advanced_where, \&advanced_box, "" ); - $up_box->show_all(); -} - -sub advanced_when { - my $box_when; - my $check_where_cd_daemon; - my $check_where_hd_daemon; - my $check_where_ssh_daemon; - my $check_where_ftp_daemon; - my ( $pix_time_map, $pix_time_mask ) = gtkcreate_png("ic82-when-40"); - my $combo_when_space = new Gtk::Combo(); - my %trans = ( - _("hourly") => 'hourly', - _("daily") => 'daily', - _("weekly") => 'weekly', - _("monthly") => 'monthly' - ); - my %trans2 = ( - 'hourly' => _("hourly"), - 'daily' => _("daily"), - 'weekly' => _("weekly"), - 'monthly' => _("monthly") - ); - $combo_when_space->set_popdown_strings( _("hourly"), _("daily"), - _("weekly"), _("monthly") ); - - gtkpack( - $advanced_box, - $box_when = gtkpack_( - new Gtk::VBox( 0, 15 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 1, - new Gtk::HBox( 0, 10 ), - 1, - new Gtk::Pixmap( $pix_time_map, $pix_time_mask ), - 0, - my $check_when_daemon = new Gtk::CheckButton( _("Use daemon") ), - 1, - new Gtk::HBox( 0, 10 ), - ), - 0, - new Gtk::HSeparator, - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please choose the time \ninterval between each backup" - ) - ), - $backup_daemon - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( $combo_when_space, $backup_daemon ), - ), - 0, - new Gtk::HBox( 0, 10 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please choose the\nmedia for backup.") ), - $backup_daemon - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkpack_( - new Gtk::VBox( 0, 10 ), - - # 0, gtkset_sensitive($check_where_cd_daemon = new Gtk::CheckButton(_("Use CD/DVDROM with daemon")), $backup_daemon), - 0, - gtkset_sensitive( - $check_where_hd_daemon = - new Gtk::CheckButton( - _("Use Hard Drive with daemon") ), - $backup_daemon - ), - - # 0, gtkset_sensitive($check_where_ssh_daemon = new Gtk::CheckButton( _("Use SSH with daemon")), $backup_daemon), - 0, - gtkset_sensitive( - $check_where_ftp_daemon = - new Gtk::CheckButton( _("Use FTP with daemon") ), - $backup_daemon - ), - ), - ), - 0, - new Gtk::HSeparator, - 1, - gtkset_sensitive( - new Gtk::Label( - _( -"Please be sure that the cron daemon is included in your services." - ) - ), - $backup_daemon - ), - ), - ); - - check_list( - [ $check_where_hd_daemon, \$hd_daemon ], - [ $check_where_ftp_daemon, \$ftp_daemon ] - ); - - # check_list([$check_where_hd_daemon, \$hd_daemon], [$check_where_ftp_daemon, \$ftp_daemon], - # [$check_where_cd_daemon, \$cd_daemon],[$check_where_ssh_daemon, \$ssh_daemon] ); - gtksignal_connect( - gtkset_active( $check_when_daemon, $backup_daemon ), - toggled => sub { - $backup_daemon = $backup_daemon ? 0 : 1; - ${$central_widget}->destroy(); - advanced_when(); - } - ); - $combo_when_space->entry->set_text( $trans2{$when_space} ); - $combo_when_space->entry->signal_connect( 'changed', - sub { $when_space = $trans{ $combo_when_space->entry->get_text() }; } ); - fonction_env( \$box_when, \&advanced_when, \&advanced_box, "" ); - $up_box->show_all(); -} - -sub advanced_options { - my $box_options; - my ( $pix_options_map, $pix_options_mask ) = - gtkcreate_png("ic82-moreoption-40"); - - gtkpack( - $advanced_box, - $box_options = gtkpack_( - new Gtk::VBox( 0, 15 ), - - # 0, gtkpack_(new Gtk::HBox(0,10), - # 1, new Gtk::VBox(0,10), - # 1, new Gtk::Pixmap($pix_options_map, $pix_options_mask), - # 1, _("Please choose correct options to backup."), - # 1, new Gtk::VBox(0,10), - # ), - # 0, new Gtk::HSeparator, - # 0, gtkpack_(new Gtk::VBox(0,10), - # 0, gtkset_sensitive(my $check_tar_bz2 = new Gtk::CheckButton( _("Use Tar and bzip2 (very slow) [Please be careful if you\n (un)select this option, as all your old backups will be deleted.]") ), 0), - # 0, gtkset_sensitive(my $check_backupignore = new Gtk::CheckButton( _("Use .backupignore files")), 0), - 0, - new Gtk::VBox( 0, 10 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - my $check_mail = new Gtk::CheckButton( - _("Send mail report after each backup to :") - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - my $mail_entry = new Gtk::Entry(), - ), - - # ), - ), - ); - check_list( [ $check_mail, \$send_mail ] ); - - # check_list([$check_mail, \$send_mail], [$check_tar_bz2, \$comp_mode], [$check_backupignore, \$backupignore]); - $mail_entry->set_text($user_mail); - $mail_entry->signal_connect( 'changed', - sub { $user_mail = $mail_entry->get_text() } ); - fonction_env( \$box_options, \&advanced_options, \&advanced_box, - "options" ); - $up_box->show_all(); -} - -sub advanced_box { - my $box_adv; - my ( $pix_hd_map, $pix_hd_mask ) = gtkcreate_png("ic82-discdurwhat-40"); - my ( $pix_time_map, $pix_time_mask ) = gtkcreate_png("ic82-when-40"); - my ( $pix_net_map, $pix_net_mask ) = gtkcreate_png("ic82-where-40"); - my ( $pix_options_map, $pix_options_mask ) = - gtkcreate_png("ic82-moreoption-40"); - - gtkpack( - $advanced_box, - $box_adv = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - my $button_what = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_what(); - } - ), - 1, - gtksignal_connect( - my $button_where = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_where(); - } - ), - 1, - gtksignal_connect( - my $button_when = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_when(); - } - ), - 1, - gtksignal_connect( - my $button_options = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - advanced_options(); - } - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $button_what->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_hd_map, $pix_hd_mask ), - new Gtk::Label( _("What") ), - new Gtk::HBox( 0, 5 ) - ) - ); - $button_where->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_net_map, $pix_net_mask ), - new Gtk::Label( _("Where") ), - new Gtk::HBox( 0, 5 ) - ) - ); - $button_when->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_time_map, $pix_time_mask ), - new Gtk::Label( _("When") ), - new Gtk::HBox( 0, 5 ) - ) - ); - $button_options->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_options_map, $pix_options_mask ), - new Gtk::Label( _("More Options") ), - new Gtk::HBox( 0, 5 ) - ) - ); - fonction_env( \$box_adv, \&advanced_box, \&interactive_mode_box, "" ); - $up_box->show_all(); -} - -################################################ WIZARD ################################################ - -sub wizard_step3 { - my $box2; - my $text = new Gtk::Text( undef, undef ); - system_state(); - gtktext_insert( $text, $system_state ); - button_box_restore_main(); - - gtkpack( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 10 ), 0, - _("Drakbackup Configuration"), 1, - createScrolledWindow($text), - ), - ), - ); - fonction_env( \$box2, \&wizard_step3, \&wizard_step2, "" ); - button_box_wizard_end(); - $up_box->show_all(); -} - -sub wizard_step2 { - my $box2; - - gtkpack( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - _("Please choose where you want to backup"), - 0, - gtkpack_( - new Gtk::HBox( 0, 15 ), - 0, - my $check_wizard_hd = - new Gtk::CheckButton( _("on Hard Drive") ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - gtksignal_connect( - new Gtk::Button( _("Configure") ), - clicked => sub { - ${$central_widget}->destroy(); - to_ok(); - advanced_where_hd( \&wizard_step2 ); - to_normal(); - } - ), - $where_hd - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 15 ), - 0, - my $check_wizard_net = - new Gtk::CheckButton( _("across Network") ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - gtksignal_connect( - new Gtk::Button( _("Configure") ), - clicked => sub { - ${$central_widget}->destroy(); - to_ok(); - advanced_where_net( \&wizard_step2 ); - to_normal(); - } - ), - $where_net - ), - ), - - # 0, gtkpack_(new Gtk::HBox(0, 15), - # 0, my $check_wizard_cd = new Gtk::CheckButton(_("on CDROM")), - # 1, new Gtk::VBox(0, 5), - # 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure")), - # clicked => sub { - # ${$central_widget}->destroy(); - # advanced_where_cd(\&wizard_step2); - # }), $where_cd ), - # ), - # 0, gtkpack_(new Gtk::HBox(0, 15), - # 0, my $check_wizard_tape = new Gtk::CheckButton(_("on Tape Device")), - # 1, new Gtk::VBox(0, 5), - # 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure")), - # clicked => sub { - # ${$central_widget}->destroy(); - # advanced_where_tape(\&wizard_step2); - # }), $where_tape), - # ), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $where_net = $where_net_ssh || $where_net_ftp; - foreach ( - [ $check_wizard_hd, \$where_hd ], - - # [$check_wizard_cd, \$where_cd], - # [$check_wizard_tape, \$where_tape], - [ $check_wizard_net, \$where_net ] - ) - { - my $ref = $_->[1]; - gtksignal_connect( - gtkset_active( $_->[0], ${$ref} ), - toggled => sub { - ${$ref} = ${$ref} ? 0 : 1; - $where_hd = 1; - if ( !$where_hd && !$where_cd && !$where_net ) { - $next_widget = \&message_noselect_box; - } - else { $next_widget = \&wizard_step3; } - if ( !$where_net ) { $where_net_ssh = 0; $where_net_ftp = 0; } - else { $where_net_ftp = 1; } - ${$central_widget}->destroy(); - wizard_step2(); - } - ); - } - if ( !$where_hd && !$where_cd && !$where_net ) { - fonction_env( \$box2, \&wizard_step2, \&wizard, "", - \&message_noselect_box ); - } - else { - fonction_env( \$box2, \&wizard_step2, \&wizard, "", \&wizard_step3 ); - } - button_box_wizard(); - $up_box->show_all(); -} - -sub wizard { - my $box2; - - gtkpack( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - _("Please choose what you want to backup"), - 0, - my $check_wizard_sys = - new Gtk::CheckButton( _("Backup system") ), - 0, - my $check_wizard_user = - new Gtk::CheckButton( _("Backup Users") ), - 0, - gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Select user manually") ), - clicked => sub { - ${$central_widget}->destroy(); - advanced_what_user( \&wizard ); - } - ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - foreach ( - [ $check_wizard_sys, \$backup_sys ], - [ $check_wizard_user, \$backup_user ] - ) - { - my $ref = $_->[1]; - gtksignal_connect( - gtkset_active( $_->[0], ${$ref} ), - toggled => sub { - ${$ref} = ${$ref} ? 0 : 1; - if ( $backup_sys || $backup_user && @user_list ) { - $next_widget = \&wizard_step2; - } - else { $next_widget = \&message_noselect_what_box; } - } - ); - } - if ( $backup_sys || $backup_user && @user_list ) { - fonction_env( \$box2, \&wizard, \&interactive_mode_box, "", - \&wizard_step2 ); - } - else { - fonction_env( \$box2, \&wizard, \&interactive_mode_box, "", - \&message_noselect_what_box ); - } - button_box_wizard(); - $up_box->show_all(); -} - -################################################ RESTORE ################################################ - -sub find_backup_to_restore { - - # fixme: - # faire test existance cd - # faire reponse si non existance de $path_to_find_restore - my @list_backup = (); - my @list_backup_tmp2 = (); - my $to_put; - @sys_backuped = (); - my @list_backup_tmp; - my @user_backuped_tmp; - - @user_backuped = (); - -d $path_to_find_restore and @list_backup_tmp2 = all($path_to_find_restore); - foreach (@list_backup_tmp2) { - s/\_base//gi; - s/\_incr//gi; - push @list_backup, $_; - } - if ( grep /^backup_other/, @list_backup ) { $other_backuped = 1; } - if ( grep /^backup_sys/, @list_backup ) { $sys_backuped = 1; } - foreach ( grep /^backup_sys_/, @list_backup ) { - chomp; - s/^backup_sys_//gi; - s/.tar.gz$//gi; - s/.tar.bz2$//gi; - my ( $date, $heure ) = /^(.*)_([^_]*)$/; - my $year = substr( $date, 0, 4 ); - my $month = substr( $date, 4, 2 ); - my $day = substr( $date, 6, 2 ); - my $hour = substr( $heure, 0, 2 ); - my $min = substr( $heure, 2, 2 ); - $to_put = "$day/$month/$year $hour:$min $_"; - push @sys_backuped, $to_put; - } - $restore_step_sys_date = $to_put; - foreach ( grep /^backup_user_/, @list_backup ) { - chomp; - s/^backup_user_//gi; - s/.tar.gz$//gi; - s/.tar.bz2$//gi; - my ( $nom, $date, $heure ) = /^(.*)_([^_]*)_([^_]*)$/; - my $year = substr( $date, 0, 4 ); - my $month = substr( $date, 4, 2 ); - my $day = substr( $date, 6, 2 ); - my $hour = substr( $heure, 0, 2 ); - my $min = substr( $heure, 2, 2 ); - - # my $to_put = " $nom, (date: $date, hour: $heure)"; - $to_put = - "$_ user: $nom, date: $day/$month/$year, hour: $hour:$min"; - push @user_backuped, $to_put; - grep ( /^$nom$/, @user_list_backuped ) - or push @user_list_backuped, $nom; - } -} - -sub system_state { - $system_state = (); - - if ($cfg_file_exist) { - $system_state .= _("\nBackup Sources: \n"); - $backup_sys and $system_state .= _("\n- System Files:\n"); - $backup_sys and $system_state .= "\t\t$_\n" foreach @sys_files; - $backup_user and $system_state .= _("\n- User Files:\n"); - $backup_user and $system_state .= "\t\t$_\n" foreach @user_list; - @list_other and $system_state .= _("\n- Other Files:\n"); - @list_other and $system_state .= "\t\t$_\n" foreach @list_other; - $where_hd - and $system_state .= - _( "\n- Save on Hard drive on path : %s\n", $save_path ); - $where_net_ftp - and $system_state .= - _( "\n- Save on FTP on host : %s\n", $host_name ); - $where_net_ftp - and $system_state .= _( "\t\t user name: %s\n\t\t on path: %s \n", - $login_user, $host_path ); - $system_state .= _("\n- Options:\n"); - $backup_sys or $system_state .= _("\tDo not include System Files\n"); - if ($comp_mode) { $system_state .= _("\tBackups use tar and bzip2\n"); } - else { $system_state .= _("\tBackups use tar and gzip\n"); } - $system_state .= _( "\n- Daemon (%s) include :\n", $when_space ); - $hd_daemon and $system_state .= _("\t-Hard drive.\n"); - $cd_daemon and $system_state .= _("\t-CDROM.\n"); - $ftp_daemon and $system_state .= _("\t-Network by FTP.\n"); - $ssh_daemon and $system_state .= _("\t-Network by SSH.\n"); - } - else { - $system_state = - _("No configuration, please click Wizard or Advanced.\n"); - } -} - -sub restore_state { - my @tmp = split ( ' ', $restore_step_sys_date ); - $restore_state = _("List of data to restore:\n\n"); - if ($restore_sys) { - $restore_state .= "- Restore System Files.\n"; - $restore_state .= " - from date: $tmp[0] $tmp[1]\n"; - } - if ($restore_user) { - $restore_state .= "- Restore User Files: \n"; - $restore_state .= "\t\t$_\n" foreach @user_list_to_restore2; - push @user_list_to_restore, - ( split ( ',', $_ ) )[0] foreach @user_list_to_restore2; - } - if ($restore_other) { - $restore_state .= "- Restore Other Files: \n"; - -f "$path_to_find_restore/list_other" - and $restore_state .= "\t\t$_\n" foreach - split ( "\n", cat_("$path_to_find_restore/list_other") ); - } - if ($restore_other_path) { - $restore_state .= "- Path to Restore: $restore_path \n"; - } -} - -sub select_most_recent_selected_of { - my ($user_name) = @_; - my @list_tmp2; - my @tmp = sort @user_list_to_restore2; - foreach ( grep /$user_name\_/, sort @tmp ) { push @list_tmp2, $_; } - return pop @list_tmp2; -} - -sub select_user_data_to_restore { - my $var_eq = 1; - my @list_backup = (); - my @list_tmp = (); - my @list_tmp2 = (); - @user_list_to_restore = (); - - -d $path_to_find_restore - and my @list_backup_tmp2 = grep /^backup/, all($path_to_find_restore); - @list_tmp2 = @list_backup_tmp2; - foreach (@list_backup_tmp2) { - s/\_base//gi; - s/\_incr//gi; - push @list_backup, $_; - } - foreach my $var_tmp (@user_list_backuped) { - $var_eq = 1; - my $more_recent = - ( split ( ' ', select_most_recent_selected_of($var_tmp) ) )[0]; - foreach ( grep /^backup\_user\_$var_tmp\_/, sort @list_backup ) { - s/.tar.gz//gi; - s/.tar.bz2//gi; - if ($more_recent) { - if ( $_ =~ /$more_recent/ ) { - push @list_tmp, $_; - $var_eq = 0; - } - else { $var_eq and push @list_tmp, $_; } - } - } - } - foreach my $var_to_restore (@list_tmp) { - $var_to_restore =~ s/backup_//gi; - foreach my $var_exist ( sort @list_tmp2 ) { - if ( $var_exist =~ /$var_to_restore/ ) { - push @user_list_to_restore, $var_exist; - } - } - } - $DEBUG - and print "(incremental restore) real user list to restore : $_ \n" - foreach (@user_list_to_restore); -} - -sub select_sys_data_to_restore { - my $var_eq = 1; - my @list_tmp = (); - @sys_list_to_restore = (); - - -d $path_to_find_restore - and @list_tmp = grep /^backup/, all($path_to_find_restore); - my @more_recent = split ( ' ', $restore_step_sys_date ); - my $more_recent = pop @more_recent; - foreach my $var_exist ( grep /\_sys\_/, sort @list_tmp ) { - if ( $var_exist =~ /$more_recent/ ) { - push @sys_list_to_restore, $var_exist; - $var_eq = 0; - } - else { $var_eq and push @sys_list_to_restore, $var_exist; } - } - $DEBUG - and print "sys list to restore: $_\n " foreach (@sys_list_to_restore); -} - -sub valid_backup_test { - my (@files_list) = @_; - @files_corrupted = (); - my $is_corrupted = 0; - foreach (@files_list) { - if ( system("gzip -l $path_to_find_restore/$_") > 1 ) { - push @files_corrupted, $_; - $is_corrupted = -1; - } - } - return $is_corrupted; -} - -sub restore_aff_backup_problems { - my $do_restore; - my $button_restore; - my $text = new Gtk::Text( undef, undef ); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - my $restore_pbs_state = _("List of data corrupted:\n\n"); - $restore_pbs_state .= "\t\t$_\n" foreach @files_corrupted; - $restore_pbs_state .= _("Please uncheck or remove it on next time."); - gtktext_insert( $text, $restore_pbs_state ); - button_box_restore_main(); - - gtkpack( - $advanced_box, - $do_restore = gtkpack_( - new Gtk::VBox( 0, 10 ), - 0, - new Gtk::VBox( 0, 10 ), - 1, - gtkpack_( - new Gtk::HBox( 0, 15 ), 1, - new Gtk::VBox( 0, 5 ), 0, - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), 0, - _("Backup files are corrupted"), 1, - new Gtk::VBox( 0, 5 ), - ), - 0, - new Gtk::VBox( 0, 10 ), - 1, - createScrolledWindow($text), - ), - ); - button_box_restore_pbs_end(); - fonction_env( \$do_restore, \&restore_aff_backup_problems, - "", "restore_pbs" ); - $up_box->show_all(); -} - -sub restore_aff_result { - my $do_restore; - my $text = new Gtk::Text( undef, undef ); - gtktext_insert( $text, $restore_state ); - button_box_restore_main(); - - gtkpack( - $advanced_box, - $do_restore = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 0, - _(" All your selectionned data have been "), - 0, - _( " Successfuly Restored on %s ", $restore_path ), - 1, - new Gtk::VBox( 0, 10 ), - ), - ); - button_box_build_backup_end(); - $central_widget = \$do_restore; - $up_box->show_all(); - -} - -sub return_path { - my ($username) = @_; - my $usr; - my $home_dir; - my $passwdfile = "/etc/passwd"; - open( PASSWD, $passwdfile ) or exit 1; - while ( defined( my $line = <PASSWD> ) ) { - chomp($line); - ( $usr, $home_dir ) = ( split ( /:/, $line ) )[ 0, 5 ]; - last if ( $usr eq $username ); - } - close(PASSWD); - return $home_dir; -} - -sub restore_backend { - my $untar_cmd; - my $exist_problem = 0; - my $user_dir; - if ( grep /tar.gz$/, all($path_to_find_restore) ) { $untar_cmd = 0; } - else { $untar_cmd = 1; } - if ($restore_user) { - if ($backup_user_versions) { - select_user_data_to_restore(); - if ( valid_backup_test(@user_list_to_restore) == -1 ) { - $exist_problem = 1; - restore_aff_backup_problems(); - } - else { - foreach (@user_list_to_restore) { - my ( $tnom, $username, $theure2 ) = - /^(\w+\_\w+\_user_)(.*)_(\d+\_\d+.*)$/; - $DEBUG - and print -"user name to restore: $username, user directory: $user_dir\n"; - if ($remove_user_before_restore) { - $user_dir = return_path($username); - -d $user_dir and rm_rf($user_dir); - } - $untar_cmd - or system( - " tar xfz $path_to_find_restore/$_ -C $restore_path"); - $untar_cmd - and system( -"/usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path " - ); - } - } - } - } - if ($restore_sys) { - if ($backup_sys_versions) { - select_sys_data_to_restore(); - if ( valid_backup_test(@sys_list_to_restore) == -1 ) { - $exist_problem = 1; - restore_aff_backup_problems(); - } - else { - $untar_cmd - or - system("tar xfz $path_to_find_restore/$_ -C $restore_path ") - foreach @sys_list_to_restore; - $untar_cmd - and system( -"/usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path " - ) foreach @sys_list_to_restore; - } - } - else { - $untar_cmd - or system( -"tar xfz $path_to_find_restore/backup_sys.tar.gz -C $restore_path " - ); - $untar_cmd - and system( -"/usr/bin/bzip2 -cd $path_to_find_restore/backup_sys.tar.bz2 | tar xf -C $restore_path " - ); - } - } - if ($restore_other) { - $untar_cmd - or system( -"tar xfz $path_to_find_restore/backup_other.tar.gz -C $restore_path " - ); - $untar_cmd - and system( -"/usr/bin/bzip2 -cd $path_to_find_restore/backup_other.tar.bz2 | tar xf -C $restore_path " - ); - } - $exist_problem or restore_aff_result(); -} - -sub restore_do { - if ($backup_bef_restore) { - if ($restore_sys) { $backup_sys = 1; } - else { $backup_sys = 0; } - if ($restore_user) { - $backup_user = 1; - @user_list = @user_list_to_restore; - } - else { $backup_user = 0; } - build_backup_status(); - read_conf_file(); - build_backup_files(); - $table->destroy(); - } - restore_do2(); -} - -sub restore_do2 { - my $do_restore; - my $button_restore; - my $text = new Gtk::Text( undef, undef ); - restore_state(); - gtktext_insert( $text, $restore_state ); - button_box_restore_main(); - - gtkpack( - $advanced_box, - $do_restore = gtkpack_( - new Gtk::VBox( 0, 10 ), 0, - _(" Restore Configuration "), 1, - createScrolledWindow($text), - ), - ); - button_box_restore_end(); - fonction_env( \$do_restore, \&restore_do2, \&restore_box, "restore" ); - $up_box->show_all(); -} - -sub restore_step_other { - my $retore_step_other; - my $text = new Gtk::Text( undef, undef ); - my $other_rest = cat_("$path_to_find_restore/list_other"); - gtktext_insert( $text, $other_rest ); - gtkpack( - $advanced_box, - $retore_step_other = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - createScrolledWindow($text), - 0, - my $check_restore_other_sure = - new Gtk::CheckButton( _("OK to restore the other files.") ), - 1, - new Gtk::VBox( 0, 10 ), - ), - ); - check_list( [ $check_restore_other_sure, \$restore_other ] ); - fonction_env( \$retore_step_other, \&restore_step_other, \&restore_step2, - "restore", \&restore_do ); - $up_box->show_all(); -} - -my %check_user_to_restore; - -sub restore_step_user { - my $retore_step_user; - my @tmp_list = sort @user_backuped; - @user_backuped = @tmp_list; - - gtkpack( - $advanced_box, - $retore_step_user = gtkpack_( - new Gtk::VBox( 0, 10 ), - 0, - new Gtk::VBox( 0, 10 ), - 0, - _( -"User list to restore (only the most recent date per user is important)" - ), - 1, - createScrolledWindow( - gtkpack__( - new Gtk::VBox( 0, 0 ), - map { - my $name; - my $var2; - my $name_complet = $_; - $name = ( split ( ' ', $name_complet ) )[0]; - my @user_list_tmp = (); - - my $b = new Gtk::CheckButton($name_complet); - if ( grep $name_complet, @user_list_to_restore2 ) { - gtkset_active( $b, 1 ); - $check_user_to_restore{$name_complet}[1] = 1; - } - else { - gtkset_active( $b, 0 ); - $check_user_to_restore{$name_complet}[1] = 0; - } - $b->signal_connect( - toggled => sub { - if ( !$check_user_to_restore{$name_complet}[1] ) - { - $check_user_to_restore{$name_complet}[1] = - 1; - if ( - !grep ( /$name/, - @user_list_to_restore2 ) ) - { - push @user_list_to_restore2, - $name_complet; - } - } - else { - $check_user_to_restore{$name_complet}[1] = - 0; - foreach (@user_list_to_restore2) { - $var2 = ( split ( ' ', $_ ) )[0]; - if ( $name ne $var2 ) { - push @user_list_tmp, $_; - } - } - @user_list_to_restore2 = @user_list_tmp; - } - } - ); - $b - } (@user_backuped) - ), - ), - ), - ); - if ($restore_other) { - fonction_env( \$retore_step_user, \&restore_step_user, "", "restore", - \&restore_step_other ); - } - else { - fonction_env( \$retore_step_user, \&restore_step_user, "", "restore", - \&restore_do ); - } - $up_box->show_all(); -} - -sub restore_step_sys { - my $restore_step_sys; - my $combo_restore_step_sys = new Gtk::Combo(); - $combo_restore_step_sys->set_popdown_strings(@sys_backuped); - - gtkpack( - $advanced_box, - $restore_step_sys = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 0, - my $check_backup_before = - new Gtk::CheckButton( _("Backup the system files before:") ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), 1, - _("please choose the date to restore"), 0, - $combo_restore_step_sys, 0, - new Gtk::HBox( 0, 10 ), - ), - 1, - new Gtk::VBox( 0, 10 ), - ), - ); - $combo_restore_step_sys->entry->signal_connect( - 'changed', - sub { - $restore_step_sys_date = $combo_restore_step_sys->entry->get_text(); - } - ); - $combo_restore_step_sys->entry->set_text($restore_step_sys_date); - fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore", ); - if ($restore_user) { - fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore", - \&restore_step_user ); - } - elsif ($restore_other) { - fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore", - \&restore_step_other ); - } - else { - fonction_env( \$restore_step_sys, \&restore_step_sys, "", "restore", - \&restore_do ); - } - $up_box->show_all(); -} - -sub restore_other_media_hd { - my ($previous_function) = @_, my $box_where_hd; - my $button; - my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0; - my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("ic82-dossier-32"); - - gtkpack( - $advanced_box, - $box_where_hd = gtkpack_( - new Gtk::VBox( 0, 6 ), - 0, - new Gtk::HSeparator, - 0, - my $check_where_hd = - new Gtk::CheckButton( _("Use Hard Disk to backup") ), - 0, - new Gtk::HSeparator, - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please enter the directory to save:") ), - $where_hd - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - $save_path_entry = new Gtk::Entry(), $where_hd - ), - 152, 20 - ), - 0, - gtkset_sensitive( - $button = gtksignal_connect( - new Gtk::Button(), - clicked => sub { - filedialog_where_hd(); - } - ), - $where_hd - ), - ), - 0, - new Gtk::VBox( 0, 6 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter the maximum size\n allowed for Drakbackup" - ) - ), - $where_hd - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - my $spinner = new Gtk::SpinButton( $adj, 0, 0 ), - $where_hd - ), - 200, - 20 - ), - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_sensitive( - my $check_where_hd_quota = - new Gtk::CheckButton( _("Use quota for backup files.") ), - $where_hd - ), - 0, - new Gtk::VBox( 0, 6 ), - ), - ), - ); - check_list( [ $check_where_hd_quota, \$hd_quota ] ); - gtksignal_connect( - gtkset_active( $check_where_hd, $where_hd ), - toggled => sub { - $where_hd = $where_hd ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - $button->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_fs_map, $pix_fs_mask ) - ) - ); - $save_path_entry->set_text($save_path); - $save_path_entry->signal_connect( 'changed', - sub { $save_path = $save_path_entry->get_text() } ); - if ($previous_function) { - fonction_env( \$box_where_hd, \&advanced_where_hd, \&$previous_function, - "" ); - } - else { - fonction_env( \$box_where_hd, \&advanced_where_hd, \&advanced_where, - "" ); - } - $up_box->show_all(); -} - -sub restore_find_net { - my ($previous_function) = @_, my $box_where_net; - - gtkpack( - $advanced_box, - $box_where_net = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - gtksignal_connect( - new Gtk::Button( _("FTP Connection") ), - clicked => sub { - $box_where_net->destroy(); - if ($previous_function) { - message_underdevel(); - - # advanced_where_net_ftp(\&$previous_function); - } - else { - advanced_where_net_ftp(); - } - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Secure Connection") ), - clicked => sub { - $box_where_net->destroy(); - if ($previous_function) { - advanced_where_net_ssh( \&$previous_function ); - } - else { - advanced_where_net_ssh(); - } - } - ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - new Gtk::VBox( 0, 10 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - if ($previous_function) { - fonction_env( \$box_where_net, \&advanced_where_net, - \&$previous_function, "" ); - } - else { - fonction_env( \$box_where_net, \&advanced_where_net, \&advanced_where, - "" ); - } - $up_box->show_all(); -} - -sub restore_other_media { - my $box_find_restore; - my $button; - my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0; - my ( $pix_fs_map, $pix_fs_mask ) = gtkcreate_png("ic82-dossier-32"); - - gtkpack( - $advanced_box, - $box_find_restore = gtkpack_( - new Gtk::VBox( 0, 6 ), - 0, - new Gtk::HSeparator, - 0, - my $check_other_media_hd = - new Gtk::CheckButton( _("Restore from Hard Disk.") ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter the directory where backups are stored" - ) - ), - $other_media_hd - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - $restore_find_path_entry = new Gtk::Entry(), - $other_media_hd - ), - 152, 20 - ), - 0, - gtkset_sensitive( - $button = gtksignal_connect( - new Gtk::Button(), - clicked => sub { - filedialog_restore_find_path(); - } - ), - $other_media_hd - ), - ), - 1, - new Gtk::VBox( 0, 6 ), - - # 0, new Gtk::HSeparator, - # 0, my $check_other_media_net = new Gtk::CheckButton( _("Restore from Network") ), - # 0, new Gtk::VBox(0, 6), - # 1, gtkpack(new Gtk::HBox(0,10), - # new Gtk::VBox(0, 6), - # gtkset_sensitive(gtksignal_connect(new Gtk::Button("Network"), clicked => sub { - # ${$central_widget}->destroy(); - # restore_find_net(\&restore_other_media);}), !$other_media_hd ), - # new Gtk::VBox(0, 6), - # ), - # 1, new Gtk::VBox(0, 6), - # 0, new Gtk::HSeparator, - 0, - new Gtk::VBox( 0, 6 ), - ), - ); - gtksignal_connect( - gtkset_active( $check_other_media_hd, $other_media_hd ), - toggled => sub { - $other_media_hd = $other_media_hd ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - - # gtksignal_connect(gtkset_active($check_other_media_net, !$other_media_hd), toggled => sub { - # $other_media_hd = $other_media_hd ? 0 : 1; - # ${$central_widget}->destroy(); - # $current_widget->(); - # }); - $button->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_fs_map, $pix_fs_mask ) - ) - ); - $restore_find_path_entry->set_text($path_to_find_restore); - $restore_find_path_entry->signal_connect( 'changed', - sub { $path_to_find_restore = $restore_find_path_entry->get_text() } ); - fonction_env( - \$box_find_restore, \&restore_other_media, - \&restore_step2, "other_media" - ); - $up_box->show_all(); -} - -sub restore_step2 { - my $retore_step2; - my $other_exist; - my $sys_exist; - my $user_exist; - - if ( -f "$save_path/backup_other*" ) { $other_exist = 1; } - else { my $other_exist = 0; $restore_other = 0; } - if ( grep /\_sys\_/, grep /^backup/, all("$save_path/") ) { - $sys_exist = 1; - } - else { my $sys_exist = 0; $restore_sys = 0; } - if ( grep /\_user\_/, grep /^backup/, all("$save_path/") ) { - $user_exist = 1; - } - else { my $user_exist = 0; $restore_user = 0; } - $backup_sys_versions || $backup_user_versions and $backup_bef_restore = 1; - - gtkpack( - $advanced_box, - $retore_step2 = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - my $check_restore_other_src = - new Gtk::CheckButton( - _("Select another media to restore from") ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - gtksignal_connect( - new Gtk::Button( _("Other Media") ), - clicked => sub { - ${$central_widget}->destroy(); - restore_other_media(); - } - ), - $restore_other_src - ), - ), - 0, - gtkset_sensitive( - my $check_restore_sys = - new Gtk::CheckButton( _("Restore system") ), - $sys_exist - ), - 0, - gtkset_sensitive( - my $check_restore_user = - new Gtk::CheckButton( _("Restore Users") ), - $user_exist - ), - 0, - gtkset_sensitive( - my $check_restore_other = - new Gtk::CheckButton( _("Restore Other") ), - $other_exist - ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - my $check_restore_other_path = new Gtk::CheckButton( - _("select path to restore (instead of / )") - ), - 1, - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - my $restore_path_entry = new Gtk::Entry(), - $restore_other_path - ), - ), - 0, - gtkset_sensitive( - my $check_backup_bef_restore = new Gtk::CheckButton( - _( -"Do new backup before restore (only for incremental backups.)" - ) - ), - $backup_sys_versions || $backup_user_versions - ), - 0, - gtkset_sensitive( - my $check_remove_user_dir = new Gtk::CheckButton( - _("Remove user directories before restore.") - ), - $sys_exist - ), - 1, - new Gtk::VBox( 0, 10 ), - ), - ); - foreach ( - [ $check_restore_sys, \$restore_sys ], - [ $check_backup_bef_restore, \$backup_bef_restore ], - [ $check_restore_user, \$restore_user ], - [ $check_remove_user_dir, \$remove_user_before_restore ], - [ $check_restore_other, \$restore_other ] - ) - { - my $ref = $_->[1]; - gtksignal_connect( - gtkset_active( $_->[0], ${$ref} ), - toggled => sub { - ${$ref} = ${$ref} ? 0 : 1; - if ( !$restore_sys && !$restore_user && !$restore_other ) { - $next_widget = \&message_norestore_box; - } - elsif ( $restore_sys && $backup_sys_versions ) { - $next_widget = \&restore_step_sys; - } - elsif ($restore_user) { $next_widget = \&restore_step_user; } - elsif ($restore_other) { $next_widget = \&restore_step_other; } - else { $next_widget = \&restore_do; } - } - ); - } - gtksignal_connect( - gtkset_active( $check_restore_other_path, $restore_other_path ), - toggled => sub { - $restore_other_path = $restore_other_path ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - gtksignal_connect( - gtkset_active( $check_restore_other_src, $restore_other_src ), - toggled => sub { - $restore_other_src = $restore_other_src ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - fonction_env( \$retore_step2, \&restore_step2, \&restore_box, "restore" ); - if ( !$restore_sys && !$restore_user && !$restore_other ) { - $next_widget = \&message_norestore_box; - } - elsif ( $restore_sys && $backup_sys_versions ) { - $next_widget = \&restore_step_sys; - } - elsif ($restore_user) { $next_widget = \&restore_step_user; } - elsif ($restore_other) { $next_widget = \&restore_step_other; } - else { $next_widget = \&restore_do; } - $restore_path_entry->set_text($restore_path); - $restore_path_entry->signal_connect( 'changed', - sub { $restore_path = $restore_path_entry->get_text(); } ); - $up_box->show_all(); -} - -sub restore_box { - my $retore_box; - my $retore_box3; - my $check_restore_sys; - my $check_restore_user; - my $check_restore_other; - $path_to_find_restore = $save_path; - find_backup_to_restore(); - button_box_restore_main(); - - if ( $other_backuped || $sys_backuped || @user_backuped ) { - gtkpack( - $advanced_box, - $retore_box = gtkpack_( - new Gtk::HBox( 0, 1 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - gtksignal_connect( - new Gtk::Button( _("Restore all backups") ), - clicked => sub { - $retore_box->destroy(); - button_box_restore(); - @user_list_to_restore2 = sort @user_backuped; - $restore_sys = 1; - $restore_other = 1; - $restore_user = 1; - restore_do(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Custom Restore") ), - clicked => sub { - $retore_box->destroy(); - button_box_restore(); - restore_step2(); - } - ), - 1, - new Gtk::VBox( 0, 10 ), - 1, - new Gtk::VBox( 0, 10 ), - ), - 1, - new Gtk::HBox( 0, 10 ), - ), - ); - } - else { - gtkpack( - $advanced_box, - $retore_box = - gtkpack_( new Gtk::HBox( 0, 1 ), message_norestorefile_box(), ), - ), - ; - } - fonction_env( \$retore_box, \&restore_box, \&interactive_mode_box, - "restore" ); - $up_box->show_all(); -} - -################################################ BUTTON_BOX ################################################ - -# sub generic_button_box { -# # 1-n - [button name, fonctions associated] -# $button_box_tmp->destroy(); -# gtkpack($button_box, -# $button_box_tmp = gtkpack_(new Gtk::HButtonBox, -# 0, gtksignal_connect(new Gtk::Button($_->[0]), clicked => sub {$_->[1]}) foreach (@_), -# } ), ); -# } - -sub button_box_adv { - $button_box_tmp->destroy(); - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 0, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 1 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget->(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Save") ), - clicked => sub { - ${$central_widget}->destroy(); - save_conf_file(); - $previous_widget->(); - } - ), - ), - ); -} - -# sub button_box_adv { -# generic_button_box(["cancel", ${$central_widget}->destroy() ]); -# } - -sub button_box_restore_main { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - gtkpack_( - new Gtk::HButtonBox, - 0, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 1 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Ok") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - ), - ), - ); -} - -sub button_box_backup_end { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 0, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 1 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget->(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Build Backup") ), - clicked => sub { - ${$central_widget}->destroy(); - build_backup_status(); - build_backup_files(); - } - ), - ), - ); -} - -sub button_box_wizard_end { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 0, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 1 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget->(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Save") ), - clicked => sub { - ${$central_widget}->destroy(); - save_conf_file(); - interactive_mode_box(); - } - ), - ), - ); -} - -sub button_box_restore_end { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 0, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 1 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget->(); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Restore") ), - clicked => sub { - ${$central_widget}->destroy(); - restore_backend(); - } - ), - ), - ); -} - -sub button_box_build_backup_end { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 1, - new Gtk::HBox( 0, 5 ), - 1, - new Gtk::HBox( 0, 5 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Ok") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - - ), - ); -} - -sub button_box_restore_pbs_end { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 1, - new Gtk::HBox( 0, 5 ), - 1, - new Gtk::HBox( 0, 5 ), - 1, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 0, - gtksignal_connect( - new Gtk::Button( _("Ok") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - - ), - ); -} - -sub button_box_build_backup { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 1, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 0 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget->(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Next") ), - clicked => sub { - ${$central_widget}->destroy(); - $next_widget->(); - } - ), - ), - ); -} - -sub button_box_restore { - - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 1, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 0 ), - 0, - gtksignal_connect( - new Gtk::Button( _("Previous") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget->(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Next") ), - clicked => sub { - ${$central_widget}->destroy(); - $next_widget->(); - } - ), - ), - ); -} - -sub button_box_wizard { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack_( - new Gtk::HButtonBox, - 1, - gtksignal_connect( - new Gtk::Button( _("Cancel") ), - clicked => sub { - ${$central_widget}->destroy(); - interactive_mode_box(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&$current_widget, $custom_help ); - } - ), - 1, - new Gtk::HBox( 0, 0 ), - 0, - gtksignal_connect( - new Gtk::Button( $next_widget ? _("Previous") : _("OK") ), - clicked => sub { - ${$central_widget}->destroy(); - $previous_widget ? $previous_widget->() : $next_widget->(); - } - ), - if_( - $next_widget, - 1, - gtksignal_connect( - new Gtk::Button( _("Next") ), - clicked => sub { - ${$central_widget}->destroy(); - $next_widget ? $next_widget->() : $previous_widget->(); - } - ) - ), - ), - ); -} - -sub button_box_main { - $button_box_tmp->destroy(); - - gtkpack( - $button_box, - $button_box_tmp = gtkpack( - gtkset_layout( new Gtk::HButtonBox, -start ), - gtksignal_connect( - new Gtk::Button( _("Close") ), - clicked => sub { - Gtk->main_quit(); - } - ), - gtksignal_connect( - new Gtk::Button( _("Help") ), - clicked => sub { - ${$central_widget}->destroy(); - adv_help( \&interactive_mode_box, $custom_help ); - } - ), - ), - ); -} - -################################################ MESSAGES ################################################ - -sub message_norestorefile_box { - $box2->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 5 ), - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - _( -"Please Build backup before to restore it...\n or verify that your path to save is correct." - ), - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - button_box_restore_main(); - $central_widget = \$box2; - $up_box->show_all(); -} - -sub send_mail_pb { - $table->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 15 ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - 0, - _( - "Error durind sendmail - your report mail was not sent - Please configure sendmail" - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - button_box_restore_main(); - $custom_help = "mail_pb"; - $central_widget = \$box2; - $up_box->show_all(); -} - -sub install_rpm { - my ($previous_function) = @_, my $box_what_user; - - gtkpack( - $advanced_box, - $box_what_user = gtkpack_( - new Gtk::VBox( 0, 15 ), - 0, - _("Package List to Install"), - 0, - new Gtk::HSeparator, - 0, - createScrolledWindow( - gtkpack__( - new Gtk::VBox( 0, 0 ), - map { my $b = new Gtk::Button($_); } - (@list_of_rpm_to_install) - ), - ), - ), - ); - fonction_env( \$box_what_user, \&install_rpm, \&$previous_function, - "what" ); - $up_box->show_all(); -} - -sub client_ftp_pb { - $table->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 15 ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - 0, - _( - "Error durind sending file via FTP. - Please correct your FTP configuration." - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - button_box_restore_main(); - $custom_help = "mail_pb"; - $central_widget = \$box2; - $up_box->show_all(); -} - -sub message_norestore_box { - $box2->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 5 ), - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - _("Please select data to restore..."), - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - button_box_restore_main(); - $central_widget = \$box2; - $up_box->show_all(); -} - -sub message_noselect_box { - $box2->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 5 ), - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - _("Please select media for backup..."), - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $previous_widget = \&wizard_step2; - $next_widget = \&wizard_step2; - $central_widget = \$box2; - $up_box->show_all(); -} - -sub message_noselect_what_box { - $box2->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 5 ), - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - _("Please select data to backup..."), - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $previous_widget = \&wizard; - $next_widget = \&wizard; - $central_widget = \$box2; - $up_box->show_all(); -} - -sub message_noconf_box { - $box2->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 5 ), - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - _( -"No configuration file found \nplease click Wizard or Advanced." - ), - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - button_box_restore_main(); - $central_widget = \$box2; - $up_box->show_all(); -} - -sub message_underdevel { - $box2->destroy(); - my ( $pix_warn_map, $pix_warn_mask ) = gtkcreate_png('warning'); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack( - new Gtk::HBox( 0, 15 ), - new Gtk::VBox( 0, 5 ), - new Gtk::Pixmap( $pix_warn_map, $pix_warn_mask ), - _("Under Devel ... please wait."), - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - $central_widget = \$box2; - $up_box->show_all(); -} - -################################################ BUILD_BACKUP ################################################ - -sub progress { - my ( $progressbar, $incr, $label_text ) = @_; - my ($new_val) = $progressbar->get_current_percentage; - $new_val += $incr; - if ( $new_val > 1 ) { $new_val = 1 } - $progressbar->update($new_val); - $progressbar->{label}->set($label_text); - Gtk->main_iteration while Gtk->events_pending; -} - -sub find_backup_to_put_on_cd { - my @list_backup_tmp; - my @data_backuped_tmp; - @data_backuped = (); - -d $save_path and my @list_backup = all($save_path); - foreach ( grep /^backup_other/, @list_backup ) { - $other_backuped = 1; - chomp; - my $tail = ( split ( ' ', `du $save_path/$_` ) )[0]; - s/^backup_other//gi; - s/.tar.gz$//gi; - s/.tar.bz2$//gi; - my @user_date = split ( /\_20/, $_ ); - my @user_date2 = split ( /\_/, $user_date[1] ); - my $to_put = -" other_data, (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])"; - push @data_backuped, $to_put; - } - foreach ( grep /_sys_/, @list_backup ) { - $sys_backuped = 1; - chomp; - my $tail = ( split ( ' ', `du $save_path/$_` ) )[0]; - s/^backup_other//gi; - s/.tar.gz$//gi; - s/.tar.bz2$//gi; - my @user_date = split ( /\_20/, $_ ); - my @user_date2 = split ( /\_/, $user_date[1] ); - my $to_put = -" system, (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])"; - push @data_backuped, $to_put; - } - foreach ( grep /user_/, @list_backup ) { - chomp; - my $tail = ( split ( ' ', `du $save_path/$_` ) )[0]; - s/^backup_user_//gi; - s/.tar.gz$//gi; - s/.tar.bz2$//gi; - my @user_date = split ( /\_20/, $_ ); - my @user_date2 = split ( /\_/, $user_date[1] ); - my $to_put = -" $user_date[0], (tail: $tail ko, date: 20$user_date2[0], hour: $user_date2[1])"; - push @data_backuped, $to_put; - } -} - -sub build_backup_status { - $pbar = new Gtk::ProgressBar; - $pbar1 = new Gtk::ProgressBar; - $pbar2 = new Gtk::ProgressBar; - $pbar3 = new Gtk::ProgressBar; - button_box_build_backup_end(); - gtkpack( - $advanced_box, - $table = create_packtable( - { col_spacings => 10, row_spacings => 5 }, - [""], - [""], - [""], - [""], - [""], - [""], - [""], - [""], - [ _("Backup system files") ], - [ $pbar, $pbar->{label} = new Gtk::Label(' ') ], - [ _("Backup user files") ], - [ $pbar1, $pbar1->{label} = new Gtk::Label(' ') ], - [ _("Backup other files") ], - [ $pbar2, $pbar2->{label} = new Gtk::Label(' ') ], - [ _("Total Progress") ], - [ $pbar3, $pbar3->{label} = new Gtk::Label(' ') ], - ), - ); - $custom_help = "options"; - $central_widget = \$table; - $up_box->show_all(); - Gtk->main_iteration while Gtk->events_pending; -} - -sub build_backup_ftp_status { - $pbar = new Gtk::ProgressBar; - $pbar3 = new Gtk::ProgressBar; - $table->destroy(); - button_box_build_backup_end(); - $pbar->set_value(0); - $pbar3->set_value(0); - - gtkpack( - $advanced_box, - $table = gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - _("files sending by FTP"), - 1, - new Gtk::VBox( 0, 15 ), - 1, - create_packtable( - { col_spacings => 10, row_spacings => 5 }, - - # [ $pbar->set_show_text( $show_text ); - [ _("Sending files...") ], - [""], - [ $pbar->{label} = new Gtk::Label(' ') ], - [$pbar], - [""], - [ _("Total Progress") ], - [ $pbar3->{label} = new Gtk::Label(' ') ], - [$pbar3], - ), - 1, - new Gtk::VBox( 0, 15 ), - ), - ); - $custom_help = "options"; - $central_widget = \$table; - $up_box->show_all(); - Gtk->main_iteration while Gtk->events_pending; -} - -sub build_backup_box_see_conf { - my $box2; - my $text = new Gtk::Text( undef, undef ); - system_state(); - gtktext_insert( $text, $system_state ); - button_box_restore_main(); - - gtkpack( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 10 ), 0, - _("Drakbackup Configuration"), 1, - createScrolledWindow($text), - ), - ), - ); - button_box_backup_end(); - $custom_help = ""; - $central_widget = \$box2; - $current_widget = \&build_backup_box_see_conf; - $previous_widget = \&build_backup_box; - $up_box->show_all(); -} - -sub build_backup_box_progress { - - # build_backup_files(); -} - -sub aff_total_tail { - my @toto = (); - my $total = 0; - push @toto, ( split ( ",", $_ ) )[1] foreach @list_to_build_on_cd; - foreach (@toto) { - s/\s+\(tail://gi; - s/\s+//gi; - s/ko//gi; - $total += $_; - } - $label_tail->set("total tail: $total ko"); -} - -my %check_data_to_backup_cd; - -sub build_backup_cd_select_data { - my $retore_step_user; - find_backup_to_put_on_cd(); - @list_to_build_on_cd = sort @data_backuped; - @data_backuped = @list_to_build_on_cd; - - gtkpack( - $advanced_box, - $retore_step_user = gtkpack_( - new Gtk::VBox( 0, 10 ), - 0, - new Gtk::VBox( 0, 10 ), - 0, - _("Data list to include on CDROM."), - 1, - createScrolledWindow( - gtkpack__( - new Gtk::VBox( 0, 0 ), - map { - my $name = $_; - my @user_list_tmp = (); - my $b = new Gtk::CheckButton($name); - if ( grep $name, @list_to_build_on_cd ) { - gtkset_active( $b, 1 ); - } - else { - gtkset_active( $b, 0 ); - } - $b->signal_connect( - toggled => sub { - if ( !$check_data_to_backup_cd{$name}[1] ) { - $check_data_to_backup_cd{$name}[1] = 1; - if ( - !grep ( /$name$/, @list_to_build_on_cd ) - ) - { - push @list_to_build_on_cd, $name; - } - } - else { - $check_data_to_backup_cd{$name}[1] = 0; - foreach (@list_to_build_on_cd) { - if ( $name ne $_ ) { - push @user_list_tmp, $_; - } - } - @list_to_build_on_cd = @user_list_tmp; - } - aff_total_tail(); - } - ); - $b - } (@data_backuped) - ), - ), - 0, - new Gtk::HSeparator, - 0, - $label_tail = new Gtk::Label(" "), - 0, - new Gtk::HSeparator, - ), - ); - aff_total_tail(); - fonction_env( \$retore_step_user, \&restore_step_user, - \&build_backup_cd_box, "restore", \&build_backup_box_see_conf ); - $up_box->show_all(); -} - -sub build_backup_cd_box { - my $box_build_backup_cd; - my $combo_where_cd_time = new Gtk::Combo(); - my $adj = new Gtk::Adjustment 4.0, 1.0, 10000.0, 1.0, 5.0, 0.0; - $combo_where_cd_time->set_popdown_strings( "650", "700", "750", "800" ); - - button_box_build_backup(); - gtkpack( - $advanced_box, - $box_build_backup_cd = gtkpack_( - new Gtk::VBox( 0, 6 ), - 0, - my $check_where_cd = - new Gtk::CheckButton( _("Use CD/DVDROM to backup") ), - 0, - new Gtk::HSeparator, - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please choose your CD space") ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_usize( - gtkset_sensitive( $combo_where_cd_time, $where_cd ), - 100, 20 - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( _("Please enter the cd writer speed") ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 6 ), - 0, - gtkset_usize( - gtkset_sensitive( - my $spinner = new Gtk::SpinButton( $adj, 0, 0 ), - $where_cd - ), - 100, 20 - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _("Please check if you are using CDRW media") - ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - my $check_cdrw = new Gtk::CheckButton(), $where_cd - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _("Please check if you want to erase your CDRW before") - ), - $cdrw && $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - my $check_cdrw_erase = new Gtk::CheckButton(), - $cdrw && $where_cd - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please enter your CD Writer device name (ex: 0,1,0)" - ) - ), - $where_cd - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_usize( - gtkset_sensitive( - $cd_devive_entry = new Gtk::Entry(), $where_cd - ), - 100, 20 - ), - ), - 0, - new Gtk::VBox( 0, 5 ), - 0, - gtkpack_( - new Gtk::HBox( 0, 10 ), - 0, - gtkset_sensitive( - new Gtk::Label( - _( -"Please check if you want to include install boot on your CD." - ) - ), - 0 - ), - 1, - new Gtk::VBox( 0, 5 ), - 0, - gtkset_sensitive( - my $check_cd_with_install_boot = new Gtk::CheckButton(), 0 - ), - ), - ), - ); - foreach ( [ $check_cdrw_erase, \$cdrw_erase ], - [ $check_cd_with_install_boot, \$cd_with_install_boot ] ) - { - my $ref = $_->[1]; - gtksignal_connect( gtkset_active( $_->[0], ${$ref} ), - toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } ); - } - gtksignal_connect( - gtkset_active( $check_where_cd, $where_cd ), - toggled => sub { - $where_cd = $where_cd ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - if ($where_cd) { $next_widget = \&build_backup_cd_select_data; } - else { $next_widget = \&build_backup_cd_box; } - } - ); - gtksignal_connect( - gtkset_active( $check_cdrw, $cdrw ), - toggled => sub { - $cdrw = $cdrw ? 0 : 1; - ${$central_widget}->destroy(); - $current_widget->(); - } - ); - if ($where_cd) { $next_widget = \&build_backup_cd_select_data; } - else { $next_widget = \&build_backup_cd_box; } - $cd_devive_entry->set_text($cd_devive); - $cd_devive_entry->signal_connect( 'changed', - sub { $cd_devive = $cd_devive_entry->get_text(); } ); - $combo_where_cd_time->entry->set_text($cd_time); - $combo_where_cd_time->entry->signal_connect( 'changed', - sub { $cd_time = $combo_where_cd_time->entry->get_text() } ); - fonction_env( \$box_build_backup_cd, \&build_backup_cd_box, - \&build_backup_box, "" ); - $up_box->show_all(); -} - -sub build_backup_box { - $box2->destroy(); - my ( $pix_cd_map, $pix_cd_mask ) = gtkcreate_png("ic82-CD-40"); - my ( $pix_hd_map, $pix_hd_mask ) = gtkcreate_png("ic82-discdurwhat-40"); - my ( $pix_options_map, $pix_options_mask ) = - gtkcreate_png("ic82-moreoption-40"); - - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - my $button_from_conf_file = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - build_backup_box_see_conf(); - } - ), - 0, - new Gtk::VBox( 0, 5 ), - - # 1, gtksignal_connect(my $button_on_cd = new Gtk::Button(), - # clicked => sub { ${$central_widget}->destroy(); - # $where_cd = 1; - # build_backup_cd_box(); - # }), - # 0, new Gtk::VBox(0, 5), - 1, - gtksignal_connect( - my $button_see_conf = new Gtk::Button(), - clicked => sub { - ${$central_widget}->destroy(); - build_backup_box_see_conf(); - } - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - - $button_from_conf_file->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_hd_map, $pix_hd_mask ), - new Gtk::Label( _("Backup Now from configuration file") ), - new Gtk::HBox( 0, 5 ) - ) - ); - - # $button_on_cd->add(gtkpack(new Gtk::HBox(0,10), - # new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), - # new Gtk::Label(_("Backup Now on CDROM")), - # new Gtk::HBox(0, 5) - # )); - $button_see_conf->add( - gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::Pixmap( $pix_options_map, $pix_options_mask ), - new Gtk::Label( _("View Backup Configuration.") ), - new Gtk::HBox( 0, 5 ) - ) - ); - - button_box_restore_main(); - fonction_env( \$box2, \&build_backup_box, \&interactive_mode_box, - "options" ); - $up_box->show_all(); -} - -################################################ INTERACTIVE ################################################ - -sub interactive_mode_box { - $box2->destroy(); - - read_conf_file(); - gtkadd( - $advanced_box, - $box2 = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtkpack_( - new Gtk::VBox( 0, 15 ), - 1, - new Gtk::VBox( 0, 5 ), - 1, - gtksignal_connect( - new Gtk::Button( _("Wizard Configuration") ), - clicked => sub { - ${$central_widget}->destroy(); - read_conf_file(); - wizard(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Advanced Configuration") ), - clicked => sub { - button_box_adv(); - ${$central_widget}->destroy(); - advanced_box(); - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Backup Now") ), - clicked => sub { - ${$central_widget}->destroy(); - if ($cfg_file_exist) { build_backup_box(); } - else { message_noconf_box(); } - } - ), - 1, - gtksignal_connect( - new Gtk::Button( _("Restore") ), - clicked => - sub { ${$central_widget}->destroy(); restore_box(); } - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - 1, - new Gtk::VBox( 0, 5 ), - ), - ); - button_box_main(); - $custom_help = "main"; - $central_widget = \$box2; - $up_box->show_all(); -} - -sub interactive_mode { - $interactive = 1; - my $box; - my $window1 = - $::isEmbedded ? new Gtk::Plug($::XID) : new Gtk::Window -toplevel; - init Gtk; - $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("drakbackup.540x57"); - read_conf_file(); - - gtkadd( - $window1, - gtkpack( - new Gtk::VBox( 0, 0 ), - gtkpack( - gtkset_usize( $up_box = new Gtk::VBox( 0, 5 ), 540, 400 ), - $box = gtkpack_( - new Gtk::VBox( 0, 3 ), - 0, - new Gtk::Pixmap( $pix_u_map, $pix_u_mask ), - 1, - gtkpack_( - new Gtk::HBox( 0, 3 ), - 1, - gtkpack_( - new Gtk::HBox( 0, 15 ), - 0, - new Gtk::HBox( 0, 5 ), - 1, - $advanced_box = gtkpack_( - new Gtk::HBox( 0, 15 ), - 1, $box2 = gtkpack_( new Gtk::VBox( 0, 15 ), ), - ), - 0, - new Gtk::HBox( 0, 5 ), - ), - ), - 0, - new Gtk::HSeparator, - 0, - $button_box = gtkpack( - new Gtk::VBox( 0, 15 ), - $button_box_tmp = gtkpack( new Gtk::VBox( 0, 0 ), ), - ), - ), - ), - ), - ); - interactive_mode_box(); - $custom_help = "main"; - button_box_main(); - $central_widget = \$box2; - $window1->show_all; - $window1->realize; - $window1->show_all(); - Gtk->main; - Gtk->exit(0); -} - -################################################ HELP & ABOUT ################################################ - -sub adv_help { - my ( $function, $custom_help ) = @_, - my $text = new Gtk::Text( undef, undef ); - my $advanced_box_help; - -################################################ help definition ############################################## - - my %custom_helps = ( - "options" => _( - "options description: - - In this step Drakbackup allow you to change: - - - The compression mode: - - If you check bzip2 compression, you will compress - your data better than gzip (about 2-10 %). - This option is not checked by default because - this compression mode needs more time ( about 1000% more). - - - The update mode: - - This option will update your backup, but this - option is not really useful because you need to - decompress your backup before you can update it. - - - the .backupignore mode: - - Like with cvs, Drakbackup will ignore all references - included in .backupignore files in each directories. - ex: - #> cat .backupignore - *.o - *~ - ... - - -" - ), - "mail_pb" => _( " - Some errors during sendmail are caused by - a bad configuration of postfix. To solve it you have to - set myhostname or mydomain in /etc/postfix/main.cf - -" ), - - "what" => _( - "options description: - - - Backup system files: - - This option allows you to backup your /etc directory, - which contains all configuration files. Please be - careful during the restore step to not overwrite: - /etc/passwd - /etc/group - /etc/fstab - - - Backup User files: - - This option allows you select all users that you want - to backup. - To preserve disk space, it is recommended that you - do not include web browser's cache. - - - Backup Other files: - - This option allows you to add more data to save. - With the other backup it's not possible at the - moment to select select incremental backup. - - - Incremental Backups: - - The incremental backup is the most powerful - option for backup. This option allows you - to backup all your data the first time, and - only the changed afterward. - Then you will be able, during the restore - step, to restore your data from a specified - date. - If you have not selected this option all - old backups are deleted before each backup. - - -" - ), - "restore" => _( - "restore description: - -Only the most recent date will be used ,because with incremental -backups it is necesarry to restore one by one each older backups. - -So if you don't like to restore an user please unselect all his -check box. - -Otherwise, you are able to select only one of this - - - Incremental Backups: - - The incremental backup is the most powerfull - option to use backup, this option allow you - to backup all your data the first time, and - only the changed after. - So you will be able during the restore - step, to restore your data from a specified - date. - If you have not selected this options all - old backups are deleted before each backup. - - - -" - ), - "main" => _( -" Copyright (C) 2001 MandrakeSoft by DUPONT Sebastien <dupont_s\@epita.fr>" - ) - . "\n\n" - . _( -" 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." - ) - . "\n\n _____________________\n" - . _( - "Description: - - Drakbackup is used 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) - - Drakbackup allows you to backup your system on: - - Harddrive. - - NFS. - - CDROM (CDRW), DVDROM (with autoboot, rescue and autoinstall.). - - FTP. - - Rsync. - - Webdav. - - Tape. - - Drakbackup allows you to restore your system to - a user selected directory. - - Per default all backup will be stored on your - /var/lib/drakbackup directory - - Configuration file: - /etc/drakconf/drakbackup/drakbakup.conf - - -Restore Step: - - During the restore step, DrakBackup will remove - your original directory and verify that all - backup files are not corrupted. It is recommended - you do a last backup before restoring. - - -" - ), - "ftp" => _( - "options description: - -Please be careful when you are using ftp backup, because only -backups that are already built are sent to the server. -So at the moment, you need to build the backup on your hard -drive before sending it to the server. - -" - ), - "restore_pbs" => _( " -Restore Backup Problems: - -During the restore step, Drakbackup will verify all your -backup files before restoring them. -Before the restore, Drakbackup will remove -your original directory, and you will loose all your -data. It is important to be careful and not modify the -backup data files by hand. -" ) - ); - - my $default_help = - _( -" Copyright (C) 2001 MandrakeSoft by DUPONT Sebastien <dupont_s\@epita.fr>" - ) - . "\n\n" - . _( - " 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." - ) - . "\n\n _____________________\n" - . _( - "Description: - - Drakbackup is used 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) - - Drakbackup allows you to backup your system on: - - Harddrive. - - NFS. - - CDROM (CDRW), DVDROM (with autoboot, rescue and autoinstall.). - - FTP. - - Rsync. - - Webdav. - - Tape. - - Drakbackup allows you to restore your system to - a user selected directory. - - Per default all backup will be stored on your - /var/lib/drakbackup directory - - Configuration file: - /etc/drakconf/drakbackup/drakbakup.conf - -Restore Step: - - During the restore step, Drakbackup will remove - your original directory and verify that all - backup files are not corrupted. It is recommended - you do a last backup before restoring. - - -" - ); - -################################################ help fonction ############################################## - - gtktext_insert( $text, $custom_helps{$custom_help} || $default_help ); - gtkpack( - $advanced_box, - $advanced_box_help = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - gtkpack_( - new Gtk::HBox( 0, 0 ), 1, - $text, 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(); - $function->(); - } - ), - ), - ) - ); - $central_widget = \$advanced_box_help; - $up_box->show_all(); -} - -sub to_ok { - $sav_next_widget = $next_widget; - $next_widget = undef; - button_box_wizard(); -} - -sub to_normal { - $next_widget = $sav_next_widget; -} |