diff --git a/Check.pm b/Check.pm index 241458d..912787e 100644 --- a/Check.pm +++ b/Check.pm @@ -33,7 +33,7 @@ sub action # Start loop foreach my $host ( GetUserHosts(1) ) { - my($incrAge, $reasonHilite, $frequency, $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor); + my($incrAge, $reasonHilite, $frequency, $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor, $ifErrors); my($shortErr); my @Backups = $bpc->BackupInfoRead($host); @@ -61,12 +61,15 @@ sub action $lastAgeColor = "Tomato"; } - # Color for errors + # Color and link for errors $lastXferErrors = $Backups[@Backups-1]->{xferErrs} if ( @Backups ); if ( $lastXferErrors == 0 ) { $lastXferErrorsColor = "MediumSeaGreen"; + $ifErrors = ""; } else { $lastXferErrorsColor = "Tomato"; + my $browseErrors = "?action=view&type=XferErr&num=0&host=$host"; + $ifErrors = "[Show me]"; } # Colors statuts @@ -127,14 +130,13 @@ sub action # Get URL for explore file my $browseFile = "?action=browse&host=$host"; - my $browseErrors = "?action=view&type=XferErr&num=0&host=$host"; # Show summary $str .= < $host $lastAge (Freq: $frequency) - $lastXferErrors (Extract errors) + $lastXferErrors $ifErrors $sizeConsistency EOF