|
|
@ -34,7 +34,6 @@ if ( $host ) { |
|
|
|
my $conf = { %$mainConf, %$hostConf }; |
|
|
|
my $conf = { %$mainConf, %$hostConf }; |
|
|
|
my $age = -1; |
|
|
|
my $age = -1; |
|
|
|
$json = { |
|
|
|
$json = { |
|
|
|
share => 0, |
|
|
|
|
|
|
|
bkp => 0, |
|
|
|
bkp => 0, |
|
|
|
last_age => 0, |
|
|
|
last_age => 0, |
|
|
|
errors => 0, |
|
|
|
errors => 0, |
|
|
@ -66,7 +65,6 @@ if ( $host ) { |
|
|
|
|
|
|
|
|
|
|
|
$json->{errors} = $bpc_info[$i]->{xferErrs}; |
|
|
|
$json->{errors} = $bpc_info[$i]->{xferErrs}; |
|
|
|
$json->{new_size} = $bpc_info[$i]->{sizeNew}; |
|
|
|
$json->{new_size} = $bpc_info[$i]->{sizeNew}; |
|
|
|
$json->{share} = $bpc_info[$i]->{share}; |
|
|
|
|
|
|
|
$json->{new_size_avg} = int $sizes->mean; |
|
|
|
$json->{new_size_avg} = int $sizes->mean; |
|
|
|
$json->{new_size_median} = int $sizes->median; |
|
|
|
$json->{new_size_median} = int $sizes->median; |
|
|
|
$json->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; |
|
|
|
$json->{new_size_q1} = eval { int $sizes->quantile(1) } || 0; |
|
|
@ -145,8 +143,6 @@ print("\n"); |
|
|
|
print("toobig : $toobig"); |
|
|
|
print("toobig : $toobig"); |
|
|
|
print("\n"); |
|
|
|
print("\n"); |
|
|
|
print("toosmall : $toosmall"); |
|
|
|
print("toosmall : $toosmall"); |
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("share : $json->{share}"); |
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
print("\n----------------\n"); |
|
|
|
# /Debug |
|
|
|
# /Debug |
|
|
|
|
|
|
|
|
|
|
|