diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 236 |
1 files changed, 127 insertions, 109 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index a030f4dfa..92ff537ea 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -89,7 +89,6 @@ my @media_types = (translate(N_("hd")), "cd", translate(N_("tape"))); my %cd_devices; my $std_device; my @tape_devices; -my $tar_ext = "tar.gz"; my $in; # config. FILES -> Default PATH & Global variables. @@ -120,6 +119,7 @@ my @list_of_rpm_to_install; my @other_files; my @sys_files = "/etc"; my $host_passwd; +my $untar_prefix; # allow not-root user with own config if ($ENV{USER} ne 'root' && $ENV{HOME} ne '/root') { @@ -187,7 +187,7 @@ sub explain_conf() { print "NO_SYS_FILES Don't backup system files.\n"; print "NO_USER_FILES Don't backup user files.\n"; print "BACKUPIGNORE Honor .backupignore files in backup directories\n"; - print "OPTION_COMP Compression option (tar.gz is default, 1 = tar.bz2).\n"; + print "OPTION_COMP Compression option (tar.gz, tar.bz2, tar).\n"; print "NO_BROWSER_CACHE Skip web browser cache.\n"; print "CDRW Backup media is re-writable CD.\n"; print "DVDR Backup media is recordable DVD (not fully supported yet).\n"; @@ -501,6 +501,8 @@ sub upgrade_conf_file() { } elsif (/=/ && !/TAR.GZ/) { my $has_arg = split /=/; push @new_conf, "$_\n" if $has_arg > 1; + } elsif (/=/ && /TAR.GZ/) { + push @new_conf, "OPTION_COMP=tar.gz"; } } output_p($cfg_file, @new_conf); @@ -529,6 +531,7 @@ sub read_conf_file() { $conf{SMTP_SERVER} = "localhost" if !exists($conf{SMTP_SERVER}); $conf{MAX_SPACE} = 1000.0 if !exists($conf{MAX_SPACE}); $conf{USE_HD} = 1 if !exists($conf{USE_HD}); + $conf{OPTION_COMP} = "tar.gz" if !exists($conf{OPTION_COMP}); # deal with users that may have been deleted from the system check_valid_users() if $cfg_file_exist; $use_hd = !($conf{USE_CD} || $conf{USE_TAPE} || $conf{USE_NET}); @@ -1023,16 +1026,13 @@ sub build_backup_files() { the_time(); $conf{SEND_MAIL} and complete_results(); -d $conf{PATH_TO_SAVE} or mkdir_p($conf{PATH_TO_SAVE}); - - if ($conf{OPTION_COMP}) { - $DEBUG and $tar_cmd = "tar cvpj "; - $DEBUG or $tar_cmd = "tar cpj "; - $tar_ext = "tar.bz2"; - } else { - $DEBUG and $tar_cmd = "tar cvpz "; - $DEBUG or $tar_cmd = "tar cpz "; - $tar_ext = "tar.gz" - } + + $tar_cmd = "tar cp"; + $tar_cmd .= "v" if $DEBUG; + $tar_cmd .= "j" if $conf{OPTION_COMP} eq "tar.bz2"; + $tar_cmd .= "z" if $conf{OPTION_COMP} eq "tar.gz"; + $tar_cmd .= " "; + my $used_space = check_storage_quota($conf{PATH_TO_SAVE}); if ($used_space) { my $msg = N("Backup quota exceeded!\n%d MB used vs %d MB allocated.", $used_space, $conf{MAX_SPACE}); @@ -1063,6 +1063,7 @@ sub build_backup_files() { if ($conf{SYS_INCREMENTAL_BACKUPS}) { $base = $incr = "incr_sys"; ($base, $incr) = swap_prefix($base, $incr) if $conf{SYS_DIFFERENTIAL_BACKUPS}; + $base =~ s/incr/base/ if !any { /^list_incr_sys/ } @dir_content; if (any { /^list_base_sys/ } @dir_content) { $more_recent = get_more_recent($base, @dir_content); my $list_file = name_list_file($incr); @@ -1102,6 +1103,7 @@ sub build_backup_files() { if ($conf{USER_INCREMENTAL_BACKUPS}) { $base = $incr = "incr_user_"; ($base, $incr) = swap_prefix($base, $incr) if $conf{USER_DIFFERENTIAL_BACKUPS}; + $base =~ s/incr/base/ if !any { /^list_incr_user_$user/ } @dir_content; if (any { /^list_base_user_$user/ } @dir_content) { $more_recent = get_more_recent("$base$user", @dir_content); my $list_file = name_list_file($incr . $user); @@ -1137,6 +1139,7 @@ sub build_backup_files() { if ($conf{OTHER_INCREMENTAL_BACKUPS}) { $base = $incr = "incr_other"; ($base, $incr) = swap_prefix($base, $incr) if $conf{OTHER_DIFFERENTIAL_BACKUPS}; + $base =~ s/incr/base/ if !any { /^list_incr_other/ } @dir_content; if (any { /^list_base_other/ } @dir_content) { $more_recent = get_more_recent($base, @dir_content); my $list_file = name_list_file($incr); @@ -1262,7 +1265,7 @@ sub build_backup_files() { #- clean up HD files if del_hd_files and media isn't hd if ($conf{DEL_HD_FILES} && ($conf{USE_CD} || $conf{USE_TAPE} || $conf{USE_NET}) && $conf{DAEMON_MEDIA} ne 'hd') { foreach (@file_list_to_send_by_ftp) { - unlink($_) if /$tar_ext$/; + unlink($_) if /$conf{OPTION_COMP}$/; } } @@ -1320,7 +1323,7 @@ sub do_find { sub do_tar { my ($tar_cmd, $dest_file, $list_file, @files) = @_; - my $full_dest_file = $conf{PATH_TO_SAVE} . "/" . $dest_file . $the_time . "." . $tar_ext; + my $full_dest_file = $conf{PATH_TO_SAVE} . "/" . $dest_file . $the_time . "." . $conf{OPTION_COMP}; #- if $list_file is undefined, then use the @files list defined($list_file) ? system("$tar_cmd -f $full_dest_file -T $list_file") : system("$tar_cmd -f $full_dest_file @files"); push_list($dest_file); @@ -1329,14 +1332,14 @@ sub do_tar { sub push_list { my ($prefix) = @_; my $filename = $conf{PATH_TO_SAVE} . "/" . $prefix . $the_time . "."; - $filename .= $tar_ext if $prefix =~ /^backup/; + $filename .= $conf{OPTION_COMP} if $prefix =~ /^backup/; $filename .= "txt" if $prefix =~ /^list/; push @file_list_to_send_by_ftp, $filename; } sub files_to_results { my ($basename) = @_; - $results .= "\nfile: " . $conf{PATH_TO_SAVE} . "/backup_" . $basename . $the_time . "." . $tar_ext . "\n\n"; + $results .= "\nfile: " . $conf{PATH_TO_SAVE} . "/backup_" . $basename . $the_time . "." . $conf{OPTION_COMP} . "\n\n"; $results .= cat_("$conf{PATH_TO_SAVE}/list_" . $basename . $the_time . ".txt"); $results .= "\nignored:\n" . $ignore_files_list . "\n" if $ignore_files_list; } @@ -1447,39 +1450,15 @@ sub file_ok_sel { } } -sub filedialog_where_hd() { - my $file_dialog; - - $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy }); - $file_dialog->ok_button->signal_connect(clicked => sub { - $save_path_entry->set_text($file_dialog->get_filename); - $file_dialog->destroy }); - $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy }); - $file_dialog->show; -} - -sub filedialog_restore_find_path() { - my $file_dialog; - - $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy }); - $file_dialog->ok_button->signal_connect(clicked => sub { - $restore_find_path_entry->set_text($file_dialog->get_filename); - $file_dialog->destroy; - }); - $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy }); - $file_dialog->show; -} - sub filedialog_generic { #- a more generic file dialog - #- a title prompt, the widget to get updated and the variable to update - my ($prompt, $widget, $set_var) = @_; + #- a title prompt, the widget to get updated + my ($prompt, $widget) = @_; my $file_dialog; - $file_dialog = gtksignal_connect(new Gtk2::FileSelection(translate($prompt)), destroy => sub { $file_dialog->destroy }); + $file_dialog = gtksignal_connect(new Gtk2::FileSelection($prompt), destroy => sub { $file_dialog->destroy }); $file_dialog->ok_button->signal_connect(clicked => sub { - $$set_var = $file_dialog->get_filename; - $$widget->set_text($$set_var); + $$widget->set_text($file_dialog->get_filename); $file_dialog->destroy; }); $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy }); @@ -2069,7 +2048,7 @@ sub advanced_where_hd { 1, new Gtk2::VBox(0, 6), 0, gtkset_size_request(gtkset_sensitive($save_path_entry = new Gtk2::Entry(), $conf{USE_HD}), 152, 20), 0, gtkset_sensitive($button = gtksignal_connect(Gtk2::Button->new, clicked => sub { - filedialog_where_hd() + filedialog_generic(N("Directory to save to"), \$save_path_entry) }), $conf{USE_HD}), ), 0, new Gtk2::VBox(0, 6), @@ -2316,10 +2295,16 @@ sub combo_to_cron_string { sub advanced_options() { my $box_options; - + my $entry_comp_mode = new Gtk2::OptionMenu(); + $entry_comp_mode->set_popdown_strings("tar", "tar.gz", "tar.bz2"); + $entry_comp_mode->entry->set_text($conf{OPTION_COMP}); gtkpack($advanced_box, $box_options = gtkpack_(new Gtk2::VBox(0, 15), - 0, my $check_tar_bz2 = new Gtk2::CheckButton(N("Use tar and bzip2 (rather than tar and gzip)")), + 0, gtkpack_(new Gtk2::HBox(0,10), + 0, new Gtk2::Label(N("Please choose the compression type")), + 1, new Gtk2::HBox(0,10), + 0, $entry_comp_mode, + ), 0, my $check_backupignore = new Gtk2::CheckButton(N("Use .backupignore files")), 0, gtkpack_(new Gtk2::HBox(0,10), 0, my $check_mail = new Gtk2::CheckButton(N("Send mail report after each backup to:")), @@ -2337,11 +2322,12 @@ sub advanced_options() { ), ), ); - check_list([$check_mail, \$conf{SEND_MAIL}], [$check_tar_bz2, \$conf{OPTION_COMP}], [$check_del_hd_files, \$conf{DEL_HD_FILES}], [$check_backupignore, \$conf{BACKUPIGNORE}]); + check_list([$check_mail, \$conf{SEND_MAIL}], [$check_del_hd_files, \$conf{DEL_HD_FILES}], [$check_backupignore, \$conf{BACKUPIGNORE}]); $mail_entry->set_text($conf{USER_MAIL}); $mail_entry->signal_connect('changed', sub { $conf{USER_MAIL} = $mail_entry->get_text }); $smtp_entry->set_text($conf{SMTP_SERVER}); $smtp_entry->signal_connect('changed', sub { $conf{SMTP_SERVER} = $smtp_entry->get_text }); + $entry_comp_mode->entry->signal_connect('changed', sub { $conf{OPTION_COMP} = $entry_comp_mode->entry->get_text }); set_help_tip($check_backupignore, 'backupignore'); set_help_tip($check_mail, 'send_mail_to'); set_help_tip($check_del_hd_files, 'delete_files'); @@ -2593,8 +2579,7 @@ sub file_to_put { chomp; $name = "backup_" . $type . "_"; s/^$name//gi; - s/.tar.gz$//gi; - s/.tar.bz2$//gi; + s/.tar|.gz|.bz2$//gi; if ($type eq "user") { ($nom, $date, $heure) = /^(.*)_([^_]*)_([^_]*)$/; } else { @@ -2646,11 +2631,9 @@ sub system_state() { $system_state .= N("\n- Options:\n"); $conf{NO_SYS_FILES} and $system_state .= N("\tDo not include System Files\n"); - if ($conf{OPTION_COMP}) { - $system_state .= N("\tBackups use tar and bzip2\n"); - } else { - $system_state .= N("\tBackups use tar and gzip\n"); - } + $system_state .= N("\tBackups use tar and bzip2\n") if $conf{OPTION_COMP} eq "tar.bz2"; + $system_state .= N("\tBackups use tar and gzip\n") if $conf{OPTION_COMP} eq "tar.gz"; + $system_state .= N("\tBackups use tar only\n") if $conf{OPTION_COMP} eq "tar"; $system_state .= N("\tUse .backupignore files\n") if $conf{BACKUPIGNORE}; $system_state .= N("\tSend mail to %s\n", $conf{USER_MAIL}) if $conf{SEND_MAIL}; @@ -2719,8 +2702,7 @@ sub select_user_data_to_restore() { $var_eq = 1; my $more_recent = (split(' ', select_most_recent_selected_of($var_tmp)))[0]; foreach (grep { /^backup_user_$var_tmp/ } sort @list_backup) { - s/.tar.gz//gi; - s/.tar.bz2//gi; + s/.$conf{OPTION_COMP}//gi; if ($more_recent) { if (/$more_recent/) { push @list_tmp , $_; @@ -2794,27 +2776,32 @@ sub show_backup_details { my $value; my $command2; my $tarfile; - my $extension = ".tar.gz"; if ($mode eq "user") { #- we've only got a partial filename in this case - $tarfile = "$path_to_find_restore/backup_*" . $name . $extension; + $tarfile = "$path_to_find_restore/backup_*" . $name . ".tar*"; } if ($mode eq "sys") { #- funky string here we need to use to reconstruct the filename my @flist = split(/[ \t,]+/, $name); - $tarfile = "$path_to_find_restore/backup_*" . $flist[2] . $extension; + $tarfile = "$path_to_find_restore/backup_*" . $flist[2] . ".tar*"; + } + my @tarfiles = glob($tarfile); + if ($tarfiles[0] eq "") { + destroy_widget(); + $function->(); } + $tarfile = $tarfiles[0]; my $command1 = "stat " . $tarfile; - $command2 = "tar -tzvf " . $tarfile; - + + $command2 = "tar -tv"; + $command2 = set_tar($command2, $tarfile); + $command2 .= " $tarfile"; + + log::explanations("Running $command1"); + $archive_file_detail = `$command1 2>&1` . "\n\n"; + log::explanations("Running $command2"); local *TMP; - open TMP, "$command1 2>&1 |"; - while ($value = <TMP>) { - $archive_file_detail .= $value; - } - close TMP; - $archive_file_detail .= "\n\n"; open TMP, "$command2 2>&1 |"; while ($value = <TMP>) { #- drop the permissions display for the sake of readability @@ -2845,9 +2832,10 @@ sub valid_backup_test { my (@files_list) = @_; @files_corrupted = (); my $is_corrupted = 0; + my $comp_test; foreach (@files_list) { - #- let's quiet this down (SB) - if (system("gzip -l $path_to_find_restore/$_ > /dev/null 2>&1") > 1) { + $comp_test = set_tar("tar t", $_); + if (system("$comp_test $path_to_find_restore/$_ > /dev/null 2>&1") > 1) { push @files_corrupted, $_; $is_corrupted = -1; } @@ -2860,7 +2848,7 @@ sub restore_aff_backup_problems() { my $text = new Gtk2::TextView; my $restore_pbs_state = N("List of data corrupted:\n\n"); $restore_pbs_state .= "\t\t$_\n" foreach @files_corrupted; - $restore_pbs_state .= N("Please uncheck or remove it on next time."); + $restore_pbs_state .= N("Please uncheck or remove it for the next time."); gtktext_insert($text, [ [ $restore_pbs_state ] ]); button_box_restore_main(); @@ -2919,18 +2907,12 @@ sub return_path { } sub restore_backend() { - my $untar_cmd; + my $untar_cmd = "tar x"; my $exist_problem = 0; my $user_dir; my $username; local $_; -d $restore_path or mkdir_p $restore_path; - - if (any { /tar.gz$/ } all($path_to_find_restore)) { - $untar_cmd = "tar xzf"; - } else { - $untar_cmd = "tar xjf"; - } if ($restore_user) { select_user_data_to_restore(); @@ -2948,13 +2930,13 @@ sub restore_backend() { $user_dir = return_path($username); -d $user_dir and rm_rf($user_dir) if $remove_user_before_restore; + my $user_untar = set_tar($untar_cmd, $_); $DEBUG and print "user name to restore: $username, user directory: $user_dir\n"; - system("$untar_cmd $path_to_find_restore/$_ -C $restore_path"); + system("$user_untar $path_to_find_restore/$_ -C $restore_path"); } #- flush this out for another cycle (SB) @user_list_to_restore2 = (); } - } if ($restore_sys) { @@ -2963,7 +2945,10 @@ sub restore_backend() { $exist_problem = 1; restore_aff_backup_problems(); } else { - system("$untar_cmd $path_to_find_restore/$_ -C $restore_path") foreach @sys_list_to_restore; + foreach (@sys_list_to_restore) { + my $sys_untar = set_tar($untar_cmd, $_); + system("$sys_untar $path_to_find_restore/$_ -C $restore_path"); + } } } if ($restore_other) { @@ -2971,12 +2956,23 @@ sub restore_backend() { $exist_problem = 1; restore_aff_backup_problems(); } else { - system("$untar_cmd $path_to_find_restore/$_ -C $restore_path") foreach @other_list_to_restore; + foreach (@other_list_to_restore) { + my $other_untar = set_tar($untar_cmd, $_); + system("$other_untar $path_to_find_restore/$_ -C $restore_path"); + } } } $exist_problem or restore_aff_result(); } +sub set_tar { + my ($untar_cmd, $filename) = @_; + $untar_cmd .= "z" if $filename =~ /tar.gz$/; + $untar_cmd .= "j" if $filename =~ /tar.bz2$/; + $untar_cmd .= "f"; + return $untar_cmd; +} + sub restore_do() { if ($backup_bef_restore) { if ($restore_sys) { @@ -3060,7 +3056,7 @@ sub restore_step_user() { my @user_list_tmp; my $restore_row = new Gtk2::HBox(0,5); my $b = new Gtk2::CheckButton($name_complet); - my $details = Gtk2::Button->new(" Details "); + my $details = Gtk2::Button->new(N("Details")); $restore_row->pack_start($b, 1, 1, 0); $restore_row->pack_end(new Gtk2::VBox(1,5), 0, 0, 0); @@ -3115,13 +3111,14 @@ sub restore_step_sys() { my $restore_step_sys; my $combo_restore_step_sys = new Gtk2::OptionMenu(); $combo_restore_step_sys->set_popdown_strings(@sys_backuped); + $combo_restore_step_sys->entry->set_text($restore_step_sys_date); gtkpack($advanced_box, $restore_step_sys = gtkpack_(new Gtk2::VBox(0,10), 0, N("Please choose the date to restore:"), 0, gtkpack_(new Gtk2::HBox(0,10), 1, new Gtk2::HBox(0,10), 0, $combo_restore_step_sys, - 0, my $details = Gtk2::Button->new(" Details "), + 0, my $details = Gtk2::Button->new(N("Details")), 1, new Gtk2::HBox(0,10), ), ), @@ -3132,11 +3129,10 @@ sub restore_step_sys() { $details->signal_connect('clicked', sub { #- we're only passing a portion of the filename to #- the subroutine so we need to let it know this - my $backup_date = $combo_restore_step_sys->entry->get_text; + $restore_step_sys_date = $combo_restore_step_sys->entry->get_text; destroy_widget(); - show_backup_details(\&restore_step_sys, "sys", $backup_date); + show_backup_details(\&restore_step_sys, "sys", $restore_step_sys_date); }); - $combo_restore_step_sys->entry->set_text($restore_step_sys_date); fonction_env(\$restore_step_sys, \&restore_step_sys, \&restore_step2, "restore"); if ($restore_user) { fonction_env(\$restore_step_sys, \&restore_step_sys, \&restore_step2, \&restore_step_user); @@ -3161,7 +3157,7 @@ sub restore_other_media() { 1, new Gtk2::VBox(0, 6), 0, gtkset_size_request(gtkset_sensitive($restore_find_path_entry = new Gtk2::Entry(), $other_media_hd), 152, 20), 0, gtkset_sensitive($button = gtksignal_connect(Gtk2::Button->new, clicked => sub { - filedialog_restore_find_path(); + filedialog_generic(N("Directory with backups"), \$restore_find_path_entry); }), $other_media_hd), ), 1, new Gtk2::VBox(0, 6), @@ -3191,7 +3187,7 @@ sub restore_step2() { $restore_info_path = $path_to_find_restore if $conf{USE_HD} || $conf{USE_CD}; my $info_prefix = "backup"; $info_prefix = "list" if $conf{USE_NET} || $conf{USE_TAPE}; - + if (any { /_other_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $other_exist = 1; } else { @@ -3208,6 +3204,7 @@ sub restore_step2() { $user_exist = 0; $restore_user = 0; } + my $restore_path_entry = new Gtk2::Entry(); gtkpack($advanced_box, $retore_step2 = gtkpack_(new Gtk2::VBox(0,10), 1, new Gtk2::VBox(0,10), @@ -3224,9 +3221,12 @@ sub restore_step2() { 0, gtkset_sensitive(my $check_restore_user = new Gtk2::CheckButton(N("Restore Users")), $user_exist), 0, gtkset_sensitive(my $check_restore_other = new Gtk2::CheckButton(N("Restore Other")), $other_exist), 0, gtkpack_(new Gtk2::HBox(0,10), - 0, my $check_restore_other_path = new Gtk2::CheckButton(N("select path to restore (instead of /)")), + 0, my $check_restore_other_path = new Gtk2::CheckButton(N("Select path to restore (instead of /)")), 1, new Gtk2::HBox(0,10), - 0, gtkset_sensitive(my $restore_path_entry = new Gtk2::Entry(), $restore_other_path), + 0, gtkset_sensitive($restore_path_entry, $restore_other_path), + 0, gtksignal_connect(my $button = new Gtk2::Button->new, clicked => sub { + filedialog_generic(N("Path To Restore To"), \$restore_path_entry); + }), ), 0, gtkset_sensitive(my $check_backup_bef_restore = new Gtk2::CheckButton(N("Do new backup before restore (only for incremental backups.)")), $conf{SYS_INCREMENTAL_BACKUPS} || $conf{USER_INCREMENTAL_BACKUPS}), @@ -3279,8 +3279,12 @@ sub restore_step2() { } else { $next_widget = \&restore_do; } + $button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32"))); $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; + $untar_prefix = "tar -C $restore_path -x"; + }); $up_box->show_all; } @@ -3501,8 +3505,8 @@ sub catalog_restore { 0, new Gtk2::Label("Restore To Path"), 0, $restore_path_entry = new Gtk2::Entry(), ), - 1, gtksignal_connect(Gtk2::Button->new(N("Change\nRestore Path")), clicked => sub { - filedialog_generic("Path To Restore To", \$restore_path_entry, \$restore_path); + 0, gtksignal_connect(my $button = new Gtk2::Button(), clicked => sub { + filedialog_generic(N("Path To Restore To"), \$restore_path_entry); }), ), 0, new Gtk2::VBox(0,10), @@ -3512,8 +3516,11 @@ sub catalog_restore { ); $restore_path_entry->set_text($restore_path); - gtksignal_connect($restore_path_entry, changed => sub { $restore_path = $restore_path_entry->get_text }); - + gtksignal_connect($restore_path_entry, changed => sub { + $restore_path = $restore_path_entry->get_text; + $untar_prefix = "tar -C $restore_path -x"; + }); + $button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32"))); button_box_restore(); fonction_env(\$catalog_box, \&catalog_restore, \&restore_find_media_box, \&catalog_restore) if $call_method eq "need media";; fonction_env(\$catalog_box, \&catalog_restore, \&restore_box, \&catalog_restore) if $call_method eq "button"; @@ -3556,7 +3563,7 @@ sub restore_catalog_entry { if ($media eq 'HD') { #- shouldn't really happen, should have just browsed #- to the $conf{PATH_TO_SAVE} in the previous step - deal with it anyway - my @restore_tar_files = glob("$dev_path/*$backup_time*$tar_ext"); + my @restore_tar_files = glob("$dev_path/*$backup_time*$conf{OPTION_COMP}"); my $matches = @restore_tar_files; if ($matches == 0) { show_warning("f", N("Backup files not found at %s.", $dev_path)); @@ -3646,21 +3653,23 @@ sub restore_hd_or_cd { my ($cat_entry, $tarfile_dir, @restore_files) = @_; my $indv_files = @restore_files; my $command; - + my $wild_card = catalog_to_wildcard($cat_entry); if ($indv_files == 0) { #- full catalog specified foreach (wildcard_to_tarfile($wild_card)) { - $command = "tar -C $restore_path -xzf $tarfile_dir/$_"; + my $untar_cmd = set_tar($untar_prefix, $_); + $command = "$untar_cmd $tarfile_dir/$_"; spawn_progress($command, "Untarring from \n$_ \nto $restore_path."); } } else { #- individual files - pull from appropriate catalog foreach (@restore_files) { my $tarfile = file_to_tarfile($_, $wild_card); + my $untar_cmd = set_tar($untar_prefix, $tarfile); $_ = substr($_, 1); - $command = "tar -C $restore_path -xzf $tarfile_dir/$tarfile $_"; + $command = "$untar_cmd $tarfile_dir/$tarfile $_"; spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path."); } } @@ -3686,7 +3695,8 @@ sub restore_tape { $command = "tar -C $cfg_dir/restores -xf $dev_path"; spawn_progress($command, "Untarring from $dev_path to work directory."); if (-e "$cfg_dir/restores/$conf{PATH_TO_SAVE}/$_") { - $command = "tar -C $restore_path -xzf $cfg_dir/restores/$conf{PATH_TO_SAVE}/$_"; + my $untar_cmd = set_tar($untar_prefix, $_); + $command = "$untar_cmd $cfg_dir/restores/$conf{PATH_TO_SAVE}/$_"; spawn_progress($command, "Untarring \n$_ \nto $restore_path."); } else { return 1; @@ -3707,7 +3717,8 @@ sub restore_tape { spawn_progress($command, "Untarring from $dev_path to work directory."); } if (-e "$cfg_dir/restores/$tarfile") { - $command = "tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_"; + my $untar_cmd = set_tar($untar_prefix, $_); + $command = "$untar_cmd $cfg_dir/restores/$tarfile $_"; spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path."); } else { return 1; @@ -3738,7 +3749,8 @@ sub restore_ftp { foreach (wildcard_to_tarfile($wild_card)) { $ftp->get($_, "$cfg_dir/restores/$_"); if (-e "$cfg_dir/restores/$_") { - $command = "tar -C $restore_path -xzf $cfg_dir/restores/$_"; + my $untar_cmd = set_tar($untar_prefix, $_); + $command = "$untar_cmd $cfg_dir/restores/$_"; spawn_progress($command, "Untarring \n$_ \nto $restore_path."); } else { show_warning("f", N("%s not retrieved...", $_)); @@ -3754,7 +3766,8 @@ sub restore_ftp { $ftp->get($tarfile, "$cfg_dir/restores/$tarfile"); } if (-e "$cfg_dir/restores/$tarfile") { - $command = "tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_"; + my $untar_cmd = set_tar($untar_prefix, $tarfile); + $command = "$untar_cmd $cfg_dir/restores/$tarfile $_"; spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path."); } else { show_warning("f", N("%s not retrieved...", $tarfile)); @@ -3783,7 +3796,8 @@ sub restore_rsync_ssh_webdav { } spawn_progress($command, "Retrieving backup file \n$_ \nvia $mode."); if (-e "$cfg_dir/restores/$_") { - $command = "tar -C $restore_path -xzf $cfg_dir/restores/$_"; + my $untar_cmd = set_tar($untar_prefix, $_); + $command = "$untar_cmd $cfg_dir/restores/$_"; spawn_progress($command, "Untarring \n$_ \nto $restore_path."); } else { return 1; @@ -3805,7 +3819,8 @@ sub restore_rsync_ssh_webdav { spawn_progress($command, "Retrieving backup file \n$tarfile \nvia $mode."); } if (-e "$cfg_dir/restores/$tarfile") { - $command = "tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_"; + my $untar_cmd = set_tar($untar_prefix, $tarfile); + $command = "$untar_cmd $cfg_dir/restores/$tarfile $_"; spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path."); } else { return 1; @@ -3827,7 +3842,7 @@ sub wildcard_to_tarfile { my (@tarfile) = glob("$conf{PATH_TO_SAVE}/*$wildcard.txt"); foreach (@tarfile) { $_ = basename($_); - s/txt/$tar_ext/; + s/txt/$conf{OPTION_COMP}/; s/list/backup/; } @tarfile; @@ -3838,7 +3853,7 @@ sub file_to_tarfile { my $tarfile = `grep -l $restore_file $conf{PATH_TO_SAVE}/*$wildcard.txt`; chop $tarfile; $tarfile = basename($tarfile); - $tarfile =~ s/txt/$tar_ext/; + $tarfile =~ s/txt/$conf{OPTION_COMP}/; $tarfile =~ s/list/backup/; $tarfile; } @@ -3948,7 +3963,7 @@ sub restore_find_media_box() { }), $mount_media), $new_path_entry = gtkset_sensitive(new Gtk2::Entry(), $mount_media), gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Browse to new restore repository.")), clicked => sub { - filedialog_generic("Directory To Restore From", \$new_path_entry, \$path_to_find_restore); + filedialog_generic(N("Directory To Restore From"), \$new_path_entry); }), $mount_media), gtksignal_connect(Gtk2::Button->new(N("Restore From Catalog")), clicked => sub { $box2->destroy; @@ -3966,6 +3981,9 @@ sub restore_find_media_box() { ), ); $new_path_entry->set_text($path_to_find_restore); + $new_path_entry->signal_connect('changed', sub { + $path_to_find_restore = $new_path_entry->get_text; + }); $central_widget = \$box2; button_box_find_media($mount_media); |