update

1 files changed, 21 insertions, 4 deletions

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index feca2d2a6..692c4652e 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -208,7 +208,7 @@ my $other_media_hd;
 my $backup_bef_restore = 0;
 my $table;
 my @user_list_backuped = ();
-
+my @files_corrupted = ();
 
 # config. FILES -> Default PATH  & Global variables.
 my @sys_files = ("/etc");
@@ -1597,6 +1597,15 @@ sub select_sys_data_to_restore {
 
 sub valid_backup_test {
     my (@files_list) = @_;
+    @files_corrupted = ();
+    my $is_corrupted = 0;
+    foreach (@files_list) {
+	if (system("gzip -l $_ ") != 0) {
+	    push @files_corrupted, $_;
+	    $is_corrupted = -1;
+	}
+    }
+    return $is_corrupted;
 #(seb@lutin)[~]-% gzip -l old_drakbackup.tar.gz 
 #compressed  uncompr. ratio uncompressed_name
 #   128662    174080  26.1% old_drakbackup.tar
@@ -1616,6 +1625,10 @@ sub valid_backup_test {
 }
 
 
+sub restore_aff_backup_problems {
+
+}
+
 sub restore_backend {
     my $untar_cmd;
     if (grep /tar.gz$/, all($path_to_find_restore)) { $untar_cmd = 0; } 
@@ -1623,9 +1636,13 @@ sub restore_backend {
     
     if ($restore_user)  { 
 	if ($backup_user_versions) {
-	    select_user_data_to_restore(); 
-	    $untar_cmd or system(" echo 'user: $_' && tar xfz  $path_to_find_restore/$_ -C $restore_path") foreach @user_list_to_restore;
-	    $untar_cmd and system("echo 'user: $_' && /usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path ") foreach @user_list_to_restore;
+	    select_user_data_to_restore();
+	    if (valid_backup_test() == -1) {
+		restore_aff_backup_problems();
+	    } else {
+		$untar_cmd or system(" echo 'user: $_' && tar xfz  $path_to_find_restore/$_ -C $restore_path") foreach @user_list_to_restore;
+		$untar_cmd and system("echo 'user: $_' && /usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path ") foreach @user_list_to_restore;
+	    }
 	}
     }
     if ($restore_sys)   {