projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updates in preparation for 3.0.0beta2:
[BackupPC.git]
/
lib
/
BackupPC
/
CGI
/
Archive.pm
diff --git
a/lib/BackupPC/CGI/Archive.pm
b/lib/BackupPC/CGI/Archive.pm
index
b235f9b
..
e89b4f6
100644
(file)
--- 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.0beta2, released 11 Nov 2006
.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-225,12
+225,13
@@
EOF
[ \%ArchiveReq],
[qw(*ArchiveReq)]);
$archive->Indent(1);
[ \%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 {
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}}");
}
$reply = $bpc->ServerMesg("archive $User $archivehost $reqFileName");
$str = eval("qq{$Lang->{Archive_requested}}");