From 303bba08caed85f2734ddf25d61236df55f8b59f Mon Sep 17 00:00:00 2001 From: heuzef Date: Mon, 22 Feb 2021 16:35:33 +0100 Subject: [PATCH] Fix indents et add more comment --- Check.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/Check.pm b/Check.pm index 5b7d87c..7bdf931 100644 --- a/Check.pm +++ b/Check.pm @@ -47,7 +47,7 @@ sub action next if ( $Conf{XferMethod} eq "archive" ); next if ( !$Privileged && !CheckPermission($host) ); - # Get number of total backups + # Get number of total backups (full + incr) for ( my $i = 0 ; $i < @Backups ; $i++ ) { if ( $Backups[$i]{type} eq "full" ) { $fullCnt++; } elsif ( $Backups[$i]{type} eq "incr" ) { $incrCnt++; } @@ -129,7 +129,7 @@ sub action $toosmall = 1; } - # Get result, if we don't have enough backup (< 4) we can't calcul a realist average + # If we don't have enough backup (< 4) we can't calcul a realist average if ( not $nbBackups > 4) { $sizeConsistencyColor = "Gray"; $sizeConsistency = "Not enough backups"; @@ -156,8 +156,8 @@ EOF # End loop # Time set - my $now = timeStamp2(time); - my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); + my $now = timeStamp2(time); + my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); # Show header @@ -188,7 +188,6 @@ EOF EOF - my $content = eval ("qq{$header}"); Header("BackupPC: Check", $content); Trailer();