# 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
$blkCnt2 = 0;
$fileCntRep = 0;
$fileRepMax = 0;
+ $fileLinkMax = 0;
$fileCntRename = 0;
%FixList = ();
find({wanted => \&GetPoolStats, no_chdir => 1}, "$TopDir/$pool");
}
}
print("BackupPC_stats = $pool,$fileCnt,$dirCnt,$kb,$kb2,$kbRm,$fileCntRm,"
- . "$fileCntRep,$fileRepMax,$fileCntRename\n");
+ . "$fileCntRep,$fileRepMax,$fileCntRename,"
+ . "$fileLinkMax\n");
}
###########################################################################
$fileCnt += -f;
$blkCnt += $s[12];
$blkCnt2 += $s[12] if ( -f && $s[3] == 2 );
+ $fileLinkMax = $s[3] if ( $fileLinkMax < $s[3] );
}
}