|
|
|
@ -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 = <<EOF; |
|
|
|
|
<tr$reasonHilite><td class="border">${HostLink($host)}</td> |
|
|
|
|
<td align="center" class="border">$fullAge</td> |
|
|
|
|
<td align="center" class="border">$incrAge</td> |
|
|
|
|
<td align="center" class="border" style="color:LightGray">>$fullAge</td> |
|
|
|
|
<td align="center" class="border" style="color:LightGray">>$incrAge</td> |
|
|
|
|
<td align="center" class="border" style="color:$lastAgeColor;">$lastAge</td> |
|
|
|
|
<td align="center" class="border">$lastXferErrors</td> |
|
|
|
|
<td align="center" class="border">???</td> |
|
|
|
|