|
|
@ -26,9 +26,8 @@ use Statistics::Descriptive; |
|
|
|
sub action |
|
|
|
sub action |
|
|
|
{ |
|
|
|
{ |
|
|
|
# Init |
|
|
|
# Init |
|
|
|
my($str, $strNone, $strGood, $hostCntGood, $hostCntNone, $frequency, $header); |
|
|
|
my($str, $strNone, $strGood, $frequency, $header); |
|
|
|
|
|
|
|
|
|
|
|
$hostCntGood = $hostCntNone = 0; |
|
|
|
|
|
|
|
GetStatusInfo("hosts info"); |
|
|
|
GetStatusInfo("hosts info"); |
|
|
|
my $Privileged = CheckPermission(); |
|
|
|
my $Privileged = CheckPermission(); |
|
|
|
|
|
|
|
|
|
|
@ -216,7 +215,6 @@ EOF |
|
|
|
if ( @Backups == 0 ) { |
|
|
|
if ( @Backups == 0 ) { |
|
|
|
$strNone .= $str; |
|
|
|
$strNone .= $str; |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
$hostCntGood++; |
|
|
|
|
|
|
|
$strGood .= $str; |
|
|
|
$strGood .= $str; |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|