|
|
|
@ -34,7 +34,7 @@ sub action |
|
|
|
|
|
|
|
|
|
foreach my $host ( GetUserHosts(1) ) { |
|
|
|
|
my($fullDur, $incrCnt, $incrAge, $fullSize, $fullRate, $reasonHilite, |
|
|
|
|
$lastAge, $tempState, $tempReason, $lastXferErrors); |
|
|
|
|
$lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors); |
|
|
|
|
my($shortErr); |
|
|
|
|
my @Backups = $bpc->BackupInfoRead($host); |
|
|
|
|
my $fullCnt = $incrCnt = 0; |
|
|
|
@ -72,12 +72,12 @@ sub action |
|
|
|
|
$lastAge = ""; |
|
|
|
|
} else { |
|
|
|
|
$lastAge = sprintf("%.1f", (time - $lastAge) / (24 * 3600)); |
|
|
|
|
} |
|
|
|
|
if ( $lastAge < 1.1 ) { |
|
|
|
|
$lastAgeColor = "MediumSeaGreen"; |
|
|
|
|
} else { |
|
|
|
|
$lastAgeColor = "Tomato"; |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
if ( $fullAge < 0 ) { |
|
|
|
|
$fullAge = ""; |
|
|
|
|
$fullRate = ""; |
|
|
|
|