|
|
@ -26,7 +26,7 @@ use Statistics::Descriptive; |
|
|
|
sub action |
|
|
|
sub action |
|
|
|
{ |
|
|
|
{ |
|
|
|
# Init |
|
|
|
# Init |
|
|
|
my($str, $strNone, $strGood, $header); |
|
|
|
my($str, $strGood, $header); |
|
|
|
|
|
|
|
|
|
|
|
GetStatusInfo("hosts info"); |
|
|
|
GetStatusInfo("hosts info"); |
|
|
|
my $Privileged = CheckPermission(); |
|
|
|
my $Privileged = CheckPermission(); |
|
|
@ -199,12 +199,7 @@ sub action |
|
|
|
<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> |
|
|
|
EOF |
|
|
|
EOF |
|
|
|
|
|
|
|
|
|
|
|
# Increment counter |
|
|
|
$strGood .= $str; |
|
|
|
if ( @Backups == 0 ) { |
|
|
|
|
|
|
|
$strNone .= $str; |
|
|
|
|
|
|
|
} else { |
|
|
|
|
|
|
|
$strGood .= $str; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
# End loop |
|
|
|
# End loop |
|
|
|
|
|
|
|
|
|
|
|