summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup301
1 files changed, 214 insertions, 87 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index e5316eb6f..39adf98ee 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -151,7 +151,8 @@ my $where_net_ftp = 0;
my $where_net_ssh = 0;
my $where_net = 0;
my $where_hd = 1;
-my $where_cd =0;
+my $where_cd = 0;
+my $where_tape = 0;
my $cd_time = 650;
my $when_space;
my $cd_with_install_boot = 0;
@@ -161,6 +162,7 @@ my $backupignore = 0;
my $auth_choice = 0;
my $remember_pass = 0;
my $passwd_user= '';
+my $save_device_tape = ();
foreach (@ARGV) {
/--default/ and $default = 1, $mode=-1;
@@ -198,6 +200,7 @@ sub save_conf_file {
"DAEMON_TIME_SPACE=$when_space\n",
"CDRW_DEVICE=$cd_devive\n",
"LOGIN=$login_user\n",
+ "TAPE_DEVICE=$save_device_tape\n",
"HOST_NAME=$host_name\n"
);
$where_net_ftp and push @cfg_list, "USE_NET_FTP\n" ;
@@ -272,7 +275,7 @@ sub read_conf_file {
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 (/^NO_SYS_VERSIONS/) { $backup_sys_versions = 0; }
+ if (/^NO_SYS_VERSIONS/){ $backup_sys_versions = 0; }
if (/^BROWSER_CACHE/) { $what_no_browser = 0; }
if (/^CDRW/) { $cdrw = 1; }
if (/^NET_PROTO/) { s/^NET_PROTO=//gi; $net_proto = $_; }
@@ -284,8 +287,9 @@ sub read_conf_file {
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 (/^DAEMON_TIME_SPACE/) { s/^DAEMON_TIME_SPACE=//gi; $when_space = $_; }
if (/^CD_WITH_INSTALL_BOOT/) { $cd_with_install_boot = 1; }
if (/^CDRW_DEVICE/) { s/^CDRW_DEVICE=//gi; $cd_devive = $_;}
if (/^HOST_NAME/) { s/^HOST_NAME=//gi; $host_name = $_;}
@@ -295,6 +299,7 @@ sub read_conf_file {
if (/^PASSWD/) { s/^PASSWD=//gi; $passwd_user = $_; $remember_pass = 1; }
if (/^USE_NET_FTP/) { $where_net_ftp = 1; }
if (/^USE_NET_SSH/) { $where_net_ssh = 1; }
+ if (/^TAPE_DEVICE/) { s/TAPE_DEVICE=//gi; $save_device_tape = $_;}
}
read_cron_files();
$cfg_file_exist = 1;
@@ -305,32 +310,37 @@ sub read_conf_file {
sub backup_status {
my $table;
- my $pbar = new Gtk::ProgressBar;
- my $pbar1 = new Gtk::ProgressBar;
- my $pbar2 = new Gtk::ProgressBar;
- my $pbar3 = new Gtk::ProgressBar;
+ $pbar = new Gtk::ProgressBar;
+ $pbar1 = new Gtk::ProgressBar;
+ $pbar2 = new Gtk::ProgressBar;
+ $pbar3 = new Gtk::ProgressBar;
+ build_backup_button_box_end();
gtkpack($advanced_box,
- $table = create_packtable({ col_spacings => 10, row_spacings => 20},
- ["", ""],
- ["", ""],
- [_("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 = create_packtable({ col_spacings => 10, row_spacings => 5},
+ [""],
+ [""],
+ [""],
+ [""],
+ [""],
+ [""],
+ [""],
+ [""],
+ [_("Backup system files")],
+ [ $pbar, $pbar->{label} = new Gtk::Label(' ' )],
+ [_("Backup user files") ],
+ [$pbar1,$pbar1->{label} = new Gtk::Label(' ' ) ],
+ [_("Backup other files")],
+ [ $pbar2, $pbar2->{label} = new Gtk::Label(' ' ) ],
+ [_("Total Progress")],
+ [$pbar3,$pbar3->{label} = new Gtk::Label(' ' ) ],
),
);
+ $custom_help = "options";
$central_widget = \$table;
$up_box->show_all();
- $interactive and progress($pbar, 0.5, _("Search installed fonts"));
Gtk->main_iteration while Gtk->events_pending;
}
-#sub backup_status_test {
-
-
-#}
-
-
sub return_path {
my $name = $_;
foreach (@user_and_path_list) {
@@ -357,8 +367,8 @@ sub build_backup_files {
my $tar_cmd;
my $tar_ext;
my @list_other_;
-
- $interactive and progress($pbar, 0.01, _("Search installed fonts"));
+
+
if ($comp_mode) { $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 "; $tar_ext = "tar.bz2" }
else { $tar_cmd = "tar cvz "; $tar_ext = "tar.gz"}
@@ -368,7 +378,10 @@ sub build_backup_files {
}
if ($where_hd) {
print "backup_sys @sys_files\n";
+ $interactive and progress($pbar, 0.5, _("Backup system files..."));
$backup_sys and system("$tar_cmd -f $save_path/backup_sys.$tar_ext @sys_files");
+ $interactive and progress($pbar, 0.5, _("Backup system files..."));
+ $interactive and progress($pbar3, 0.3, _("Hard Disk Backup files..."));
print "backup_other @list_other\n";
if (@list_other) {
system("$tar_cmd -f $save_path/backup_other.$tar_ext @list_other");
@@ -377,6 +390,8 @@ sub build_backup_files {
}
output_p( $save_path . '/list_other', @list_other_);
}
+ $interactive and progress($pbar1, 1, _("Backup User files..."));
+ $interactive and progress($pbar3, 0.3, _("Hard Disk Backup Progress..."));
if ($backup_user) {
foreach (@user_list) {
$path_name = return_path($_);
@@ -385,6 +400,8 @@ sub build_backup_files {
$what_no_browser and system("$tar_cmd --exclude NewCache --exclude Cache --exclude cache -f $save_path/backup_user_$_.$tar_ext $path_name");
}
}
+ $interactive and progress($pbar2, 1, _("Backup Other files..."));
+ $interactive and progress($pbar3, 0.4, _("Hard Disk Backup files..."));
}
if ($where_net_ssh) {
# $res = Net::SSLeay::write($ssl, $msg); # Perl knows how long $msg is
@@ -592,22 +609,22 @@ sub advanced_where_net_ftp {
0, my $check_where_net_ftp = new Gtk::CheckButton( _(" Use FTP connexion to backup") ),
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("please entrer the host name or IP."),
+ 1, gtkset_sensitive(new Gtk::Label(_("please entrer the host name or IP.")), $where_net_ftp),
1, gtkset_sensitive(my $host_name_entry = new Gtk::Entry(), $where_net_ftp),
0, new Gtk::HBox(0,10),
),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("please entrer the directory\n to put the backup on this host. "),
- 1, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net_ftp),
+ 1, gtkset_sensitive(new Gtk::Label(_("please entrer the directory\n to put the backup on this host. ")), $where_net_ftp),
+ 1, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net_ftp),
0, new Gtk::HBox(0,10),
),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("please entrer your login"),
+ 1, gtkset_sensitive(new Gtk::Label(_("please entrer your login")), $where_net_ftp),
0, gtkset_sensitive(my $login_user_entry = new Gtk::Entry(), $where_net_ftp),
0, new Gtk::HBox(0,10),
),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("please entrer your passord"),
+ 1, gtkset_sensitive(new Gtk::Label(_("please entrer your passord")), $where_net_ftp),
0, gtkset_sensitive(my $passwd_user_entry = new Gtk::Entry(), $where_net_ftp),
0, new Gtk::HBox(0,10),
),
@@ -713,29 +730,29 @@ sub advanced_where_cd {
0, my $check_where_cd = new Gtk::CheckButton( _(" Use CD/DVDROM to backup")),
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("please choose your CD space"),
+ 1, gtkset_sensitive(new Gtk::Label(_("please choose your CD space")), $where_cd),
0, gtkset_sensitive($combo_where_cd_time, $where_cd),
0, new Gtk::VBox(0, 5),
),
0, new Gtk::VBox(0, 5),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _(" Please check if you are using CDRW media"),
+ 1, gtkset_sensitive(new Gtk::Label(_(" Please check if you are using CDRW media")), $where_cd),
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),
- 1, _(" Please check if you want to include install boot on your CD."),
+ 1, gtkset_sensitive(new Gtk::Label(_(" Please check if you want to include\n install boot on your CD.")), $where_cd),
0, gtkset_sensitive(my $check_cd_with_install_boot = new Gtk::CheckButton(), $where_cd),
0, new Gtk::VBox(0, 5),
),
0, new Gtk::VBox(0, 5),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("please enter your CD Writer device name\n ex: 0,1,0"),
+ 1, gtkset_sensitive(new Gtk::Label(_("please enter your CD Writer device name\n ex: 0,1,0")), $where_cd),
0, gtkset_sensitive($cd_devive_entry = new Gtk::Entry(), $where_cd),
0, new Gtk::VBox(0, 5),
),
- ),
+ ),
);
foreach ([$check_cdrw, \$cdrw], [$check_cd_with_install_boot, \$cd_with_install_boot ]) {
my $ref = $_->[1];
@@ -757,6 +774,48 @@ sub advanced_where_cd {
$up_box->show_all();
}
+sub advanced_where_tape {
+ my ($previous_function) = @_,
+ my $box_where_tape;
+ my $button;
+ my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
+ my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("filedialog");
+
+ gtkpack($advanced_box,
+ $box_where_tape = gtkpack_(new Gtk::VBox(0, 6),
+ 0, new Gtk::HSeparator,
+ 0, my $check_where_tape = new Gtk::CheckButton( _(" Use tape to backup") ),
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, new Gtk::VBox(0, 6),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please entrer device name where backup ")), $where_tape ),
+ 1, gtkset_sensitive(my $save_device_tape_entry = new Gtk::Entry(), $where_tape),
+ 0, new Gtk::VBox(0, 6),
+ ),
+ 0, new Gtk::VBox(0, 6),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")), $where_tape),
+ 1, gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_tape ),
+ 0, new Gtk::VBox(0, 6),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ ),
+ ),
+ );
+ gtksignal_connect(gtkset_active($check_where_tape, $where_tape), toggled => sub {
+ $where_tape = $where_tape ? 0 : 1;
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
+ $save_device_tape_entry->set_text( $save_device_tape );
+ $save_device_tape_entry->signal_connect( 'changed', sub { $save_device_tape = $save_device_tape_entry->get_text()});
+ $current_widget = \&advanced_where_tape;
+ if ($previous_function) { $previous_widget =\&$previous_function; }
+ else { $previous_widget =\&advanced_where; }
+ $central_widget = \$box_where_tape;
+ $up_box->show_all();
+}
+
sub advanced_where_hd {
my ($previous_function) = @_,
my $box_where_hd;
@@ -771,7 +830,7 @@ sub advanced_where_hd {
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::HBox(0,10),
0, new Gtk::VBox(0, 6),
- 0, _("Please entrer the directory to save: "),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please entrer the directory to save: ")), $where_hd ),
1, gtkset_sensitive($save_path_entry = new Gtk::Entry(), $where_hd),
0, new Gtk::VBox(0, 6),
0, gtkset_sensitive($button = gtksignal_connect(new Gtk::Button(), clicked => sub {
@@ -779,7 +838,7 @@ sub advanced_where_hd {
),
0, new Gtk::VBox(0, 6),
0, gtkpack_(new Gtk::HBox(0,10),
- 0, _("Please entrer the maximum size allowed for Drakbackup "),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size allowed for Drakbackup ")), $where_hd ),
1, gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_hd ),
0, new Gtk::VBox(0, 6),
),
@@ -826,7 +885,9 @@ sub advanced_where{
${$central_widget}->destroy(); advanced_where_cd(); }),
1, gtksignal_connect(my $button_where_hd = new Gtk::Button(), clicked => sub {
${$central_widget}->destroy(); advanced_where_hd(); }),
- 1, new Gtk::VBox(0, 5),
+ 1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub {
+ ${$central_widget}->destroy(); advanced_where_tape(); }),
+ 1, new Gtk::VBox(0, 5),
),
1, new Gtk::VBox(0, 5),
),
@@ -846,6 +907,11 @@ sub advanced_where{
new Gtk::Label(_(" HardDrive / NFS ")),
new Gtk::HBox(0, 5)
));
+ $button_where_tape->add(gtkpack(new Gtk::HBox(0,10),
+ new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
+ new Gtk::Label(_(" Tape ")),
+ new Gtk::HBox(0, 5)
+ ));
$current_widget = \&advanced_where;
$previous_widget =\&advanced_box;
$central_widget = \$box_where;
@@ -871,13 +937,13 @@ sub advanced_when{
),
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("Please choose interval \nspace between each backup "),
+ 1, gtkset_sensitive(new Gtk::Label(_("Please choose interval \nspace between each backup ")), $backup_daemon),
0, gtkset_sensitive($combo_when_space, $backup_daemon),
1, new Gtk::HBox(0,10),
),
0, new Gtk::HBox(0,10),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, _("Please choose media to backup. "),
+ 1, gtkset_sensitive(new Gtk::Label(_("Please choose\nmedia to backup. ")), $backup_daemon),
0, gtkpack_(new Gtk::VBox(0,10),
0, gtkset_sensitive($check_where_cd_daemon = new Gtk::CheckButton(_(" Use CD/DVDROM with daemon")), $backup_daemon),
0, gtkset_sensitive($check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Drive with daemon")), $backup_daemon),
@@ -885,7 +951,7 @@ sub advanced_when{
),
),
0, new Gtk::HSeparator,
- 1, _("Please be careful that cron deamon is include on your services. "),
+ 1, gtkset_sensitive(new Gtk::Label(_("Please be careful that cron deamon is include on your services. ")), $backup_daemon),
),
);
foreach ([$check_where_cd_daemon, \$cd_daemon], [$check_where_hd_daemon, \$hd_daemon], [$check_where_net_daemon, \$net_daemon]) {
@@ -922,7 +988,7 @@ sub advanced_options{
0, gtkpack_(new Gtk::VBox(0,10),
0, my $check_tar_bz2 = new Gtk::CheckButton( _(" Use Tar and bzip2 ( very slow)") ),
0, my $check_replace = new Gtk::CheckButton( _(" Replace (no update backup files)")),
- 0, my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")),
+ 0, gtkset_sensitive(my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")), 0),
),
),
);
@@ -1024,39 +1090,58 @@ sub wizard_step2 {
0, gtkpack_(new Gtk::HBox(0, 15),
0, my $check_wizard_hd = new Gtk::CheckButton(_("on Hard Drive")),
1, new Gtk::VBox(0, 5),
- 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub {
- ${$central_widget}->destroy();
- advanced_where_hd(\&wizard_step2);
- }),
- ),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure it")),
+ clicked => sub {
+ ${$central_widget}->destroy();
+ advanced_where_hd(\&wizard_step2);
+ }), $where_hd ),
+ ),
0, gtkpack_(new Gtk::HBox(0, 15),
0, my $check_wizard_net = new Gtk::CheckButton(_("across Network")),
1, new Gtk::VBox(0, 5),
- 0, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub {
- ${$central_widget}->destroy();
- advanced_where_net(\&wizard_step2);
- }),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure it")),
+ clicked => sub {
+ ${$central_widget}->destroy();
+ advanced_where_net(\&wizard_step2);
+ }), $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, gtksignal_connect(new Gtk::Button(_("Configure it")), clicked => sub {
- ${$central_widget}->destroy();
- advanced_where_cd(\&wizard_step2);
- }),
+ 0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Configure it")),
+ 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 it")),
+ clicked => sub {
+ ${$central_widget}->destroy();
+ advanced_where_tape(\&wizard_step2);
+ }), $where_tape),
),
+ 1, new Gtk::VBox(0, 5),
+ ),
1, new Gtk::VBox(0, 5),
),
);
- $where_net = $where_net_ssh + $where_net_ftp;
- foreach ([$check_wizard_hd, \$where_hd], [$check_wizard_cd, \$where_cd], [$check_wizard_net, \$where_net]) {
+ $where_net = $where_net_ssh || $where_net_ftp;
+ foreach ([$check_wizard_hd, \$where_hd],
+ [$check_wizard_cd, \$where_cd],
+ [$check_wizard_net, \$where_net],
+ [$check_wizard_tape, \$where_tape]) {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
${$ref} = ${$ref} ? 0 : 1;
if (!$where_hd && !$where_cd && !$where_net) { $next_widget = \&message_noselect_box; }
else { $next_widget = \&wizard_step3; }
+ if(!$where_net) {$where_net_ssh = 0; $where_net_ftp = 0; }
+ else {$where_net_ftp = 1;}
+ ${$central_widget}->destroy();
+ wizard_step2();
})
}
if (!$where_hd && !$where_cd && !$where_net) { $next_widget = \&message_noselect_box; }
@@ -1096,17 +1181,14 @@ sub wizard {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
${$ref} = ${$ref} ? 0 : 1;
- if (!$backup_sys && !$backup_user) { $next_widget = \&message_noselect_box; }
- elsif (!$backup_sys && $backup_user && !@user_list_to_restore) { $next_widget = \&message_noselect_box; }
- else { $next_widget = \&wizard_step2; }
})}
if (!$backup_sys && !$backup_user) { $next_widget = \&message_noselect_box; }
- elsif (!$backup_sys && $backup_user && !@user_list_to_restore) { $next_widget = \&message_noselect_box; }
+ elsif (!$backup_sys && $backup_user && !@user_list) { $next_widget = \&message_noselect_box; }
else { $next_widget = \&wizard_step2; }
wizard_button_box();
$custom_help = "";
$central_widget = \$box2;
- $current_widget = \&advanced_box;
+ $current_widget = \&wizard;
$previous_widget =\&interactive_mode_box;
$up_box->show_all();
}
@@ -1116,8 +1198,8 @@ sub find_backup_to_restore {
my @user_backuped_tmp;
@user_backuped = ();
-d $save_path and my @list_backup = all($save_path);
- 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_user_/, @list_backup) {
chomp;
s/^backup_user_//gi;
@@ -1154,7 +1236,15 @@ sub system_state {
$system_state = ();
if ($cfg_file_exist) {
- $system_state .= _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\n");
+ $system_state .= _("Backup Sources: \n\n");
+ $system_state .= _("- System Files:\n");
+ $system_state .= _("\t\t$_\n") foreach @sys_files;
+ $system_state .= _("- Users Files:\n");
+ $system_state .= _("\t\t$_\n") foreach @user_list;
+ $system_state .= _("- Other Files:\n");
+ $system_state .= _("\t\t$_\n") foreach @list_other;
+ $system_state .= _("- Path to save backups: $save_path\n");
+ $system_state .= _("Options:\n");
$backup_sys or $system_state .= _("Do not include System Files\n");
if ($option_replace) { $system_state .= _("Replace backups (do not update)\n"); }
else { $system_state .= _("Update backups (do not replace)\n"); }
@@ -1169,11 +1259,11 @@ sub restore_state {
if ($restore_sys) { $restore_state .= "- Restore System Files.\n" }
if ($restore_user) {
$restore_state .= "- Restore Users Files: \n" ;
- $restore_state .= "\t\t\t\t\t\t$_\n" foreach @user_list_to_restore ;
+ $restore_state .= "\t\t$_\n" foreach @user_list_to_restore ;
}
if ($restore_other) {
- $restore_state .= "\n- Restore Other Files: \n";
- -f "$save_path/list_other" and $restore_state .= "$_\n" foreach split( "\n", cat_("$save_path/list_other"));
+ $restore_state .= "- Restore Other Files: \n";
+ -f "$save_path/list_other" and $restore_state .= "\t\t$_\n" foreach split( "\n", cat_("$save_path/list_other"));
}
}
@@ -1279,7 +1369,7 @@ sub restore_step_sys {
0, gtkpack_(new Gtk::HBox(0,10),
1, _("please choose the date to restore"),
0, $combo_retore_step_sys,
- 0, _(""),
+ 0, new Gtk::HBox(0,10),
),
1, new Gtk::VBox(0,10),
),
@@ -1338,6 +1428,7 @@ sub restore_box {
restore_button_box_main();
@user_list_to_restore = @user_backuped;
+ $DEBUG and print "other_backuped : $other_backuped \nsys_backuped : $sys_backuped \nuser_backuped : @user_backuped\n";
if ($other_backuped || $sys_backuped || @user_backuped) {
gtkpack($advanced_box,
$retore_box = gtkpack_(new Gtk::HBox(0,1),
@@ -1403,7 +1494,7 @@ sub restore_button_box_main {
${$central_widget}->destroy(); interactive_mode_box(); }),
gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub {
${$central_widget}->destroy();
- adv_help(\&$current_widget,$custom_help);
+ adv_help(\&$current_widget, $custom_help);
}),
),
),
@@ -1446,6 +1537,17 @@ sub restore_button_box_end {
);
}
+sub build_backup_button_box_end {
+ $button_box_tmp->destroy();
+
+ gtkpack($button_box,
+ $button_box_tmp = gtkpack(gtkset_layout(new Gtk::HButtonBox, -start),
+ gtksignal_connect(new Gtk::Button(_(" Close ")), clicked => sub {
+ ${$central_widget}->destroy(); interactive_mode_box(); }),
+ ),
+ );
+}
+
sub restore_button_box {
$button_box_tmp->destroy();
@@ -1586,34 +1688,61 @@ sub message_noconf_box {
$up_box->show_all();
}
+sub build_backup_box_see_conf {
+ my $box2;
+ my $text = new Gtk::Text(undef, undef);
+ system_state();
+ gtktext_insert($text, $system_state);
+ restore_button_box_main();
+
+ gtkpack($advanced_box,
+ $box2 = gtkpack_(new Gtk::HBox(0, 15),
+ 1, gtkpack_(new Gtk::VBox(0,10),
+ 0, _(" Drakbackup Configuration "),
+ 1, createScrolledWindow($text),
+ ),
+ ),
+ );
+ wizard_button_box_end();
+ $custom_help = "";
+ $central_widget = \$box2;
+ $current_widget = \&build_backup_box_see_conf;
+ $previous_widget =\&build_backup_box;
+ $up_box->show_all();
+}
+
sub build_backup_box {
$box2->destroy();
gtkadd($advanced_box,
$box2 = gtkpack_(new Gtk::HBox(0, 15),
1, new Gtk::VBox(0, 5),
- 1, gtkpack(new Gtk::VBox(0, 15),
- new Gtk::VBox(0, 5),
- new Gtk::VBox(0, 5),
- gtksignal_connect(new Gtk::Button(_(" Backup Now from configuration file ")), clicked => sub {
- ${$central_widget}->destroy();
- backup_status();
-# backup_status_test();
-# build_backup_files();
- }),
- new Gtk::VBox(0, 5),
- gtksignal_connect(new Gtk::Button(_(" Backup Now on Autoboot CDROM ")), clicked => sub {
- ${$central_widget}->destroy();
- restore_box();
- }),
- new Gtk::VBox(0, 5),
- new Gtk::VBox(0, 5),
- ),
+ 1, gtkpack_(new Gtk::VBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 1, gtksignal_connect(new Gtk::Button(_(" Backup Now from configuration file ")),
+ clicked => sub { ${$central_widget}->destroy();
+ backup_status();
+ build_backup_files();
+ }),
+ 0, new Gtk::VBox(0, 5),
+ 1, gtksignal_connect(new Gtk::Button(_(" Backup Now on Autoboot CDROM ")),
+ clicked => sub { ${$central_widget}->destroy();
+ restore_box();
+ }),
+ 0, new Gtk::VBox(0, 5),
+ 1, gtksignal_connect(new Gtk::Button(_(" View Backup Configuration. ")),
+ clicked => sub { ${$central_widget}->destroy();
+ build_backup_box_see_conf();
+ }),
+ 1, new Gtk::VBox(0, 5),
+ ),
1, new Gtk::VBox(0, 5),
),
);
+ $custom_help = "options";
restore_button_box_main();
$central_widget = \$box2;
+ $current_widget = \&build_backup_box;
$up_box->show_all();
}
@@ -1843,8 +1972,6 @@ Drakbacup allow to restore the system (etc, var files)
$up_box->show_all();
}
-
-
sub progress {
my ($progressbar, $incr, $label_text) = @_;
my($new_val) = $progressbar->get_current_percentage;