|
|
@ -29,7 +29,7 @@ use Data::Dumper; |
|
|
|
sub action |
|
|
|
sub action |
|
|
|
{ |
|
|
|
{ |
|
|
|
# Init |
|
|
|
# Init |
|
|
|
my($str, $strNone, $strGood, $hostCntGood, $hostCntNone, $frequence, $header); |
|
|
|
my($str, $strNone, $strGood, $hostCntGood, $hostCntNone, $frequency, $header); |
|
|
|
|
|
|
|
|
|
|
|
$hostCntGood = $hostCntNone = 0; |
|
|
|
$hostCntGood = $hostCntNone = 0; |
|
|
|
GetStatusInfo("hosts info"); |
|
|
|
GetStatusInfo("hosts info"); |
|
|
@ -50,11 +50,11 @@ sub action |
|
|
|
next if ( $Conf{XferMethod} eq "archive" ); |
|
|
|
next if ( $Conf{XferMethod} eq "archive" ); |
|
|
|
next if ( !$Privileged && !CheckPermission($host) ); |
|
|
|
next if ( !$Privileged && !CheckPermission($host) ); |
|
|
|
|
|
|
|
|
|
|
|
# Get frequence for this host |
|
|
|
# Get frequency for this host |
|
|
|
if ( $Conf{IncrPeriod} < $Conf{FullPeriod} ) { |
|
|
|
if ( $Conf{IncrPeriod} < $Conf{FullPeriod} ) { |
|
|
|
$frequence = $Conf{IncrPeriod}; |
|
|
|
$frequency = $Conf{IncrPeriod}; |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
$frequence = $Conf{FullPeriod}; |
|
|
|
$frequency = $Conf{FullPeriod}; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# Age |
|
|
|
# Age |
|
|
@ -83,7 +83,7 @@ sub action |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
# Color for age |
|
|
|
# Color for age |
|
|
|
if ( $lastAge < $frequence ) { |
|
|
|
if ( $lastAge < $frequency ) { |
|
|
|
$lastAgeColor = "MediumSeaGreen"; |
|
|
|
$lastAgeColor = "MediumSeaGreen"; |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
$lastAgeColor = "Tomato"; |
|
|
|
$lastAgeColor = "Tomato"; |
|
|
@ -216,7 +216,7 @@ my $browseFile = "?action=browse&host=$host"; |
|
|
|
# Show summary |
|
|
|
# Show summary |
|
|
|
$str = <<EOF; |
|
|
|
$str = <<EOF; |
|
|
|
<tr$reasonHilite><td class="border">${HostLink($host)}</td> |
|
|
|
<tr$reasonHilite><td class="border">${HostLink($host)}</td> |
|
|
|
<td align="center" class="border" style="color:$lastAgeColor;">$lastAge <em>(Freq: $frequence)</em></td> |
|
|
|
<td align="center" class="border" style="color:$lastAgeColor;">$lastAge <em>(Freq: $frequency)</em></td> |
|
|
|
<td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td> |
|
|
|
<td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td> |
|
|
|
<td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td> |
|
|
|
<td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td> |
|
|
|
<td align="center" class="border"><a href="$browseFile" target="_blank">Explore files ...</a></td> |
|
|
|
<td align="center" class="border"><a href="$browseFile" target="_blank">Explore files ...</a></td> |
|
|
|