summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-02-13 01:43:38 +0000
committerStew Benedict <stewb@mandriva.org>2004-02-13 01:43:38 +0000
commit3ffa664626cd7266a62b9f19687da7d39dff1d8b (patch)
tree6026b46ee80ae610e77cbd9b14085a2eab7c7821 /perl-install
parent650bdd64bf9f569b8ca6e14a973e02d428718e6f (diff)
downloaddrakx-3ffa664626cd7266a62b9f19687da7d39dff1d8b.tar
drakx-3ffa664626cd7266a62b9f19687da7d39dff1d8b.tar.gz
drakx-3ffa664626cd7266a62b9f19687da7d39dff1d8b.tar.bz2
drakx-3ffa664626cd7266a62b9f19687da7d39dff1d8b.tar.xz
drakx-3ffa664626cd7266a62b9f19687da7d39dff1d8b.zip
Fix QA reports of crash on file search, failure to report ftp error.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup40
1 files changed, 25 insertions, 15 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index ced8eb2bf..61eaf3342 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -84,7 +84,7 @@ my @files_corrupted;
my $remove_user_before_restore = 0;
my @file_list_to_send_by_ftp;
my $results;
-my @net_methods = ("ftp", "rsync", "ssh", "webdav");
+my @net_methods = ("", "ftp", "rsync", "ssh", "webdav");
my @media_types = (translate(N_("hd")), "cd", translate(N_("tape")));
my %cd_devices;
my $std_device;
@@ -790,18 +790,20 @@ sub complete_results() {
sub ftp_client() {
use Net::FTP;
my $ftp;
-
- $DEBUG and print "file list to send: $_\n " foreach @file_list_to_send_by_ftp;
- if ($DEBUG && $interactive) { $ftp = Net::FTP->new($host_name, Debug => 1) or return 1 }
- elsif ($interactive) { $ftp = Net::FTP->new($host_name, Debug => 0) or return 1 }
- else { $ftp = Net::FTP->new($host_name, Debug => 0) or return 1 }
- $ftp->login($login_user, $passwd_user);
- $ftp->cwd($host_path);
+
+ foreach (1..5) {
+ $ftp = Net::FTP->new($host_name, Debug => 0) or return 1;
+ $ftp && $ftp->login($login_user, $passwd_user) and last;
+ log::l("ftp login failed, sleeping before trying again");
+ sleep 5 * $_;
+ $ftp = 0;
+ }
+ return 1 if !$ftp;
+ $ftp->cwd($host_path);
foreach (@file_list_to_send_by_ftp) {
$interactive and $pbar->set_fraction(0);
$interactive and progress($pbar, $plabel, 0.5, $_);
$interactive and $pbar->set_text($_);
- #- make perl_checker happy...
$ftp->put($_, undef, undef);
$interactive and progress($pbar, $plabel, 0.5, $_);
$interactive and $pbar->set_text($_);
@@ -1452,12 +1454,13 @@ sub build_backup_files() {
#- leave this one alone for now - works well
#- integrate with other methods later
if (($where_net && !$daemon && $net_proto eq 'ftp') || $daemon && $daemon_media eq 'ftp') {
- $results .= N("file list sent by FTP: %s\n ", $_) foreach @file_list_to_send_by_ftp;
$interactive and build_backup_ftp_status();
if (ftp_client()) {
$results .= N("\n FTP connection problem: It was not possible to send your backup files by FTP.\n");
$interactive and $in->ask_warn(N("Error"), N("Error during sending file via FTP. Please correct your FTP configuration."));
- }
+ } else {
+ $results .= N("file list sent by FTP: %s\n", $_) foreach @file_list_to_send_by_ftp;
+ }
}
#- consolidate all the other methods under here - interactive and --default should land here
@@ -1548,7 +1551,7 @@ sub push_list {
sub files_to_results {
my ($basename) = @_;
- $results .= "\nfile: " . $save_path . "/backup_" . $basename . $the_time . $tar_ext . "\n\n";
+ $results .= "\nfile: " . $save_path . "/backup_" . $basename . $the_time . "." . $tar_ext . "\n\n";
$results .= cat_("$save_path/list_" . $basename . $the_time . ".txt");
}
@@ -3566,12 +3569,16 @@ sub find_files_to_restore() {
gtkpack($advanced_box,
$file_restore = gtkpack_(new Gtk2::VBox(0,10),
- 0, new Gtk2::Label(N("Filename text to search for:")),
+ 0, new Gtk2::Label(N("Filename text substring to search for (empty string matches all):")),
0, gtkpack_(new Gtk2::HBox(0,10),
1, $file_wildcard_entry,
0, gtksignal_connect(new Gtk2::Button(N("Search Backups")), clicked => sub {
- my $wildcard = $file_wildcard_entry->get_text;
+ local $_ = $file_wildcard_entry->get_text;
+ s|^\*|\\\*|g;
+ my $wildcard = $_;
@possible_sources = glob "$save_path/list*";
+ $model->clear;
+ my $match = 0;
foreach my $list (@possible_sources) {
my @listing = cat_($list);
my @matches = grep { /$wildcard/ } @listing;
@@ -3581,8 +3588,10 @@ sub find_files_to_restore() {
chop;
$model->append_set($list_entry, [ 0 => $_ ]);
}
+ $match = 1
}
}
+ show_warning("i", N("No matches found...")) if $match == 0;
}),
),
1, create_scrolled_window($file_list),
@@ -3600,6 +3609,7 @@ sub find_files_to_restore() {
my ($lmodel, $iter) = $_[0]->get_selected;
$lmodel && $iter or return;
my $s = $lmodel->get($iter, 0);
+print "$s\n";
if (! any { /$s/ } @possible_sources) {
$file_to_restore = $s;
my $parent_iter = Gtk2::TreeModel::iter_parent($lmodel, $iter);
@@ -3704,7 +3714,7 @@ sub catalog_restore {
gtkpack($advanced_box,
$catalog_box = gtkpack_(new Gtk2::HBox(0,10),
1, gtkpack_(new Gtk2::VBox(0,5),
- 0, N("Click date/time to see backup files."),
+ 0, N("Click date/time to see backup files.\nCtrl-Click files to select multiple files."),
1, gtkpack_(new Gtk2::VBox(0, 10),
1, create_scrolled_window($tree_catalog),
1, create_scrolled_window($tree_files),