|
|
|
@ -67,12 +67,6 @@ if ( $host ) { |
|
|
|
|
|
|
|
|
|
$json->{errors} = $bpc_info[$i]->{xferErrs}; |
|
|
|
|
$json->{new_size} = $bpc_info[$i]->{sizeNew}; |
|
|
|
|
$json->{type} = $bpc_info[$i]->{type}; |
|
|
|
|
$json->{comp_ratio} = ( $bpc_info[$i]->{sizeNew} > 0 ) ? |
|
|
|
|
sprintf( "%.2f", 100 - ( $bpc_info[$i]->{sizeNewComp} * 100 / $bpc_info[$i]->{sizeNew} ) ) |
|
|
|
|
: |
|
|
|
|
0; |
|
|
|
|
|
|
|
|
|
$json->{new_size_avg} = int $sizes->mean; |
|
|
|
|
$json->{new_size_median} = int $sizes->median; |
|
|
|
|
# Some old versions of Statistics::Descriptive (eg, on el5) do not support quantile |
|
|
|
@ -90,8 +84,7 @@ if ( $host ) { |
|
|
|
|
perf => 0, |
|
|
|
|
size => 0, |
|
|
|
|
hosts => 0, |
|
|
|
|
bkp => 0, |
|
|
|
|
ratio => 0 |
|
|
|
|
bkp => 0 |
|
|
|
|
}; |
|
|
|
|
|
|
|
|
|
my $total_new = 0; |
|
|
|
|