Create function for get total of backups (incr + full)

Check.pm

@@ -39,6 +39,7 @@ sub action
       my($incrAge, $reasonHilite, $frequency, $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor, $ifErrors, $sizeConsistency, $sizeConsistencyColor);
       my($shortErr);
       my @Backups = $bpc->BackupInfoRead($host);
+      my $fullCnt = $incrCnt = 0;
 
       $bpc->ConfigRead($host);
       %Conf = $bpc->Conf();
@@ -46,6 +47,13 @@ sub action
       next if ( $Conf{XferMethod} eq "archive" );
       next if ( !$Privileged && !CheckPermission($host) );
 
+      # Get number of total backups
+      for ( my $i = 0 ; $i < @Backups ; $i++ ) {
+          if ( $Backups[$i]{type} eq "full" ) { $fullCnt++; }
+          } elsif ( $Backups[$i]{type} eq "incr" ) { $incrCnt++; }
+      }
+      my $nbBackup = $fullCnt + $incrCnt;
+
       # Get frequency for this host
       if ( $Conf{IncrPeriod} < $Conf{FullPeriod} ) {
         $frequency = $Conf{IncrPeriod};
@@ -137,7 +145,7 @@ sub action
       # Show summary
       $str .= <<EOF;
       <tr$reasonHilite>
-        <td class="border"><a href="$browseFile">$host ($idBackup)</a></td>
+        <td class="border"><a href="$browseFile">$host ($idBackup) TOTAL = $nbBackup</a></td>
         <td align="center" class="border" style="color:$lastAgeColor;">$lastAge <em>(Freq: $frequency)</em></td>
         <td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors $ifErrors</td>
         <td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td>