summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbackup116
1 files changed, 85 insertions, 31 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index e42126615..9a947f68c 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -785,7 +785,7 @@ sub do_expect {
#- temporarily disabled
# use Expect;
-show_warning("w", __("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."));
+show_warning("w", __("Sorry, perl-Expect is not installed/enabled. To use\nthis feature, install perl-Expect and comment lines 772-774,\n as well as 788,789. Then uncomment line 787."));
return(1);
#- for debugging set to 1
@@ -847,13 +847,13 @@ return(1);
[ '-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("f","No password prompt on $host_name at port $scp_port") }
- if ($bad_passwd) { show_warning("f", "Bad password on $host_name") }
- if ($no_perm) { show_warning("f", "Permission denied transferring $_ to $host_name") }
- if ($bad_dir) { show_warning("f", "Can't find $host_path on $host_name") }
+ if (!$spawn_ok) { show_warning("f", _("No password prompt on $host_name at port $scp_port")) }
+ if ($bad_passwd) { show_warning("f", _("Bad password on $host_name")) }
+ if ($no_perm) { show_warning("f", _("Permission denied transferring $_ to $host_name")) }
+ if ($bad_dir) { show_warning("f", _("Can't find $host_path on $host_name")) }
}
],
- [ timeout => sub { show_warning("f", "$host_name not responding") } ],
+ [ timeout => sub { show_warning("f", _("$host_name not responding")) } ],
);
my $exit_stat = $exp->exitstatus;
@@ -1084,7 +1084,7 @@ sub build_tape {
$command = "mt -f $tape_device status";
spawn_progress($command, "Checking for tape");
if ($log_buff =~ /DR_OPEN/) {
- show_warning("f", "No tape in $tape_device!");
+ show_warning("f", _("No tape in $tape_device!"));
return(1);
}
@@ -3437,6 +3437,8 @@ sub restore_catalog_entry {
# if it's remote storage, display what we know of the connection
# parameters and get the user's verification, then connect
+ restore_status();
+
my ($cat_entry, @restore_files) = @_;
my $username;
my $userpass = $passwd_user;
@@ -3528,21 +3530,21 @@ sub restore_catalog_entry {
if (($media eq 'ftp') || ($media eq 'rsync')) {
if ($userpass eq '') {
- show_warning("f", _("Password required"));
+ show_warning("f", __("Password required"));
return(0);
}
}
if (($media eq 'ftp') || ($media eq 'rsync') || ($media eq 'ssh')) {
if ($username eq '') {
- show_warning("f", _("Username required"));
+ show_warning("f", __("Username required"));
return(0);
} elsif ($vol_host eq '') {
- show_warning("f", _("Hostname required"));
+ show_warning("f", __("Hostname required"));
return(0);
}
}
if ($dev_path eq '') {
- show_warning("f", _("Path or Module required"));
+ show_warning("f", __("Path or Module required"));
return(0);
}
@@ -3567,20 +3569,23 @@ sub restore_catalog_entry {
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 eq 0) {
#- full catalog specified
foreach (wildcard_to_tarfile($wild_card)) {
- system("tar -C $restore_path -xzf $tarfile_dir/$_");
+ $command = "tar -C $restore_path -xzf $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);
$_ = substr($_, 1);
- system("tar -C $restore_path -xzf $tarfile_dir/$tarfile $_");
+ $command = "tar -C $restore_path -xzf $tarfile_dir/$tarfile $_";
+ spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path.");
}
}
return(0);
@@ -3589,6 +3594,7 @@ sub restore_hd_or_cd {
sub restore_tape {
my ($cat_entry, $dev_path, @restore_files) = @_;
my $indv_files = @restore_files;
+ my $command;
my $wild_card = catalog_to_wildcard($cat_entry);
$dev_path =~ s/\/st/\/nst/;
@@ -3597,11 +3603,15 @@ sub restore_tape {
#- full catalog specified
foreach (wildcard_to_tarfile($wild_card)) {
my $offset = find_tape_offset($cat_entry);
- system("mt -f $dev_path rewind");
- system("mt -f $dev_path fsf $offset");
- system("tar -C cfg_dir/restores -xf $dev_path");
+ $command = "mt -f $dev_path rewind";
+ spawn_progress($command, "Rewinding tape on $dev_path.");
+ $command = "mt -f $dev_path fsf $offset";
+ spawn_progress($command, "Moving forward $offset file records.");
+ $command = "tar -C cfg_dir/restores -xf $dev_path";
+ spawn_progress($command, "Untarring from $dev_path to work directory.");
if (-e "$cfg_dir/restores/$_") {
- system("tar -C $restore_path -xzf $cfg_dir/restores/$_");
+ $command = "tar -C $restore_path -xzf $cfg_dir/restores/$_";
+ spawn_progress($command, "Untarring \n$_ \nto $restore_path.");
} else {
return(1);
}
@@ -3613,12 +3623,16 @@ sub restore_tape {
$_ = substr($_, 1);
if (!-e "$cfg_dir/restores/$tarfile") {
my $offset = find_tape_offset($cat_entry);
- system("mt -f $dev_path rewind");
- system("mt -f $dev_path fsf $offset");
- system("tar -C cfg_dir/restores -xf $dev_path");
+ $command = "mt -f $dev_path rewind";
+ spawn_progress($command, "Rewinding tape on $dev_path.");
+ $command = "mt -f $dev_path fsf $offset";
+ spawn_progress($command, "Moving forward $offset file records.");
+ $command = "tar -C cfg_dir/restores -xf $dev_path";
+ spawn_progress($command, "Untarring from $dev_path to work directory.");
}
if (-e "$cfg_dir/restores/$tarfile") {
- system("tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_");
+ $command = "tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_";
+ spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path.");
} else {
return(1);
}
@@ -3632,6 +3646,7 @@ sub restore_ftp {
my $ftp;
my ($cat_entry, $hostname, $hostpath, $username, $userpass, @restore_files) = @_;
my $indv_files = @restore_files;
+ my $command;
$DEBUG and print "file list to retrieve: $cat_entry\n ";
if ($DEBUG && $interactive) { $ftp = Net::FTP->new($hostname, Debug => 1) or return(1) }
@@ -3646,7 +3661,8 @@ sub restore_ftp {
#- full catalog specified
foreach (wildard_to_tarfile($wild_card)) {
$ftp->get($_, "$cfg_dir/restores/$_");
- system("tar -C $restore_path -xzf $cfg_dir/restores/$_");
+ $command = "tar -C $restore_path -xzf $cfg_dir/restores/$_";
+ spawn_progress($command, "Untarring \n$_ \nto $restore_path.");
}
} else {
#- individual files - pull from appropriate catalog
@@ -3656,7 +3672,8 @@ sub restore_ftp {
if (!-e "$cfg_dir/restores/$tarfile") {
$ftp->get($tarfile, "$cfg_dir/restores/$tarfile");
}
- system("tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_");
+ $command = "tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_";
+ spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path.");
}
}
$ftp->quit;
@@ -3666,6 +3683,7 @@ sub restore_ftp {
sub restore_rsync_ssh_webdav {
my ($cat_entry, $hostname, $hostpath, $username, $userpass, $mode, @restore_files) = @_;
my $indv_files = @restore_files;
+ my $command;
my $wild_card = catalog_to_wildcard($cat_entry);
@@ -3673,14 +3691,16 @@ sub restore_rsync_ssh_webdav {
#- full catalog specified
foreach (wildcard_to_tarfile($wild_card)) {
if ($mode eq 'ssh') {
- system("scp $username\@$hostname:$hostpath/$_ $cfg_dir/restores/");
+ $command = "scp $username\@$hostname:$hostpath/$_ $cfg_dir/restores/";
} elsif ($mode eq 'rsync') {
- system("rsync --password-file=$cfg_dir/rsync.user $username\@$hostname\:\:$hostpath/$_ $cfg_dir/restores/");
+ $command = "rsync --password-file=$cfg_dir/rsync.user $username\@$hostname\:\:$hostpath/$_ $cfg_dir/restores/";
} else {
- system("wget http://$hostname/$hostpath/$_ -P $cfg_dir/restores/");
+ $command = "wget http://$hostname/$hostpath/$_ -P $cfg_dir/restores/";
}
+ spawn_progress($command, "Retrieving backup file \n$_ \nvia $mode.");
if (-e "$cfg_dir/restores/$_") {
- system("tar -C $restore_path -xzf $cfg_dir/restores/$_");
+ $command = "tar -C $restore_path -xzf $cfg_dir/restores/$_";
+ spawn_progress($command, "Untarring \n$_ \nto $restore_path.");
} else {
return(1);
}
@@ -3692,15 +3712,17 @@ sub restore_rsync_ssh_webdav {
$_ = substr($_, 1);
if (!-e "$cfg_dir/restores/$tarfile") {
if ($mode eq 'ssh') {
- system("scp $username\@$hostname:$hostpath/$tarfile $cfg_dir/restores/");
+ $command = "scp $username\@$hostname:$hostpath/$tarfile $cfg_dir/restores/";
} elsif ($mode eq 'rsync') {
- system("rsync --password-file=$cfg_dir/rsync.user $username\@$hostname\:\:$hostpath/$tarfile $cfg_dir/restores/");
+ $command = "rsync --password-file=$cfg_dir/rsync.user $username\@$hostname\:\:$hostpath/$tarfile $cfg_dir/restores/";
} else {
- system("wget http://$hostname/$hostpath/$tarfile -P $cfg_dir/restores/");
+ $command = "wget http://$hostname/$hostpath/$tarfile -P $cfg_dir/restores/";
}
+ spawn_progress($command, "Retrieving backup file \n$tarfile \nvia $mode.");
}
if (-e "$cfg_dir/restores/$tarfile") {
- system("tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_");
+ $command = "tar -C $restore_path -xzf $cfg_dir/restores/$tarfile $_";
+ spawn_progress($command, "Untarring \n$_ from \n$tarfile \nto $restore_path.");
} else {
return(1);
}
@@ -3744,6 +3766,8 @@ sub find_tape_offset {
foreach (@catalog) {
if (instr($_, $label)) {
if (!instr($_, $cat_entry)) {
+ # tar seems to need 2 of these to get located
+ $offset++;
$offset++;
} else {
return($offset);
@@ -3854,6 +3878,36 @@ sub restore_find_media_box {
$up_box->show_all();
}
+sub restore_status {
+ ${$central_widget}->destroy();
+ $pbar3 = new Gtk::ProgressBar;
+ $stext = new Gtk::Label("");
+ gtkpack($advanced_box,
+ $table = gtkpack(new Gtk::VBox(0, 5),
+ new Gtk::HBox(0,5),
+ create_packtable({ col_spacings => 10, row_spacings => 5 },
+ [""],
+ [""],
+ [""],
+ [""],
+ [_("Restore Progress")],
+ [""],
+ [""],
+ [$pbar3],
+ [""],
+ [""],
+ [$pbar3->{label} = new Gtk::Label(' ') ],
+ [""],
+ ),
+ $stext,
+ ),
+ );
+ $custom_help = "options";
+ $central_widget = \$table;
+ $up_box->show_all();
+ Gtk->main_iteration while Gtk->events_pending;
+}
+
################################################ BUTTON_BOX ################################################
# sub generic_button_box {