X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FRestore.pm;h=8079d915588fd5438a7721317dcdb5b882ff0948;hp=11ed25b3d8958b1b78faa9a69c0c75e7137a798d;hb=e951f787a66c5bd9e9955c3f657a5b44289c0fe1;hpb=5c6a6cc4f333ce44a9df62ab828b0b9341579f7c

diff --git a/lib/BackupPC/CGI/Restore.pm b/lib/BackupPC/CGI/Restore.pm
index 11ed25b..8079d91 100644
--- a/lib/BackupPC/CGI/Restore.pm
+++ b/lib/BackupPC/CGI/Restore.pm
@@ -28,7 +28,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0beta1, released 9 Apr 2004.
+# Version 2.1.0, released 20 Jun 2004.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -87,9 +87,6 @@ EOF
     if ( $badFileCnt ) {
         ErrorExit($Lang->{Nice_try__but_you_can_t_put});
     }
-    if ( @fileList == 1 ) {
-	$pathHdr =~ s/(.*)\/.*/$1/;
-    }
     $pathHdr = "/" if ( $pathHdr eq "" );
     if ( $In{type} != 0 && @fileList == $In{fcbMax} ) {
 	#
@@ -184,14 +181,15 @@ EOF
 	# This is necessary to ensure the output gets to the correct place
 	# under mod_perl.
 	#
-	$bpc->cmdSystemOrEval(["$BinDir/BackupPC_tarCreate",
+	$bpc->cmdSystemOrEvalLong(["$BinDir/BackupPC_tarCreate",
 		 "-h", $host,
 		 "-n", $num,
 		 "-s", $share,
 		 @pathOpts,
 		 @fileList
 	    ],
-	    sub { print(@_); }
+	    sub { print(@_); },
+	    1,			# ignore stderr
 	);
     } elsif ( $In{type} == 2 ) {
         #
@@ -221,7 +219,7 @@ EOF
 	# This is necessary to ensure the output gets to the correct place
 	# under mod_perl.
 	#
-	$bpc->cmdSystemOrEval(["$BinDir/BackupPC_zipCreate",
+	$bpc->cmdSystemOrEvalLong(["$BinDir/BackupPC_zipCreate",
 		 "-h", $host,
 		 "-n", $num,
 		 "-c", $In{compressLevel},
@@ -229,7 +227,8 @@ EOF
 		 @pathOpts,
 		 @fileList
 	    ],
-	    sub { print(@_); }
+	    sub { print(@_); },
+	    1,			# ignore stderr
 	);
     } elsif ( $In{type} == 3 ) {
         #