summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2002-08-10 01:26:11 +0000
committerStew Benedict <stewb@mandriva.org>2002-08-10 01:26:11 +0000
commit09952181425ab32879e07884b3484cd0fdf9f4c2 (patch)
tree818da61065731b8864006fa136c286fce641cf77 /perl-install/standalone
parentf51843fcf57353b204a2102ee853a9fbaa50219d (diff)
downloaddrakx-backup-do-not-use-09952181425ab32879e07884b3484cd0fdf9f4c2.tar
drakx-backup-do-not-use-09952181425ab32879e07884b3484cd0fdf9f4c2.tar.gz
drakx-backup-do-not-use-09952181425ab32879e07884b3484cd0fdf9f4c2.tar.bz2
drakx-backup-do-not-use-09952181425ab32879e07884b3484cd0fdf9f4c2.tar.xz
drakx-backup-do-not-use-09952181425ab32879e07884b3484cd0fdf9f4c2.zip
GUI fixes, scp, rsync, webDAV, CD, tape support.
Consolidate all net methods into one configure screen. Daemon mode, email fixed. Ran perl_checker and corrected. GUI feedback during various backup modes and result report. CD/Tape drive/media detection. Start to look at cataloging runs for locating restore media.
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbackup1448
1 files changed, 928 insertions, 520 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 81fde6849..171fb6251 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -69,6 +69,11 @@
# backup_incr_user_toto_date_hour.tar.*
# backup_incr_other_date_hour.tar.*
#
+# all backup runs will generate:
+#
+# drakbackup_date_hour.txt
+#
+# this will contain media & hostname
#________________________________________________________________
#
# REQUIRE: cron if daemon
@@ -77,7 +82,8 @@
# ssh-askpass
# sitecopy - for webdav
# rsync
-#
+# perl Expect
+
# BUGS :
#DONE restore->other_media->next->previous => crash ...
#DONE selection des sources a inclure dans le backup cd.
@@ -89,10 +95,11 @@
# 1 - print ftp problem for user.
# 2 - calcul disk space.
# use quota.
-# 3 - ssh & rsync -> expect or .identity.pub/authorized_keys
+#DONE 3 - ssh & rsync -> expect or .identity.pub/authorized_keys
#WHY? - Apple can read Joliet - would you really be restoring on MacOS?
+#Or for bootable - PPC is being depracated anyway ;(
# 4 - write on cd --> ! change Joliet to HFS for Apple
-# 5 - cd writer detection -> cdrw: /sys/dev/cdrom/info /scsi/host0/bus0/target4/lun0
+#DONE 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.
@@ -101,10 +108,11 @@
# explain configuration file variables (mainly for non X users)
#DONE 9 - webdav
# 10- backend : --resore_all, --restore_sys, --restore_users
+#WHAT IS THIS?
# --build_cd_autoinst
-#--default does this NOW
+#DONE--default does this NOW
# --backup_now --backup_default_now
-#DONE 11- tape device support
+#DONE-BASIC SUPPORT 11- tape device support
# 12- cpio use !!
# 13- boot floppy disk (with dialog)
# 14- build autoboot with backup and install cd
@@ -119,7 +127,7 @@
#________________________________________________________________
use Gtk;
-use lib qw(/usr/lib/libDrakX );
+use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
@@ -128,9 +136,11 @@ use my_gtk qw(:helpers :wrappers);
use common;
use strict;
use Time::localtime;
-
+use detect_devices;
+use Data::Dumper;
my $in = 'interactive'->vnew('', 'default');
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
if ("@ARGV" =~ /--help|-h/) {
print q(Backup and Restore application
@@ -168,12 +178,12 @@ my $restore_sys = 1;
my $restore_user = 1;
my $restore_other = 1;
my $restore_step_sys_date = "";
-my @user_backuped = ();
-my @sys_backuped = ();
+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 @user_list_to_restore;
+my @sys_list_to_restore;
my $cd_device_entry;
my $custom_help;
my $button_box;
@@ -188,11 +198,12 @@ my $pbar;
my $pbar1;
my $pbar2;
my $pbar3;
+my $stext;
my $the_time;
-my @user_list_to_restore2 = ();
-my @data_backuped = ();
+my @user_list_to_restore2;
+my @data_backuped;
my $label_tail;
-my @list_to_build_on_cd = ();
+my @list_to_build_on_cd;
my $restore_path = "/";
my $restore_other_path = 0;
my $restore_other_src;
@@ -200,15 +211,17 @@ my $path_to_find_restore;
my $other_media_hd;
my $backup_bef_restore = 0;
my $table;
-my @user_list_backuped = ();
-my @files_corrupted = ();
+my @user_list_backuped;
+my @files_corrupted;
my $remove_user_before_restore = 1;
-my @file_list_to_send_by_ftp = ();
+my @file_list_to_send_by_ftp;
my $results;
my @net_methods = ("ftp", "rsync", "ssh", "webdav");
my @media_types = ("cd", "hd", "tape");
my %cd_devices;
my $cd_drives;
+my $std_device;
+my @tape_devices;
# config. FILES -> Default PATH & Global variables.
my @sys_files = ("/etc");
@@ -217,17 +230,19 @@ my @list_other = () ;
my $cfg_dir = "/etc/drakxtools/drakbackup/";
my $cfg_file = $cfg_dir . "drakbackup.conf";
my $save_path = "/var/lib/drakbackup";
-my $log_file = "/var/log/drakbackup.log";
+my $log_buff;
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_sys_versions = 0;
+my $backup_user_versions = 0;
my $backup_other_versions = 0;
my $what_no_browser = 1;
my $cdrw = 0;
-my $net_proto= '';
+my $dvdr = 0;
+my $dvdram = 0;
+my $net_proto = '';
my $host_path = '';
my $login_user = '';
my $daemon = 0;
@@ -259,12 +274,20 @@ my $host_name = '';
my $backupignore = 0;
my $auth_choice = 0;
my $remember_pass = 0;
-my $passwd_user= '';
-my $tape_device = ();
+my $passwd_user = '';
+my $tape_device;
my $media_erase = 0;
+my $media_eject = 0;
+my $tape_norewind = 0;
my $no_critical_sys = 1;
my $send_mail = 0;
my $user_mail;
+my $scp_port = 22;
+my $use_expect = 0;
+my $xfer_keys = 0;
+my $user_keys = 1;
+my $user_home = $ENV{"HOME"};
+my $backup_key = $user_home . "/.ssh/identity-drakbackup";
foreach (@ARGV) {
/--default/ and backend_mode();
@@ -307,7 +330,7 @@ sub all_user_list {
while (defined(my $line = <PASSWD>)) {
chomp($line);
($user, $uid) = (split(/:/, $line))[0, 2];
- if ($uid >= 500 || $uid == 0 ) {
+ if ($uid >= 500 || $uid == 0) {
push @all_user_list, $user;
}
}
@@ -322,23 +345,38 @@ sub all_user_list {
sub the_time {
$the_time = "_";
$the_time .= localtime->year() + 1900;
- if (localtime->mon() < 9 ) { $the_time .= "0"; }
+ if (localtime->mon() < 9) { $the_time .= "0" }
$the_time .= localtime->mon() +1;
- if (localtime->mday() < 10 ) { $the_time .= "0"; }
+ if (localtime->mday() < 10) { $the_time .= "0" }
$the_time .= localtime->mday();
$the_time .= "_";
- if (localtime->hour() < 10 ) { $the_time .= "0"; }
+ if (localtime->hour() < 10) { $the_time .= "0" }
$the_time .= localtime->hour();
- if (localtime->min() < 10 ) { $the_time .= "0"; }
+ if (localtime->min() < 10) { $the_time .= "0" }
$the_time .= localtime->min();
- if (localtime->sec() < 10 ) { $the_time .= "0"; }
+ if (localtime->sec() < 10) { $the_time .= "0" }
$the_time .= localtime->sec();
}
+sub get_tape_info {
+ my @line_data;
+ my $info = "/tmp/dmesg";
+ @tape_devices = ();
+ system("dmesg | grep 'st[0-9] at' > $info");
+
+ open(INFO, $info) || warn("Can't open $info\n");
+ while (<INFO>) {
+ @line_data = split(/[ \t,]+/, $_);
+ push @tape_devices, "/dev/" . $line_data[3];
+ }
+ close(INFO);
+ unlink("$info");
+}
+
sub get_cd_info {
my @cd_info = cat_("/proc/sys/dev/cdrom/info");
- my @line_data = ();
- my @drive_names = ();
+ my @line_data;
+ my @drive_names;
my $i;
my $key;
my $info;
@@ -355,37 +393,37 @@ sub get_cd_info {
}
chop($line_data[$cd_drives]) if $cd_drives;
if ($line_data[0] eq "drive speed") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{speed} = $line_data[$i];
}
}
if ($line_data[0] eq "Can change speed") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{chg_speed} = $line_data[$i];
}
}
if ($line_data[0] eq "Can read multisession") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{multisession} = $line_data[$i];
}
}
if ($line_data[0] eq "Can write CD-R") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{cdr} = $line_data[$i];
}
}
if ($line_data[0] eq "Can write CD-RW") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{cdrw} = $line_data[$i];
}
}
if ($line_data[0] eq "Can write DVD-R") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{dvdr} = $line_data[$i];
}
}
if ($line_data[0] eq "Can write DVD-RAM") {
- for($i=1;$i<=$cd_drives;$i++) {
+ for ($i = 1; $i <= $cd_drives; $i++) {
$cd_devices{$drive_names[$i]}->{dvdram} = $line_data[$i];
}
}
@@ -395,20 +433,23 @@ sub get_cd_info {
#- this is scsi-channel, id, lun from /dev/scsi/host*
#- oops - can't count on devfs - use dmesg
- system("dmesg | grep sr[0-9] > /tmp/dmesg");
- my $info = "/tmp/dmesg";
+ $info = "/tmp/dmesg";
+ system("dmesg | grep sr[0-9] > $info");
+
open(INFO, $info) || warn("Can't open $info\n");
- while(<INFO>) {
+ while (<INFO>) {
if (/sr[0-9] at/) {
- @line_data=split(/[ \t,]+/, $_);
+ @line_data = split(/[ \t,]+/, $_);
chop($line_data[11]);
$line_data[5] =~ s/scsi//;
$cd_devices{$line_data[3]}->{rec_dev} = $line_data[5] . "," . $line_data[9] . "," . $line_data[11];
}
}
close(INFO);
- unlink("/tmp/dmesg");
+ unlink("$info");
+ #- should we also try to get the human readable name for display purposes?
+
#- now just report the data if we called --cd-info from the command line
if (!$interactive) {
foreach $key (keys %cd_devices) {
@@ -421,6 +462,12 @@ sub get_cd_info {
print "{$key}->{dvdr} = $cd_devices{$key}->{dvdr}\n";
print "{$key}->{dvdram} = $cd_devices{$key}->{dvdram}\n";
}
+ } else {
+ #- in non-interactive mode we just let all the devices through
+ #- as a general purpose probe - in reality we want only burners
+ foreach $key (keys %cd_devices) {
+ delete $cd_devices{$key} if ($cd_devices{$key}->{rec_dev} eq '')
+ }
}
}
@@ -429,7 +476,7 @@ sub save_conf_file {
write_sitecopyrc() if ($net_proto eq 'webdav');
write_password_file() if (($net_proto eq 'rsync') && ($passwd_user ne ''));
- my @cfg_list = ( "SYS_FILES=@sys_files\n",
+ my @cfg_list = ("SYS_FILES=@sys_files\n",
"HOME_FILES=@user_list\n",
"OTHER_FILES=@list_other\n",
"PATH_TO_SAVE=$save_path\n",
@@ -450,28 +497,33 @@ sub save_conf_file {
$backup_user_versions and push @cfg_list, "USER_INCREMENTAL_BACKUPS\n" ;
$backup_other_versions and push @cfg_list, "OTHER_INCREMENTAL_BACKUPS\n" ;
$media_erase and push @cfg_list, "MEDIA_ERASE\n" ;
- $where_net and ($net_proto eq 'ftp') and push @cfg_list, "USE_NET_FTP\n" ;
-# $where_net_ssh and push @cfg_list, "USE_NET_SSH\n" ;
+ $media_erase and push @cfg_list, "MEDIA_EJECT\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" ;}
+ if ($auth_choice == 1) { push @cfg_list, "AUTH_CHOICE=1\n" }
+ if ($auth_choice == 2) { push @cfg_list, "AUTH_CHOICE=2\n" }
+ $user_keys and push @cfg_list, "USER_KEYS\n" ;
+ $xfer_keys and push @cfg_list, "DRAK_KEYS\n" ;
+ $use_expect and push @cfg_list, "USE_EXPECT\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" ;
- $tape_daemon and push @cfg_list, "TAPE_DAEMON\n" ;
- $webdav_daemon and push @cfg_list, "WEBDAV_DAEMON\n" ;
- $rsync_daemon and push @cfg_list, "RSYNC_DAEMON\n" ;
+ $ssh_daemon and $backup_daemon and push @cfg_list, "SSH_DAEMON\n" ;
+ $ftp_daemon and $backup_daemon and push @cfg_list, "FTP_DAEMON\n" ;
+ $hd_daemon and $backup_daemon and push @cfg_list, "HD_DAEMON\n" ;
+ $cd_daemon and $backup_daemon and push @cfg_list, "CD_DAEMON\n" ;
+ $tape_daemon and $backup_daemon and push @cfg_list, "TAPE_DAEMON\n" ;
+ $webdav_daemon and $backup_daemon and push @cfg_list, "WEBDAV_DAEMON\n" ;
+ $rsync_daemon and $backup_daemon and push @cfg_list, "RSYNC_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_tape and push @cfg_list, "USE_TAPE\n" ;
+ $tape_norewind and push @cfg_list, "TAPE_NOREWIND\n" ;
$where_net and push @cfg_list, "USE_NET\n" ;
$cdrw and push @cfg_list, "CDRW\n";
+ $dvdr and push @cfg_list, "DVDR\n";
+ $dvdram and push @cfg_list, "DVDRAM\n";
$what_no_browser or push @cfg_list, "BROWSER_CACHE\n" ;
$backup_sys or push @cfg_list, "NO_SYS_FILES\n";
if ($comp_mode) {
@@ -497,13 +549,13 @@ sub read_cron_files {
}
sub save_cron_files {
- my @cron_file = ("#!/bin/sh\n", "export TERM=xterm\n", "/usr/sbin/drakbackup --daemon > /dev/null 2>&1\n" );
+ my @cron_file = ("#!/bin/sh\n", "export TERM=xterm\n", "/usr/sbin/drakbackup --daemon > /dev/null 2>&1\n");
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 );
+ output_p("/etc/cron.$when_space/drakbackup", @cron_file);
system("chmod +x /etc/cron.$when_space/drakbackup");
} else {
foreach (qw(hourly daily weekly monthly)) {
@@ -514,66 +566,75 @@ sub save_cron_files {
sub read_conf_file {
if (-e $cfg_file) {
- open ( CONF_FILE, "<"."$cfg_file") || print "You must be root to read configuration file. \n" ;
+ 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; $daemon_media = 'ssh'; }
- if (/^FTP_DAEMON/) { $ftp_daemon = 1; $daemon_media = 'ftp'; }
- if (/^HD_DAEMON/) { $hd_daemon = 1; }
- if (/^CD_DAEMON/) { $cd_daemon = 1; $daemon_media = 'cd'; }
- if (/^TAPE_DAEMON/) { $tape_daemon = 1; $daemon_media = 'tape'; }
- if (/^WEBDAV_DAEMON/) { $webdav_daemon = 1; $daemon_media = 'webdav'; }
- if (/^RSYNC_DAEMON/) { $rsync_daemon = 1; $daemon_media = 'rsync'; }
- 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 (/^CD_DEVICE/) { s/^CD_DEVICE=//gi; $cd_device = $_;}
- 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; $tape_device = $_;}
- if (/^MEDIA_ERASE/) { $media_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;}
+ 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 (/^DVDR/) { $dvdr = 1 }
+ if (/^DVDRAM/) { $dvdram = 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; $daemon_media = 'ssh'; $backup_daemon = 1 }
+ if (/^FTP_DAEMON/) { $ftp_daemon = 1; $daemon_media = 'ftp'; $backup_daemon = 1 }
+ if (/^HD_DAEMON/) { $hd_daemon = 1; $daemon_media = 'hd'; $backup_daemon = 1 }
+ if (/^CD_DAEMON/) { $cd_daemon = 1; $daemon_media = 'cd'; $backup_daemon = 1 }
+ if (/^TAPE_DAEMON/) { $tape_daemon = 1; $daemon_media = 'tape'; $backup_daemon = 1 }
+ if (/^WEBDAV_DAEMON/) { $webdav_daemon = 1; $daemon_media = 'webdav'; $backup_daemon = 1 }
+ if (/^RSYNC_DAEMON/) { $rsync_daemon = 1; $daemon_media = 'rsync'; $backup_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 (/^TAPE_NOREWIND/) { $tape_norewind = 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 (/^CD_DEVICE/) { s/^CD_DEVICE=//gi; $cd_device = $_ }
+ 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 (/^USER_KEYS/) { $user_keys = 1 }
+ if (/^DRAK_KEYS/) { $xfer_keys = 1; $user_keys = 0 }
+ if (/^USE_EXPECT/) { $use_expect = 1; $user_keys = 0 }
+ if (/^LOGIN/) { s/^LOGIN=//gi; $login_user = $_ }
+ if (/^PASSWD/) { s/^PASSWD=//gi; $passwd_user = $_; $remember_pass = 1 }
+ if (/^USER_MAIL/) { s/^USER_MAIL=//gi; $user_mail = $_ }
+ if (/^SEND_MAIL/) { $send_mail = 1 }
+ if (/^TAPE_DEVICE/) { s/TAPE_DEVICE=//gi; $tape_device = $_ }
+ if (/^MEDIA_ERASE/) { $media_erase = 1 }
+ if (/^MEDIA_EJECT/) { $media_eject = 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;
+ $cfg_file_exist = 0;
+ #- these were 1 by default, but that made it so the user could never save the
+ #- inverse behavior. this allows incremental as the default if not configured
+ $backup_sys_versions = 1;
+ $backup_user_versions = 1;
}
close CONF_FILE;
}
sub write_sitecopyrc {
- #- FIXME - how to deal with existing sitecopyrc - also /root hardcoded!!
- my @cfg_list = ( "site drakbackup\n",
+ #- FIXME - how to deal with existing sitecopyrc
+ my @cfg_list = ("site drakbackup\n",
"\tserver $host_name\n",
"\tremote $host_path\n",
"\tlocal $save_path\n",
@@ -581,15 +642,25 @@ sub write_sitecopyrc {
"\tpassword $passwd_user\n",
"\tprotocol webdav\n"
);
- output_p("/root/.sitecopyrc", @cfg_list);
- chmod(0600, "/root/.sitecopyrc");
- -d "/root/.sitecopy" or mkdir_p("/root/.sitecopy");
- chmod(0700, "/root/.sitecopy");
+ output_p("$user_home/.sitecopyrc", @cfg_list);
+ chmod(0600, "$user_home/.sitecopyrc");
+ -d "$user_home/.sitecopy" or mkdir_p ("$user_home/.sitecopy");
+ chmod(0700, "$user_home/.sitecopy");
}
sub write_password_file {
output_p("$cfg_dir/rsync.user", "$passwd_user\n");
- chmod(0600, "$cfg_dir/rsync_user");
+ chmod(0600, "$cfg_dir/rsync.user");
+}
+
+sub show_warning {
+ my ($warning) = @_;
+ if ($interactive) {
+ $in->ask_warn('',_("WARNING: $warning"));
+ } else {
+ warn "WARNING: $warning\n";
+ }
+ $log_buff .= "\nWARNING: $warning\n";
}
sub complete_results {
@@ -604,48 +675,168 @@ sub complete_results {
$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); }
+ 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) {
$interactive and $pbar->set_value(0);
$interactive and progress($pbar, 0.5, $_);
- $interactive and $pbar->set_show_text( $_ );
+ $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"));
+ $interactive and $pbar->set_show_text($_);
+ $interactive and progress($pbar3, 1/@file_list_to_send_by_ftp, _("Total progess"));
}
$ftp->quit;
return(0);
}
+#- this is just here to get around Expect for the moment
+sub exp_continue {
+ return(0);
+}
+
+sub do_expect {
+
+ #- Sort of a general purpose expect routine, we use it to backup files to
+ #- a remote server, as well as transfer a key and restore.
+ #- Using the key after it is setup is preferred.
+
+ my ($mode, $filename) = @_;
+
+ #- move this to the top? - problem is need for perl-Expect (in contribs)
+
+#- temporarily disabled
+# use Expect;
+show_warning("Sorry, perl-Expect is not installed/enabled. To use\nthis feature, install perl-Expect and comment lines 702-704,\n as well as 718,719. Then uncomment line 717.");
+return(1);
+
+ #- for debugging set to 1
+ $Expect::Exp_Internal = 0;
+ #- for debugging set to 1
+ $Expect::Debug = 0;
+ $Expect::Log_Stdout = 0;
+
+ my $spawn_ok;
+ my $no_perm;
+ my $bad_passwd;
+ my $bad_dir;
+ my $timeout = 20;
+
+ my $exp_command;
+ my @send_files = ("$backup_key.pub");
+
+ @send_files = @file_list_to_send_by_ftp if ($mode eq "backup");
+
+ $interactive and $pbar->set_value(0);
+ $interactive and $pbar3->set_value(0);
+ $interactive and progress($pbar, 0.5, "File Transfer...");
+
+ foreach (@send_files) {
+ $exp_command = "scp -P $scp_port $_ $login_user\@$host_name:$host_path" if ($mode eq "backup");
+ $exp_command = "ssh-copy-id -i $_ $login_user\@$host_name" if ($mode eq "sendkey");
+
+ if ((-e $backup_key) && ($mode eq "sendkey")) {
+ if ($in->ask_yesorno('',_("$backup_key exists, delete?\n\nWarning: If you've already done this process you'll probably\n need to purge the entry from authorized_keys on the server."))) {
+ unlink("$backup_key");
+ unlink("$backup_key . '.pub'");
+ } else {
+ return(0);
+ }
+ }
+
+ if (!(-e $backup_key) && ($mode eq "sendkey")) {
+ $in->ask_warn('',_("This may take a moment to generate the keys."));
+ cursor_wait();
+ #- not using a passphrase for the moment
+ system("ssh-keygen -P '' -t dsa -f $backup_key");
+ cursor_norm();
+ }
+
+ my $exp = Expect->spawn("$exp_command") or $in->ask_warn('',_("ERROR: Cannot spawn $exp_command."));
+
+ $interactive and progress($pbar3, 1/@send_files, _("Total progess"));
+ $interactive and $stext->set_text($_);
+
+ #- run scp, look for some common errors and try to track successful progress for GUI
+ $exp->expect($timeout,
+ [ qr'password: $', sub {
+ $spawn_ok = 1;
+ my $fh = shift;
+ $fh->send("$passwd_user\n");
+ exp_continue } ],
+ [ '-re', 'please try again', sub { $bad_passwd = 1; exp_continue } ],
+ [ '-re', 'Permission denied', sub { $no_perm = 1; exp_continue } ],
+ [ '-re', 'No such file or directory', sub { $bad_dir = 1; exp_continue } ],
+# [ '-re', '%', sub { update_scp_progress(); exp_continue; } ],
+ [ eof => sub {
+ if (!$spawn_ok) { show_warning("No password prompt on $host_name at port $scp_port") }
+ if ($bad_passwd) { show_warning("Bad password on $host_name") }
+ if ($no_perm) { show_warning("Permission denied transferring $_ to $host_name") }
+ if ($bad_dir) { show_warning("Can't find $host_path on $host_name") }
+ }
+ ],
+ [ timeout => sub { show_warning("$host_name not responding") } ],
+ );
+
+ my $exit_stat = $exp->exitstatus;
+ $in->ask_warn('',_("Transfer successful\nYou may want to verify you can login to the server with:\n\nssh -i $backup_key $login_user\@$host_name\n\nwithout being prompted for a password.")) if (($exit_stat eq 0) && ($mode eq "sendkey"));
+ $log_buff .= "$_\n" if (($exit_stat eq 0) && ($mode eq "backup"));
+ $exp->hard_close();
+ }
+ $interactive and progress($pbar, 0.5, "Done...");
+}
+
sub ssh_client {
-# system("scp @file_list_to_send_by_ftp root\@petra:.");
$DEBUG and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;
+ my $command;
+ my $value;
+
foreach (@file_list_to_send_by_ftp) {
+ if ($user_keys) {
+ $command = "scp -P $scp_port $_ $login_user\@$host_name:$host_path";
+ } else {
+ $command = "scp -P $scp_port -i $backup_key $_ $login_user\@$host_name:$host_path";
+ }
$interactive and $pbar->set_value(0);
- $interactive and progress($pbar, 0.5, $_);
- $interactive and $pbar->set_show_text( $_ );
- system("scp $_ $login_user\@$host_name");
- $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"));
+ $interactive and progress($pbar, 0.5, "File Transfer...");
+ $interactive and $stext->set_text($_);
+ $log_buff .= $command . "\n\n";
+ open TMP, "$command 2>&1 |";
+ while ($value = <TMP>) {
+ $log_buff .= $value;
+ }
+ close TMP;
+ $log_buff .= "\n";
+ $interactive and progress($pbar, 0.5, "Done...");
+ $interactive and progress($pbar3, 1/@file_list_to_send_by_ftp, _("Total progess"));
}
return(0);
}
sub webdav_client {
$DEBUG and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;
- system("sitecopy -u drakbackup > $log_file");
+ if (!(-e "$user_home/.sitecopy/drakbackup")) {
+ my $command = "sitecopy -f $host_path";
+ spawn_progress($command, "Initializing sitecopy");
+ }
+ my $command = "sitecopy -u drakbackup";
+ spawn_progress($command, "Running sitecopy...");
+ if ($log_buff =~ /Nothing to do - no changes found/) {
+ show_warning("WebDAV remote site already in sync!");
+ return(1);
+ }
+ if ($log_buff !~ /Update completed successfully/) {
+ show_warning("WebDAV transfer failed!");
+ return(1);
+ }
return(0);
}
@@ -655,41 +846,111 @@ sub rsync_client {
$rsync_cmd = $rsync_cmd . "--password-file=$cfg_dir/rsync.user " if ($passwd_user ne '');
$rsync_cmd = $rsync_cmd . "$login_user\@" if ($login_user ne '');
$rsync_cmd = $rsync_cmd . "$host_name\:\:$host_path";
- system("$rsync_cmd > $log_file");
+ spawn_progress($rsync_cmd, "Running rsync");
return(0);
}
sub write_on_cd {
-print "burning cd...\n";
+ my $command;
+
+ #- check for a cd
+ $command = "cdrecord dev=$cd_device -atip";
+ spawn_progress($command, "Check for media in drive");
+ if ($log_buff =~ /No disk/) {
+ show_warning("No CDR/DVDR in drive!");
+ return(1);
+ }
+ if ($log_buff !~ /ATIP info from disk/) {
+ show_warning("Does not appear to be recordable media!");
+ return(1);
+ }
+ if (($log_buff =~ /Is not erasable/) && ($media_erase)) {
+ show_warning("Not erasable media!");
+ return(1);
+ }
+
+
if ($media_erase) {
- system("cdrecord -v dev=$cd_device blank=fast -data $save_path/drakbackup.iso >> $log_file 2>&1");
+ $command = "cdrecord -v dev=$cd_device blank=fast -data $save_path/drakbackup.iso";
} else {
- system("cdrecord -v dev=$cd_device -data $save_path/drakbackup.iso >> $log_file 2>&1");
+ $command = "cdrecord -v dev=$cd_device -data $save_path/drakbackup.iso";
}
+ spawn_progress($command, "Running cdrecord");
unlink("$save_path/drakbackup.iso");
}
+sub spawn_progress {
+ my ($command, $descr) = @_;
+ my $value;
+ my $timer;
+
+ $interactive and progress($pbar3, 0, _("$descr"));
+ $interactive and $pbar3->set_activity_mode(1);
+ $interactive and ($pbar3->set_value(0));
+ $interactive and ($timer = Gtk->timeout_add(2, \&progress_timeout));
+
+ $log_buff .= "\n" . $descr . ":\n\n";
+ open TMP, "$command 2>&1 |";
+ while ($value = <TMP>) {
+ $log_buff .= $value;
+ if ($interactive) {
+ $stext->set_text("$value");
+ Gtk->main_iteration while (Gtk->events_pending);
+ }
+ }
+ close TMP;
+ $interactive and $pbar3->set_activity_mode(0);
+ $interactive and Gtk->timeout_remove($timer);
+}
+
+sub progress_timeout {
+ my $new_val;
+ my $adj;
+ $new_val = $pbar3->get_value() + 1;
+ $adj = $pbar3->adjustment;
+ $new_val = $adj->lower if ($new_val > $adj->upper);
+ $pbar3->set_value($new_val);
+ return(1);
+}
+
sub build_iso {
- system("mkisofs -r -J -T -v -V 'Drakbackup' -o $save_path/drakbackup.iso $save_path > $log_file 2>&1");
+ my $command = "mkisofs -r -J -T -v -V 'Drakbackup' -o $save_path/drakbackup.iso @file_list_to_send_by_ftp";
+ spawn_progress($command, "Running mkisofs...");
}
sub build_cd {
- build_iso();
+ build_iso();
write_on_cd();
}
sub build_tape {
- unlink("$log_file");
+ my $command;
#- do we have a tape?
+ $command = "mt -f $tape_device status";
+ spawn_progress($command, "Checking for tape");
+ if ($log_buff =~ /DR_OPEN/) {
+ show_warning("No tape in $tape_device!");
+ return(1);
+ }
#- try to roll to the end of the data if we're not erasing
- system("mt -f $tape_device eod >> $log_file 2>&1") if (!$media_erase);
+ if (!$media_erase) {
+ $command = "mt -f $tape_device eod";
+ spawn_progress($command, "Running mt to find eod");
+ } else {
+ $command = "mt -f $tape_device rewind";
+ spawn_progress($command, "Running mt to rewind");
+ }
#- do the backup
- system("tar -cvf $tape_device $save_path >> $log_file 2>&1");
+ $command = "tar -cvf $tape_device @file_list_to_send_by_ftp";
+ spawn_progress($command, "Running tar to tape");
#- eject the tape?
- system("mt -f $tape_device rewoff >> $log_file 2>&1");
+ if ($media_eject) {
+ $command = "mt -f $tape_device rewoff";
+ spawn_progress($command, "Running mt to eject tape");
+ }
}
sub send_mail {
@@ -718,16 +979,20 @@ sub build_backup_files {
my $base_sys_exist = 0;
my $base_user_exist = 0;
my $base_other_exist = 0;
- my @list_temp = ();
+ my @list_temp ;
my @list_other_;
- my @dir_content = ();
+ my @dir_content;
my $file_date;
$results = "";
+ $log_buff = "";
+ #- flush this so if the user does 2 runs in a row we don't try to send the same files
+ @file_list_to_send_by_ftp = ();
+
$interactive and cursor_wait();
read_conf_file();
the_time();
$send_mail and complete_results();
- -d $save_path or mkdir_p($save_path);
+ -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 ";
@@ -754,7 +1019,7 @@ sub build_backup_files {
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");
+ 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 {
@@ -801,7 +1066,7 @@ sub build_backup_files {
$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_);
+ output_p($save_path . '/list_other', @list_other_);
}
$interactive and progress($pbar1, 1, _("Backup User files..."));
@@ -857,20 +1122,27 @@ sub build_backup_files {
$interactive and progress($pbar3, 0.4, _("Hard Disk Backup files..."));
}
+ my $filecount = @file_list_to_send_by_ftp;
+ if (!$filecount) {
+ show_warning("No changes to backup!");
+ $interactive and cursor_norm();
+ $interactive and show_status();
+ return(1);
+ }
+
#- rework to use $net_proto and then call the appropriate client app
#- still think this needs to be cleaned up more
#- should hit this block if running daemon mode only
if ($daemon && ($daemon_media ne '')) {
# ftp_client() if $ftp_daemon;
rsync_client() if $rsync_daemon;
- ssh_client() if $ssh_daemon;
+ ssh_client() if (($ssh_daemon) && !($use_expect));
+ do_expect("backup", "") if (($ssh_daemon) && ($use_expect));
webdav_client() if $webdav_daemon;
build_cd() if $cd_daemon;
build_tape() if $tape_daemon;
- $results .= _("\nDrakbackup activities via %s:\n\n", $daemon_media);
- $results .= cat_("$log_file");
-#-maybe keep this???
-#- unlink("$log_file");
+ $results .= _("\nDrakbackup activities via $daemon_media:\n\n") ;
+ $results .= $log_buff;
}
#- leave this one alone for now - works well
@@ -887,11 +1159,12 @@ sub build_backup_files {
#- consolidate all the other methods under here - interactive and --default should land here
if (!$daemon) {
- if ($where_net && ($net_proto ne '')) {
+ if ($where_net && ($net_proto ne '') && ($net_proto ne 'ftp')) {
rsync_client() if ($net_proto eq 'rsync');
- ssh_client() if ($net_proto eq 'ssh');
+ ssh_client() if (($net_proto eq 'ssh') && !($use_expect));
+ do_expect("backup", "") if (($net_proto eq 'ssh') && ($use_expect));
webdav_client() if ($net_proto eq 'webdav');
- $results .= _("\nDrakbackup activities via %s:\n\n", $net_proto);
+ $results .= _("\nDrakbackup activities via $net_proto:\n\n");
}
if ($where_cd) {
@@ -903,7 +1176,7 @@ sub build_backup_files {
build_tape();
$results .= _("\nDrakbackup activities via tape:\n\n");
}
- $results .= cat_("$log_file");
+ $results .= $log_buff;
}
@@ -913,6 +1186,28 @@ sub build_backup_files {
$interactive or print _(" Error during mail sending. \n");
}
}
+
+ #- write our catalog file
+ my $catalog = "HD:localhost:$save_path";
+ $catalog = "$net_proto:$host_name:$host_path" if ($net_proto ne '');
+ $catalog = "CD:localhost:$cd_device" if ($where_cd);
+ $catalog = "Tape:localhost:$tape_device" if ($where_tape);
+ $catalog .= ":$the_time";
+ $catalog .= ":System" if ($backup_sys);
+ $catalog .= ":I" if (($backup_sys_versions) && ($backup_sys));
+ $catalog .= ":F" if ((!$backup_sys_versions) && ($backup_sys));
+ $catalog .= ":Users=(@user_list)" if ($backup_user);
+ $catalog .= ":I" if (($backup_user_versions) && ($backup_user));
+ $catalog .= ":F" if ((!$backup_user_versions) && ($backup_user));
+ $catalog .= ":Other=(@list_other)" if (@list_other);
+ $catalog .= ":I" if (($backup_other_versions) && (@list_other));
+ $catalog .= ":F" if ((!$backup_other_versions) && (@list_other));
+ $catalog .= "\n";
+
+ open(CATALOG, ">> $cfg_dir/drakbackup_catalog") || show_warning("Can't create catalog!");
+ print(CATALOG $catalog);
+ close(CATALOG);
+
$interactive and cursor_norm();
$interactive and show_status();
}
@@ -927,7 +1222,7 @@ sub require_rpm {
# my($pkg) = @_;
foreach my $pkg (@_) {
# $res = grep /$pkg/, @file_cache;
- $res = system("rpm -qa | grep $pkg > /dev/null");
+ $res = system("rpm -q $pkg > /dev/null");
if ($res == 256) {
$all_rpms_found = 0;
push @list_of_rpm_to_install, $pkg;
@@ -941,10 +1236,11 @@ sub check_pkg_needs {
if ($where_net) {
$extra_pkg = 'rsync' if ($net_proto eq 'rsync');
$extra_pkg = 'sitecopy' if ($net_proto eq 'webdav');
+ $extra_pkg = 'perl-Expect' if (($net_proto eq 'ssh') && ($use_expect));
}
$extra_pkg = 'mt-st' if ($where_tape);
if ($extra_pkg ne '') {
- if(require_rpm($extra_pkg)) {
+ if (require_rpm($extra_pkg)) {
return(0);
} else {
#- this isn't entirely good, but it's the only way we get here currently
@@ -958,47 +1254,47 @@ sub check_pkg_needs {
sub cursor_wait {
# turn the cursor to a watch
- $window1->window->set_cursor( new Gtk::Gdk::Cursor( 150 ) );
+ $window1->window->set_cursor(new Gtk::Gdk::Cursor(150));
Gtk->main_iteration while Gtk->events_pending;
}
sub cursor_norm {
# restore normal cursor
- $window1->window->set_cursor( new Gtk::Gdk::Cursor( 68 ) );
+ $window1->window->set_cursor(new Gtk::Gdk::Cursor(68));
Gtk->main_iteration while Gtk->events_pending;
}
sub show_status {
#- just a generic routine to display an array of text in the GUI screen
- my @buff = cat_("$log_file");
my $text = new Gtk::Text(undef, undef);
- $box2->destroy();
-
- gtkadd($advanced_box,
+ $table->destroy();
+
+ gtkpack($advanced_box,
$box2 = gtkpack_(new Gtk::VBox(0,10),
1, gtkpack_(new Gtk::HBox(0,0),
- 1, gtktext_insert(gtkset_editable($text, 0), "@buff"),
+ 1, gtktext_insert(gtkset_editable($text, 0), "$results"),
+ 0, new Gtk::VScrollbar($text->vadj),
),
),
);
$central_widget = \$box2;
- $up_box->show_all();
+ $box2->show_all();
}
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);
+ 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 ($widget, $file_selection) = @_;
my $file_name = $file_selection->get_filename();
- if(!member($file_name, @list_other)) {
+ if (!member($file_name, @list_other)) {
push(@list_other, $file_name);
$list_other->add(gtkshow(new Gtk::ListItem($file_name)));
}
@@ -1007,7 +1303,7 @@ sub file_ok_sel {
sub filedialog_where_hd {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
+ $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() });
@@ -1018,7 +1314,7 @@ sub filedialog_where_hd {
sub filedialog_restore_find_path {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
+ $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() });
@@ -1029,7 +1325,7 @@ sub filedialog_restore_find_path {
sub filedialog {
my $file_dialog;
- $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
+ $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() });
@@ -1043,7 +1339,11 @@ sub filedialog {
sub check_list {
foreach (@_) {
my $ref = $_->[1];
- gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { invbool $ref })
+ gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
+ invbool $ref;
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
}
}
@@ -1076,9 +1376,9 @@ sub advanced_what_sys {
$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, 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),
),
@@ -1096,40 +1396,40 @@ sub advanced_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)") ),
- ),
- );
+ 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");}
+ 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();
}
@@ -1145,10 +1445,10 @@ sub advanced_what_other {
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(_("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),
+ 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]);
@@ -1169,9 +1469,9 @@ sub advanced_what_entire_sys{
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(); }),
+ clicked => sub { ${$central_widget}->destroy(); message_underdevel() }),
1, gtksignal_connect(my $button_what_all = new Gtk::Button(),
- clicked => sub { ${$central_widget}->destroy(); message_underdevel(); }),
+ clicked => sub { ${$central_widget}->destroy(); message_underdevel() }),
1, new Gtk::VBox(0, 5),
),
1, new Gtk::VBox(0, 5),
@@ -1204,11 +1504,11 @@ sub advanced_what{
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(); }),
+ 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();}),
+ 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(); }),
+ 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),
@@ -1216,12 +1516,12 @@ sub advanced_what{
1, new Gtk::VBox(0, 5),
),
);
- $button_what_sys->add( gtkpack(new Gtk::HBox(0,10),
+ $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),
+ $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)
@@ -1244,124 +1544,163 @@ sub advanced_what{
sub advanced_where_net_types {
my ($previous_function) = @_,
my $box_where_net;
- my $entry_net_type = new Gtk::Combo();
- $entry_net_type->set_popdown_strings(@net_methods);
-# $entry_net_type->set_value_in_list(1, 0);
- $entry_net_type->entry->set_text("$net_proto");
gtkpack($advanced_box,
- $box_where_net = gtkpack_(new Gtk::VBox(0, 15),
- 0, new Gtk::HSeparator,
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_where_use_net = new Gtk::CheckButton( _("Use network connection to backup") ),
- 1, new Gtk::HBox(0,10),
- 0, new Gtk::Label("Net Method:"),
- 0, gtkset_sensitive($entry_net_type, $where_net),
- ),
- 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),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $host_name_entry = new Gtk::Entry(), $where_net),
- ),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(_("Please enter the directory (or module) to\n put the backup on this host.")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net),
- ),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(_("Please enter your login")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $login_user_entry = new Gtk::Entry(), $where_net),
- ),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtkset_sensitive(new Gtk::Label(_("Please enter your password")), $where_net),
- 1, new Gtk::HBox(0,10),
- 0, gtkset_sensitive(my $passwd_user_entry = new Gtk::Entry(), $where_net),
- ),
- 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),
- ),
- ),
- );
+ $box_where_net = gtkpack_(new Gtk::VBox(0, 10),
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, my $check_where_use_net = new Gtk::CheckButton(_("Use network connection to backup") ),
+ 1, new Gtk::HBox(0,10),
+ 0, new Gtk::Label("Net Method:"),
+ 0, gtkset_sensitive(my $entry_net_type = new Gtk::Combo(), $where_net),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,5),
+ 0, gtkset_sensitive(my $check_use_expect = new Gtk::CheckButton(_("Use Expect for SSH")), ($where_net && ($net_proto eq 'ssh'))),
+ 0, gtkset_sensitive(my $check_xfer_keys = new Gtk::CheckButton(_("Create/Transfer\nbackup keys for SSH")), ($where_net && ($net_proto eq 'ssh'))),
+ 0, gtkset_sensitive(my $button_xfer_keys = new Gtk::Button(_(" Transfer \nNow")), $xfer_keys),
+ 0, gtkset_sensitive(my $check_user_keys = new Gtk::CheckButton(_("Keys in place already")), ($where_net && ($net_proto eq 'ssh'))),
+ ),
+ 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),
+ 1, new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(my $host_name_entry = new Gtk::Entry(), $where_net),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please enter the directory (or module) to\n put the backup on this host.")), $where_net),
+ 1, new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please enter your login")), $where_net),
+ 1, new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(my $login_user_entry = new Gtk::Entry(), $where_net),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please enter your password")), $where_net),
+ 1, new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(my $passwd_user_entry = new Gtk::Entry(), $where_net),
+ ),
+ 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),
+ ),
+ ),
+ );
+ $entry_net_type->set_popdown_strings(@net_methods);
+ $entry_net_type->entry->set_text("$net_proto");
+ $entry_net_type->entry->editable(0);
+ $button_xfer_keys->signal_connect('clicked', sub {
+ if (($passwd_user ne '') && ($login_user ne '') && ($host_name ne '')) {
+ do_expect("sendkey", $backup_key);
+ } else {
+ $in->ask_warn('',_("Need hostname, username and password!"));
+ }
+ });
$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()});
- $entry_net_type->entry->signal_connect( 'changed', sub { $net_proto = $entry_net_type->entry->get_text()});
+ $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() });
+ $entry_net_type->entry->signal_connect('changed', sub {
+ $net_proto = $entry_net_type->entry->get_text();
+ my $sensitive = 0;
+ $sensitive = 1 if ($net_proto eq 'ssh');
+ $check_use_expect->set_sensitive($sensitive);
+ $check_xfer_keys->set_sensitive($sensitive);
+ $button_xfer_keys->set_sensitive($sensitive);
+ $check_user_keys->set_sensitive($sensitive);
+ });
check_list ([$check_remember_pass, \$remember_pass]);
gtksignal_connect(gtkset_active($check_where_use_net, $where_net), toggled => sub {
invbool \$where_net;
#- assure other methods disabled
- if ($where_net = 1) {
+ if ($where_net eq 1) {
$where_cd = 0;
$where_tape = 0;
}
${$central_widget}->destroy();
$current_widget->();
});
+ gtksignal_connect(gtkset_active($check_use_expect, $use_expect), toggled => sub {
+ invbool \$use_expect;
+ #- assure other methods disabled
+ if ($use_expect eq 1) {
+ $xfer_keys = 0;
+ $user_keys = 0;
+ }
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
+ gtksignal_connect(gtkset_active($check_xfer_keys, $xfer_keys), toggled => sub {
+ invbool \$xfer_keys;
+ #- assure other methods disabled
+ if ($xfer_keys eq 1) {
+ $use_expect = 0;
+ $user_keys = 0;
+ }
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
+ gtksignal_connect(gtkset_active($check_user_keys, $user_keys), toggled => sub {
+ invbool \$user_keys;
+ #- assure other methods disabled
+ if ($user_keys eq 1) {
+ $xfer_keys = 0;
+ $use_expect = 0;
+ }
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
if ($previous_function) {
- fonction_env (\$box_where_net, \&advanced_where_net_types, \&$previous_function, "net" );
+ fonction_env (\$box_where_net, \&advanced_where_net_types, \&$previous_function, "net");
} else {
- fonction_env (\$box_where_net, \&advanced_where_net_types, \&advanced_where, "net" );
- }
- $up_box->show_all();
-}
-
-#- 7/4/2002 SB - obsolete - see advanced where net types
-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" );
+ fonction_env (\$box_where_net, \&advanced_where_net_types, \&advanced_where, "net");
}
$up_box->show_all();
}
sub advanced_where_cd {
- my ($previous_function) = @_,
+ my ($previous_function) = @_;
my $box_where_cd;
+
+ #- probe installed device capabilities
+ #- reworked the GUI a bit appropriately
+ get_cd_info();
+
+ my $combo_where_cd_device = new Gtk::Combo();
+ $combo_where_cd_device->set_popdown_strings (sort keys %cd_devices) if (keys %cd_devices);
+
my $combo_where_cd_time = new Gtk::Combo();
$combo_where_cd_time->set_popdown_strings ("650","700", "750", "800");
+ my $combo_where_cdrecord_device = new Gtk::Combo();
+ my @dev_codes;
+ my $key;
+
+ foreach $key (keys %cd_devices) {
+ push(@dev_codes, $cd_devices{$key}->{rec_dev});
+ }
+
+ $combo_where_cdrecord_device->set_popdown_strings (@dev_codes) if (keys %cd_devices);
+
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, 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),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please choose your CD/DVD device\n(Press Enter to propogate settings to other fields.\nThis field isn't necessary, only a tool to fill in the form.)")), $where_cd),
1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(gtkset_usize($combo_where_cd_time, 200, 20), $where_cd),
+ 0, gtkset_sensitive(gtkset_usize ($combo_where_cd_device, 200, 20), $where_cd),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please choose your CD/DVD media size")), $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),
@@ -1369,36 +1708,50 @@ sub advanced_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, 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),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please check if you want to erase your RW media")), $cdrw && $where_cd),
1, new Gtk::VBox(0, 5),
0, gtkset_sensitive(my $check_cdrw_erase = new Gtk::CheckButton(), $cdrw && $where_cd),
),
-# don't know what this is about - hold off for now (SB)
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),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please check if you are using a DVDR device")), $where_cd),
1, new Gtk::VBox(0, 5),
- 0, gtkset_sensitive(my $check_cd_with_install_boot = new Gtk::CheckButton(), $where_cd),
+ 0, gtkset_sensitive(my $check_dvdr = 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 are using a DVDRAM device")), $where_cd),
+ 1, new Gtk::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_dvdram = new Gtk::CheckButton(), $where_cd),
+ ),
+# don't know what this is about - hold off for now (SB)
+# 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_device_entry = new Gtk::Entry(), $where_cd), 200, 20),
+# 0, gtkset_usize (gtkset_sensitive($cd_device_entry = new Gtk::Entry(), $where_cd), 200, 20),
+ 0, gtkset_sensitive(gtkset_usize ($combo_where_cdrecord_device, 200, 20), $where_cd),
),
),
);
- foreach ([$check_cdrw_erase, \$media_erase], [$check_cd_with_install_boot, \$cd_with_install_boot ]) {
+# foreach ([$check_cdrw_erase, \$media_erase], [$check_cd_with_install_boot, \$cd_with_install_boot ]) {
+ foreach ([$check_cdrw_erase, \$media_erase], [$check_dvdr, \$dvdr], [$check_dvdram, \$dvdram]) {
my $ref = $_->[1];
- gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 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;
#- toggle where_net, where_tape off
- if ($where_cd = 1) {
+ if ($where_cd eq 1) {
$where_net = 0;
$where_tape = 0;
}
@@ -1407,14 +1760,30 @@ sub advanced_where_cd {
});
gtksignal_connect(gtkset_active($check_cdrw, $cdrw), toggled => sub {
$cdrw = $cdrw ? 0 : 1;
+ $check_cdrw_erase->set_sensitive($cdrw);
${$central_widget}->destroy();
$current_widget->();
});
- $cd_device_entry->set_text( $cd_device );
- $cd_device_entry->signal_connect( 'changed', sub { $cd_device = $cd_device_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()});
+ $combo_where_cdrecord_device->entry->set_text($cd_device);
+ $combo_where_cdrecord_device->entry->signal_connect('changed', sub { $cd_device = $combo_where_cdrecord_device->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() });
+ #- this one drives changes in the other entries
+ #- still not getting quite the desired behavior, but combo box signals seem to be limited
+ #- tried to trigger from the selection, but it either does nothing or crashes!
+
+#- $combo_where_cd_device->entry->set_text($std_device);
+ $combo_where_cd_device->entry->signal_connect('activate', sub {
+ $std_device = $combo_where_cd_device->entry->get_text();
+ $combo_where_cdrecord_device->entry->set_text($cd_devices{$std_device}->{rec_dev});
+ $check_dvdr->set_active($cd_devices{$std_device}->{dvdr});
+ $check_dvdram->set_active($cd_devices{$std_device}->{dvdram});
+ #- do this one last or the widget destory mucks up the others
+ $check_cdrw->set_active($cd_devices{$std_device}->{cdrw});
+ });
+
if ($previous_function) {
fonction_env(\$box_where_cd, \&advanced_where_cd, \&$previous_function, "");
} else {
@@ -1425,6 +1794,13 @@ sub advanced_where_cd {
sub advanced_where_tape {
my ($previous_function) = @_,
+
+ #- look for tape devices;
+ get_tape_info();
+
+ my $combo_where_tape_device = new Gtk::Combo();
+ $combo_where_tape_device->set_popdown_strings (@tape_devices) if (@tape_devices);
+
my $box_where_tape;
my $button;
my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
@@ -1433,24 +1809,36 @@ sub advanced_where_tape {
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, 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 ),
+ 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 $tape_device_entry = new Gtk::Entry(), $where_tape), 200, 20),
+ 0, gtkset_sensitive(gtkset_usize ($combo_where_tape_device, 200, 20), $where_tape),
),
- 0, new Gtk::VBox(0, 5),
+ 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 use the non-rewinding device.")), $where_tape),
+ 1, new Gtk::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_tape_rewind = new Gtk::CheckButton(), $where_tape),
+ ),
+ 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 tape before the backup.")), $where_tape),
1, new Gtk::VBox(0, 5),
0, gtkset_sensitive(my $check_tape_erase = new Gtk::CheckButton(), $where_tape),
),
+ 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 eject your tape after the backup.")), $where_tape),
+ 1, new Gtk::VBox(0, 5),
+ 0, gtkset_sensitive(my $check_tape_eject = new Gtk::CheckButton(), $where_tape),
+ ),
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, gtkset_usize (gtkset_sensitive(my $spinner = new Gtk::SpinButton($adj, 0, 0), $where_tape), 200, 20),
),
0, gtkpack_(new Gtk::HBox(0,10),),
),
@@ -1458,20 +1846,40 @@ sub advanced_where_tape {
gtksignal_connect(gtkset_active($check_where_tape, $where_tape), toggled => sub {
$where_tape = $where_tape ? 0 : 1;
#- assure other methods are off
- if ($where_tape = 1) {
+ if ($where_tape eq 1) {
$where_net = 0;
$where_cd = 0;
}
${$central_widget}->destroy();
$current_widget->();
});
+ gtksignal_connect(gtkset_active($check_tape_rewind, $tape_norewind), toggled => sub {
+ $tape_norewind = $tape_norewind ? 0 : 1;
+ $_ = $tape_device;
+ if ($tape_norewind) {
+ $tape_device =~ s/\/st/\/nst/;
+ } else {
+ $tape_device =~ s/\/nst/\/st/;
+ }
+ $combo_where_tape_device->entry->set_text($tape_device);
+ ${$central_widget}->destroy();
+ $current_widget->();
+
+ });
gtksignal_connect(gtkset_active($check_tape_erase, $media_erase), toggled => sub {
$media_erase = $media_erase ? 0 : 1;
${$central_widget}->destroy();
$current_widget->();
});
- $tape_device_entry->set_text( $tape_device );
- $tape_device_entry->signal_connect( 'changed', sub { $tape_device = $tape_device_entry->get_text()});
+ gtksignal_connect(gtkset_active($check_tape_eject, $media_eject), toggled => sub {
+ $media_eject = $media_eject ? 0 : 1;
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
+ $combo_where_tape_device->entry->set_text($tape_device);
+ $combo_where_tape_device->entry->signal_connect('changed', sub {
+ $tape_device = $combo_where_tape_device->entry->get_text();
+ });
if ($previous_function) {
fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function, "");
} else {
@@ -1493,28 +1901,28 @@ sub advanced_where_hd {
# 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 to:")), $where_hd ),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please enter the directory to save to:")), $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_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 ),
+ 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 ),
+ 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, 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, 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($_->[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;
@@ -1523,8 +1931,8 @@ sub advanced_where_hd {
# $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()});
+ $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 {
@@ -1568,7 +1976,7 @@ sub advanced_where{
1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub {
${$central_widget}->destroy();
# message_underdevel();
- advanced_where_tape(); }),
+ advanced_where_tape() }),
1, new Gtk::VBox(0, 5),
),
1, new Gtk::VBox(0, 5),
@@ -1626,7 +2034,7 @@ sub advanced_when{
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") ),
+ 0, my $check_when_daemon = new Gtk::CheckButton(_("Use daemon") ),
1, new Gtk::HBox(0,10),
),
0, new Gtk::HSeparator,
@@ -1654,9 +2062,9 @@ sub advanced_when{
${$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()}; });
- $entry_media_type->entry->signal_connect( 'changed', sub {
+ $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()} });
+ $entry_media_type->entry->signal_connect('changed', sub {
$daemon_media = $entry_media_type->entry->get_text();
set_daemon_media();
});
@@ -1702,7 +2110,7 @@ sub advanced_options{
# 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 :")),
+ 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(),
),
@@ -1711,8 +2119,8 @@ sub advanced_options{
);
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()});
+ $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();
}
@@ -1730,13 +2138,13 @@ sub advanced_box{
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(); }),
+ ${$central_widget}->destroy(); advanced_what() }),
1, gtksignal_connect(my $button_where = new Gtk::Button(), clicked => sub {
- ${$central_widget}->destroy(); advanced_where(); }),
+ ${$central_widget}->destroy(); advanced_where() }),
1, gtksignal_connect(my $button_when = new Gtk::Button(), clicked => sub {
- ${$central_widget}->destroy(); advanced_when(); }),
+ ${$central_widget}->destroy(); advanced_when() }),
1, gtksignal_connect(my $button_options = new Gtk::Button(), clicked => sub {
- ${$central_widget}->destroy(); advanced_options();}),
+ ${$central_widget}->destroy(); advanced_options() }),
1, new Gtk::VBox(0, 5),
),
1, new Gtk::VBox(0, 5),
@@ -1806,7 +2214,7 @@ sub wizard_step2 {
to_ok();
advanced_where_hd(\&wizard_step2);
to_normal();
- }), $where_hd ),
+ }), $where_hd),
),
0, gtkpack_(new Gtk::HBox(0, 15),
0, my $check_wizard_net = new Gtk::CheckButton(_("across Network")),
@@ -1817,26 +2225,26 @@ sub wizard_step2 {
to_ok();
advanced_where_net_types(\&wizard_step2);
to_normal();
- }), $where_net ),
+ }), $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),
-# ),
+ 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),
@@ -1844,23 +2252,23 @@ sub wizard_step2 {
);
# $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_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_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)}
+ 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();
}
@@ -1892,10 +2300,10 @@ sub wizard {
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) { $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) }
+ 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();
@@ -1907,8 +2315,8 @@ 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 @list_backup;
+ my @list_backup_tmp2;
my $to_put;
@sys_backuped = ();
my @list_backup_tmp;
@@ -1921,14 +2329,14 @@ sub find_backup_to_restore {
s/\_incr//gi;
push @list_backup , $_;
}
- if (grep /^backup_other/, @list_backup) {$other_backuped = 1;}
- if (grep /^backup_sys/, @list_backup) {$sys_backuped = 1;}
+ 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 ($date, $heure) = /^(.*)_([^_]*)$/;
my $year = substr($date, 0, 4);
my $month = substr($date, 4, 2);
my $day = substr($date, 6, 2);
@@ -1952,7 +2360,7 @@ sub find_backup_to_restore {
# 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;
+ grep (/^$nom$/, @user_list_backuped) or push @user_list_backuped, $nom;
}
}
@@ -1971,13 +2379,13 @@ sub system_state {
#- tape and CDRW share some features
my $erase_media = 'NO';
- $erase_media = 'YES' if ($media_erase);
+ $erase_media = 'YES' if (($media_erase) && ($where_cd || $where_tape));
$where_cd and $system_state .= _("\n- Burn to CD");
$where_cd and $cdrw and $system_state .= _("RW");
$where_cd and $system_state .= _(" on device : %s", $cd_device);
$where_tape and $system_state .= _("\n- Save to Tape on device : %s", $tape_device);
- $media_erase and $system_state .= _("\t\tErase=%s", $erase_media);
- ($where_cd || $where_tape) and $system_state .= "\n";
+ (($where_cd || $where_tape) && $media_erase) and $system_state .= _("\t\tErase=%s", $erase_media);
+ ($where_cd || $where_tape) and $system_state .= _("\n");
$where_net and $system_state .= _("\n- Save via %s on host : %s\n", $net_proto, $host_name);
$where_net and $system_state .= _("\t\t user name: %s\n\t\t on path: %s \n", $login_user, $host_path);
@@ -2004,7 +2412,7 @@ sub system_state {
}
sub restore_state {
- my @tmp = split( ' ', $restore_step_sys_date);
+ 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";
@@ -2016,7 +2424,7 @@ sub restore_state {
}
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"));
+ -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";
@@ -2027,15 +2435,15 @@ 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 , $_; }
+ 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 = ();
+ 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);
@@ -2047,12 +2455,12 @@ sub select_user_data_to_restore {
}
foreach my $var_tmp (@user_list_backuped) {
$var_eq = 1;
- my $more_recent = (split( ' ', select_most_recent_selected_of($var_tmp)))[0];
+ 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/ ) {
+ if (/$more_recent/) {
push @list_tmp , $_;
$var_eq = 0;
} else {
@@ -2063,8 +2471,8 @@ sub select_user_data_to_restore {
}
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/ ) {
+ foreach my $var_exist (sort @list_tmp2) {
+ if ($var_exist =~ /$var_to_restore/) {
push @user_list_to_restore, $var_exist;
}
}
@@ -2074,14 +2482,13 @@ sub select_user_data_to_restore {
sub select_sys_data_to_restore {
my $var_eq = 1;
- my @list_tmp = ();
- @sys_list_to_restore = ();
+ my @list_tmp;
-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 = 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/ ) {
+ if ($var_exist =~ /$more_recent/) {
push @sys_list_to_restore, $var_exist;
$var_eq = 0;
} else {
@@ -2096,7 +2503,7 @@ sub valid_backup_test {
@files_corrupted = ();
my $is_corrupted = 0;
foreach (@files_list) {
- if (system("gzip -l $path_to_find_restore/$_") > 1 ) {
+ if (system("gzip -l $path_to_find_restore/$_") > 1) {
push @files_corrupted, $_;
$is_corrupted = -1;
}
@@ -2287,15 +2694,15 @@ sub restore_step_user {
$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),
+ 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 = ();
+ $name = (split(' ',$name_complet))[0];
+ my @user_list_tmp;
my $b = new Gtk::CheckButton($name_complet);
- if ( grep $name_complet, @user_list_to_restore2) {
+ if (grep $name_complet, @user_list_to_restore2) {
gtkset_active($b, 1);
$check_user_to_restore{$name_complet}[1] = 1;
} else {
@@ -2306,11 +2713,11 @@ sub restore_step_user {
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;}
+ push @user_list_to_restore2, $name_complet }
} else {
$check_user_to_restore{$name_complet}[1] = 0;
foreach (@user_list_to_restore2) {
- $var2 = (split( ' ',$_))[0];
+ $var2 = (split(' ',$_))[0];
if ($name ne $var2) {
push @user_list_tmp, $_;
}
@@ -2323,8 +2730,8 @@ sub restore_step_user {
),
),
);
- 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)}
+ 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();
}
@@ -2345,14 +2752,14 @@ sub restore_step_sys {
1, new Gtk::VBox(0,10),
),
);
- $combo_restore_step_sys->entry->signal_connect( 'changed', sub {
+ $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)}
+ 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();
}
@@ -2366,24 +2773,24 @@ sub restore_other_media_hd {
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, 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 ),
+ 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_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 ),
+ 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 ),
+ 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, 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, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton(_("Use quota for backup files.")), $where_hd),
0, new Gtk::VBox(0, 6),
),
),
@@ -2395,10 +2802,10 @@ sub restore_other_media_hd {
$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, "")}
+ $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();
}
@@ -2414,7 +2821,7 @@ sub restore_find_net {
1, new Gtk::VBox(0,10),
1, gtksignal_connect(new Gtk::Button(_("FTP Connection")), clicked => sub {
$box_where_net->destroy();
- if ($previous_function ) {
+ if ($previous_function) {
message_underdevel();
# advanced_where_net_ftp(\&$previous_function);
} else {
@@ -2422,7 +2829,7 @@ sub restore_find_net {
}}),
1, gtksignal_connect(new Gtk::Button(_("Secure Connection")), clicked => sub {
$box_where_net->destroy();
- if ($previous_function ) {
+ if ($previous_function) {
# advanced_where_net_ssh(\&$previous_function);
} else {
# advanced_where_net_ssh();
@@ -2433,8 +2840,8 @@ sub restore_find_net {
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, "")}
+ 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();
}
@@ -2447,13 +2854,13 @@ sub restore_other_media {
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, 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 ),
+ 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_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 ),
+ filedialog_restore_find_path() }), $other_media_hd),
),
1, new Gtk::VBox(0, 6),
# 0, new Gtk::HSeparator,
@@ -2482,8 +2889,8 @@ sub restore_other_media {
# $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()});
+ $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() });
#- not sure if this was the original intent - address the crash at "Next"
fonction_env(\$box_find_restore, \&restore_other_media, \&restore_step2, "other_media", \&restore_do);
$up_box->show_all();
@@ -2495,12 +2902,12 @@ sub restore_step2 {
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; }
+ 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,
@@ -2514,17 +2921,17 @@ sub restore_step2 {
clicked => sub {
${$central_widget}->destroy();
restore_other_media();
- }), $restore_other_src ),
+ }), $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, 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 / )")),
+ 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_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),
),
@@ -2537,11 +2944,11 @@ sub restore_step2 {
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;}
+ 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 {
@@ -2555,13 +2962,13 @@ sub restore_step2 {
$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;}
+ 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(); });
+ $restore_path_entry->signal_connect('changed', sub { $restore_path = $restore_path_entry->get_text() });
$up_box->show_all();
}
@@ -2589,7 +2996,7 @@ sub restore_box {
$restore_sys = 1;
$restore_other = 1;
$restore_user = 1;
- restore_do(); }),
+ restore_do() }),
1, gtksignal_connect(new Gtk::Button(_("Custom Restore")),
clicked => sub { $retore_box->destroy();
button_box_restore();
@@ -2633,7 +3040,7 @@ sub button_box_adv {
}),
0, gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help );
+ adv_help(\&$current_widget,$custom_help);
}),
1, new Gtk::HBox(0, 1),
0, gtksignal_connect(new Gtk::Button(_("Previous")), clicked => sub {
@@ -2661,16 +3068,16 @@ sub button_box_restore_main {
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(); }),
+ ${$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(); }),
+ ${$central_widget}->destroy(); interactive_mode_box() }),
0, gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub {
- ${$central_widget}->destroy(); interactive_mode_box(); }),
+ ${$central_widget}->destroy(); interactive_mode_box() }),
),
),
);
@@ -2682,12 +3089,12 @@ sub button_box_backup_end {
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(); }),
+ ${$central_widget}->destroy(); interactive_mode_box() }),
0, gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
- ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help ); }),
+ ${$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->(); }),
+ ${$central_widget}->destroy(); $previous_widget->() }),
0, gtksignal_connect(new Gtk::Button(_("Build Backup")), clicked => sub {
${$central_widget}->destroy();
build_backup_status();
@@ -2708,7 +3115,7 @@ sub button_box_wizard_end {
}),
0, gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help );
+ adv_help(\&$current_widget,$custom_help);
}),
1, new Gtk::HBox(0, 1),
0, gtksignal_connect(new Gtk::Button(_("Previous")), clicked => sub {
@@ -2735,7 +3142,7 @@ sub button_box_restore_end {
}),
0, gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help );
+ adv_help(\&$current_widget,$custom_help);
}),
1, new Gtk::HBox(0, 1),
0, gtksignal_connect(new Gtk::Button(_("Previous")), clicked => sub {
@@ -2843,9 +3250,9 @@ sub button_box_wizard {
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(); }),
+ ${$central_widget}->destroy(); interactive_mode_box() }),
1, gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
- ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help); }),
+ ${$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();
@@ -3077,7 +3484,7 @@ sub progress {
my ($progressbar, $incr, $label_text) = @_;
my($new_val) = $progressbar->get_current_percentage;
$new_val += $incr;
- if ($new_val > 1) {$new_val = 1}
+ if ($new_val > 1) { $new_val = 1 }
$progressbar->update($new_val);
$progressbar->{label}->set($label_text);
Gtk->main_iteration while Gtk->events_pending;
@@ -3091,35 +3498,35 @@ sub find_backup_to_put_on_cd {
foreach (grep /^backup_other/, @list_backup) {
$other_backuped = 1;
chomp;
- my $tail = (split(' ',`du $save_path/$_` ))[0] ;
+ 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 @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] ;
+ 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 @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] ;
+ 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 @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;
}
@@ -3130,27 +3537,30 @@ sub build_backup_status {
$pbar1 = new Gtk::ProgressBar;
$pbar2 = new Gtk::ProgressBar;
$pbar3 = new Gtk::ProgressBar;
- button_box_build_backup_end();
+ $stext = new Gtk::Label("");
+ 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(' ' ) ],
- ),
- );
+ $table = gtkpack(new Gtk::VBox(0, 5),
+ 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(' ') ],
+ ),
+ $stext,
+ ),
+ );
$custom_help = "options";
$central_widget = \$table;
$up_box->show_all();
@@ -3171,15 +3581,15 @@ sub build_backup_ftp_status {
$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},
+ 1, create_packtable ({ col_spacings => 10, row_spacings => 5 },
# [ $pbar->set_show_text( $show_text );
[_("Sending files...")],
[""],
- [ $pbar->{label} = new Gtk::Label(' ' )],
+ [ $pbar->{label} = new Gtk::Label(' ') ],
[ $pbar],
[""],
[_("Total Progress")],
- [ $pbar3->{label} = new Gtk::Label(' ' ) ],
+ [ $pbar3->{label} = new Gtk::Label(' ') ],
[$pbar3],
),
1, new Gtk::VBox(0, 15),
@@ -3191,8 +3601,6 @@ sub build_backup_ftp_status {
Gtk->main_iteration while Gtk->events_pending;
}
-
-
sub build_backup_box_see_conf {
my $box2;
my $text = new Gtk::Text(undef, undef);
@@ -3221,7 +3629,7 @@ sub build_backup_box_progress {
}
sub aff_total_tail {
- my @toto = ();
+ my @toto ;
my $total = 0;
push @toto, (split (",", $_))[1] foreach @list_to_build_on_cd;
foreach (@toto) {
@@ -3244,11 +3652,11 @@ sub build_backup_cd_select_data {
$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),
+ 1, createScrolledWindow(gtkpack_(new Gtk::VBox(0,0),
map { my $name = $_;
- my @user_list_tmp = ();
+ my @user_list_tmp;
my $b = new Gtk::CheckButton($name);
- if ( grep $name , @list_to_build_on_cd) {
+ if (grep $name , @list_to_build_on_cd) {
gtkset_active($b, 1);
} else {
gtkset_active($b, 0);
@@ -3256,8 +3664,8 @@ sub build_backup_cd_select_data {
$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;}
+ 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) {
@@ -3291,19 +3699,19 @@ sub build_backup_cd_box {
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, 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, 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 ),
+ 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, 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),
@@ -3321,7 +3729,7 @@ sub build_backup_cd_box {
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_device_entry = new Gtk::Entry(), $where_cd), 100, 20),
+ 0, gtkset_usize (gtkset_sensitive($cd_device_entry = new Gtk::Entry(), $where_cd), 100, 20),
),
0, new Gtk::VBox(0, 5),
0, gtkpack_(new Gtk::HBox(0,10),
@@ -3333,14 +3741,14 @@ sub build_backup_cd_box {
);
foreach ([$check_cdrw_erase, \$media_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($_->[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) {
+ if ($where_cd) {
$next_widget = \&build_backup_cd_select_data;
} else {
$next_widget = \&build_backup_cd_box;
@@ -3353,18 +3761,18 @@ sub build_backup_cd_box {
$current_widget->();
});
- if($where_cd) {
+ if ($where_cd) {
$next_widget = \&build_backup_cd_select_data;
} else {
$next_widget = \&build_backup_cd_box;
}
- $cd_device_entry->set_text( $cd_device );
- $cd_device_entry->signal_connect( 'changed', sub {
+ $cd_device_entry->set_text($cd_device);
+ $cd_device_entry->signal_connect('changed', sub {
$cd_device = $cd_device_entry->get_text();
});
$combo_where_cd_time->entry->set_text($cd_time);
- $combo_where_cd_time->entry->signal_connect( 'changed', sub {
+ $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, "");
@@ -3386,13 +3794,13 @@ sub build_backup_box {
clicked => sub { ${$central_widget}->destroy();
build_backup_box_see_conf();
}),
- 0, new Gtk::VBox(0, 5),
+# 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),
+ 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();
@@ -3478,11 +3886,11 @@ sub interactive_mode {
$window1->set_position(1);
$window1->set_title(_("Drakbackup"));
my ($pix_u_map, $pix_u_mask) = gtkcreate_png("drakbackup.540x57");
- read_conf_file();
+ read_conf_file();
gtkadd($window1,
gtkpack(new Gtk::VBox(0,0),
- gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 540, 400),
+ 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),
@@ -3534,7 +3942,7 @@ sub adv_help {
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).
+ this compression mode needs more time (about 1000% more).
- The update mode:
@@ -3771,7 +4179,7 @@ Restore Step:
),
0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
gtksignal_connect(new Gtk::Button(_("OK")), clicked => sub {
- ${$central_widget}->destroy(); $function->();}),
+ ${$central_widget}->destroy(); $function->() }),
),
)
);