master
Heuzef 5 years ago
parent 547543d14c
commit d45e06fa7c
  1. 12
      Check.pm

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

Loading…
Cancel
Save