diff --git a/Check.pm b/Check.pm index 29b73b2..33a1ee6 100644 --- a/Check.pm +++ b/Check.pm @@ -34,7 +34,7 @@ sub action foreach my $host ( GetUserHosts(1) ) { my($fullDur, $incrCnt, $incrAge, $fullSize, $fullRate, $reasonHilite, - $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors); + $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor); my($shortErr); my @Backups = $bpc->BackupInfoRead($host); my $fullCnt = $incrCnt = 0; @@ -96,6 +96,11 @@ sub action $fullSize = sprintf("%.2f", $fullSize / 1024); $incrAge = " " if ( $incrAge eq "" ); $lastXferErrors = $Backups[@Backups-1]{xferErrs} if ( @Backups ); + if ( $lastXferErrors == 0 ) { + $lastXferErrorsColor = "MediumSeaGreen"; + } else { + $lastAgeColor = "Tomato"; + } $reasonHilite = $Conf{CgiStatusHilightColor}{$Status{$host}{reason}} || $Conf{CgiStatusHilightColor}{$Status{$host}{state}}; if ( $Conf{BackupsDisable} == 1 ) { @@ -127,8 +132,8 @@ sub action $str = <${HostLink($host)} - $fullAge - $incrAge + >$fullAge + >$incrAge $lastAge $lastXferErrors ???