projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- allow PingCmd and Nmb commands to be empty strings, allowing these
[BackupPC.git]
/
bin
/
BackupPC_nightly
diff --git
a/bin/BackupPC_nightly
b/bin/BackupPC_nightly
index
7279536
..
43ba98c
100755
(executable)
--- a/
bin/BackupPC_nightly
+++ b/
bin/BackupPC_nightly
@@
-35,14
+35,14
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version
1.5.0, released 2 Aug 2002
.
+# Version
2.0.0_CVS, released 3 Feb 2003
.
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
-use lib "
__INSTALLDIR__
/lib";
+use lib "
/usr/local/BackupPC
/lib";
use BackupPC::Lib;
use BackupPC::FileZIO;
use BackupPC::Lib;
use BackupPC::FileZIO;
@@
-101,7
+101,7
@@
if ( $mday == 1 ) {
"$TopDir/pc/$host/LOG.0.z",
"$TopDir/pc/$host/LOG.0",
$Conf{CompressLevel}, 1);
"$TopDir/pc/$host/LOG.0.z",
"$TopDir/pc/$host/LOG.0",
$Conf{CompressLevel}, 1);
- open(LOG, ">$TopDir/pc/$host/LOG") && close(LOG);
+ open(LOG, ">
", "
$TopDir/pc/$host/LOG") && close(LOG);
}
}
}
}
@@
-120,6
+120,7
@@
my $fileCntRep; # total number of file names containing "_", ie: files
# that have repeated md5 checksums
my $fileRepMax; # worse case number of files that have repeated checksums
# (ie: max(nnn+1) for all names xxxxxxxxxxxxxxxx_nnn)
# that have repeated md5 checksums
my $fileRepMax; # worse case number of files that have repeated checksums
# (ie: max(nnn+1) for all names xxxxxxxxxxxxxxxx_nnn)
+my $fileLinkMax; # maximum number of hardlinks on a pool file
my $fileCntRename; # number of renamed files (to keep file numbering
# contiguous)
my %FixList; # list of paths that need to be renamed to avoid
my $fileCntRename; # number of renamed files (to keep file numbering
# contiguous)
my %FixList; # list of paths that need to be renamed to avoid
@@
-133,6
+134,7
@@
for my $pool ( qw(pool cpool) ) {
$blkCnt2 = 0;
$fileCntRep = 0;
$fileRepMax = 0;
$blkCnt2 = 0;
$fileCntRep = 0;
$fileRepMax = 0;
+ $fileLinkMax = 0;
$fileCntRename = 0;
%FixList = ();
find({wanted => \&GetPoolStats, no_chdir => 1}, "$TopDir/$pool");
$fileCntRename = 0;
%FixList = ();
find({wanted => \&GetPoolStats, no_chdir => 1}, "$TopDir/$pool");
@@
-168,7
+170,8
@@
for my $pool ( qw(pool cpool) ) {
}
}
print("BackupPC_stats = $pool,$fileCnt,$dirCnt,$kb,$kb2,$kbRm,$fileCntRm,"
}
}
print("BackupPC_stats = $pool,$fileCnt,$dirCnt,$kb,$kb2,$kbRm,$fileCntRm,"
- . "$fileCntRep,$fileRepMax,$fileCntRename\n");
+ . "$fileCntRep,$fileRepMax,$fileCntRename,"
+ . "$fileLinkMax\n");
}
###########################################################################
}
###########################################################################
@@
-218,5
+221,6
@@
sub GetPoolStats
$fileCnt += -f;
$blkCnt += $s[12];
$blkCnt2 += $s[12] if ( -f && $s[3] == 2 );
$fileCnt += -f;
$blkCnt += $s[12];
$blkCnt2 += $s[12] if ( -f && $s[3] == 2 );
+ $fileLinkMax = $s[3] if ( $fileLinkMax < $s[3] );
}
}
}
}