|
|
|
@ -30,8 +30,7 @@ use Data::Dumper; |
|
|
|
|
sub action |
|
|
|
|
{ |
|
|
|
|
# Init |
|
|
|
|
my($fullTot, $fullSizeTot, $incrTot, $incrSizeTot, $str, |
|
|
|
|
$strNone, $strGood, $hostCntGood, $hostCntNone, $header); |
|
|
|
|
my($str, $strNone, $strGood, $hostCntGood, $hostCntNone, $header); |
|
|
|
|
|
|
|
|
|
$hostCntGood = $hostCntNone = 0; |
|
|
|
|
GetStatusInfo("hosts info"); |
|
|
|
@ -61,13 +60,11 @@ sub action |
|
|
|
|
$fullSize = $Backups[$i]{size} / (1024 * 1024); |
|
|
|
|
$fullDur = $Backups[$i]{endTime} - $Backups[$i]{startTime}; |
|
|
|
|
} |
|
|
|
|
$fullSizeTot += $Backups[$i]{size} / (1024 * 1024); |
|
|
|
|
} elsif ( $Backups[$i]{type} eq "incr" ) { |
|
|
|
|
$incrCnt++; |
|
|
|
|
if ( $incrAge < 0 || $Backups[$i]{startTime} > $incrAge ) { |
|
|
|
|
$incrAge = $Backups[$i]{startTime}; |
|
|
|
|
} |
|
|
|
|
$incrSizeTot += $Backups[$i]{size} / (1024 * 1024); |
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
if ( $fullAge > $incrAge && $fullAge >= 0 ) { |
|
|
|
@ -101,8 +98,6 @@ sub action |
|
|
|
|
} else { |
|
|
|
|
$incrAge = sprintf("%.1f", (time - $incrAge) / (24 * 3600)); |
|
|
|
|
} |
|
|
|
|
$fullTot += $fullCnt; |
|
|
|
|
$incrTot += $incrCnt; |
|
|
|
|
$fullSize = sprintf("%.2f", $fullSize / 1024); |
|
|
|
|
$incrAge = " " if ( $incrAge eq "" ); |
|
|
|
|
# Color for errors |
|
|
|
@ -245,8 +240,6 @@ EOF |
|
|
|
|
# End loop |
|
|
|
|
|
|
|
|
|
# Time set |
|
|
|
|
$fullSizeTot = sprintf("%.2f", $fullSizeTot / 1024); |
|
|
|
|
$incrSizeTot = sprintf("%.2f", $incrSizeTot / 1024); |
|
|
|
|
my $now = timeStamp2(time); |
|
|
|
|
my $DUlastTime = timeStamp2($Info{DUlastValueTime}); |
|
|
|
|
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); |
|
|
|
|