Added GFK's code for language specific email messages. The config.pl

[BackupPC.git] / bin / BackupPC_nightly

diff --git a/bin/BackupPC_nightly b/bin/BackupPC_nightly
index 7279536..1f2d1f4 100755 (executable)
--- a/bin/BackupPC_nightly
+++ b/bin/BackupPC_nightly
@@ -35,14 +35,14 @@
 #
 #========================================================================
 #
-# Version 1.5.0, released 2 Aug 2002.
+# Version 1.6.0_CVS, released 10 Dec 2002.
 #
 # See http://backuppc.sourceforge.net.
 #
 #========================================================================
 
 use strict;
-use lib "__INSTALLDIR__/lib";
+use lib "/usr/local/BackupPC/lib";
 use BackupPC::Lib;
 use BackupPC::FileZIO;
 
@@ -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] );
     }
 }