projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Another minor change to BackupPC_Admin
[BackupPC.git]
/
bin
/
BackupPC_compressPool
diff --git
a/bin/BackupPC_compressPool
b/bin/BackupPC_compressPool
index
a3d3583
..
998f35f
100755
(executable)
--- a/
bin/BackupPC_compressPool
+++ b/
bin/BackupPC_compressPool
@@
-49,7
+49,7
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version
1.6.0_CVS, released 10 Dec 2002
.
+# Version
2.0.0beta2, released 13 Apr 2003
.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-173,7
+173,7
@@
sub doCompress
-Bufsize => 65536,
-Level => $Compress,
);
-Bufsize => 65536,
-Level => $Compress,
);
- if ( !open(FH, $TestMode ? "<
$file" : "+<$file"
) ) {
+ if ( !open(FH, $TestMode ? "<
" : "+<", $file
) ) {
print("Error: Can't open $file for read/write\n");
$Errors++;
return;
print("Error: Can't open $file for read/write\n");
$Errors++;
return;
@@
-196,7
+196,7
@@
sub doCompress
}
$dataOut .= $fragOut;
if ( !$copy && length($dataOut) > $CompMaxWrite ) {
}
$dataOut .= $fragOut;
if ( !$copy && length($dataOut) > $CompMaxWrite ) {
- if ( !open(OUT, "+>$file.__z") ) {
+ if ( !open(OUT, "+>
", "
$file.__z") ) {
print("Error: Can't open $file.__z for write\n");
$Errors++;
close(FH);
print("Error: Can't open $file.__z for write\n");
$Errors++;
close(FH);
@@
-237,7
+237,7
@@
sub doCompress
my $newFile = cpoolFileName($file);
if ( $TestMode ) {
close(FH);
my $newFile = cpoolFileName($file);
if ( $TestMode ) {
close(FH);
- if ( !open(FH, ">
$newFile"
) ) {
+ if ( !open(FH, ">
", $newFile
) ) {
print("Error: Can't open $newFile for write\n");
$Errors++;
close(FH);
print("Error: Can't open $newFile for write\n");
$Errors++;
close(FH);
@@
-323,7
+323,7
@@
sub checkRead
my($n, $nd, $r, $d, $d0);
local(*FH);
my($n, $nd, $r, $d, $d0);
local(*FH);
- if ( !open(FH, $file) ) {
+ if ( !open(FH,
"<",
$file) ) {
print("can't open $file for check\n");
$Errors++;
$f->close();
print("can't open $file for check\n");
$Errors++;
$f->close();
@@
-357,7
+357,7
@@
sub checkReadLine
my($n, $nd, $r, $d, $d0);
local(*FH);
my($n, $nd, $r, $d, $d0);
local(*FH);
- if ( !open(FH, $file) ) {
+ if ( !open(FH,
"<",
$file) ) {
print("can't open $file for check\n");
$Errors++;
$f->close();
print("can't open $file for check\n");
$Errors++;
$f->close();