X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=lib%2FBackupPC%2FCGI%2FArchive.pm;h=80416174f50c45ef59f1820ddd029db9015dd724;hb=4cdaa6b8a9f5161ee2da4371d68cbbad41248ea0;hp=b235f9b0291ed389a3fe7b8a2ac64119b52ab5fe;hpb=8c30bb82b66f26ccf7e261e2c42711251d0d6ccd;p=BackupPC.git

diff --git a/lib/BackupPC/CGI/Archive.pm b/lib/BackupPC/CGI/Archive.pm
index b235f9b..8041617 100644
--- a/lib/BackupPC/CGI/Archive.pm
+++ b/lib/BackupPC/CGI/Archive.pm
@@ -28,7 +28,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0beta2, released 23 May 2004.
+# Version 3.0.0beta0, released 11 Jul 2006.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -225,12 +225,13 @@ EOF
                             [  \%ArchiveReq],
                             [qw(*ArchiveReq)]);
             $archive->Indent(1);
-            if ( open(REQ, ">$TopDir/pc/$archivehost/$reqFileName") ) {
+	    my $openPath = "$TopDir/pc/$archivehost/$reqFileName";
+	    if ( open(REQ, ">", $openPath) ) {
                 binmode(REQ);
                 print(REQ $archive->Dump);
                 close(REQ);
             } else {
-                ErrorExit($Lang->{Can_t_open_create} );
+                ErrorExit(eval("qq{$Lang->{Can_t_open_create__openPath}}"));
             }
             $reply = $bpc->ServerMesg("archive $User $archivehost $reqFileName");
             $str = eval("qq{$Lang->{Archive_requested}}");