X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_nightly;h=1f2d1f4d9c03b966cb47d6a39d0ee8c14f5c99e9;hp=b1a06ae2c8cd1bdcae9cb628aae2b7a512d58772;hb=dcf156b7d70fbe2f114c1fed738f613d0b1a2775;hpb=e9453b7611be63303572ae443d5fb56b73364678

diff --git a/bin/BackupPC_nightly b/bin/BackupPC_nightly
index b1a06ae..1f2d1f4 100755
--- a/bin/BackupPC_nightly
+++ b/bin/BackupPC_nightly
@@ -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)
+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
@@ -133,6 +134,7 @@ for my $pool ( qw(pool cpool) ) {
     $blkCnt2       = 0;
     $fileCntRep    = 0;
     $fileRepMax    = 0;
+    $fileLinkMax   = 0;
     $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,"
-                          . "$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 );
+	$fileLinkMax = $s[3] if ( $fileLinkMax < $s[3] );
     }
 }