|
|
@ -141,7 +141,6 @@ sub action |
|
|
|
my $age = -1; |
|
|
|
my $age = -1; |
|
|
|
$check = { |
|
|
|
$check = { |
|
|
|
bkp => 0, |
|
|
|
bkp => 0, |
|
|
|
errors => 0, |
|
|
|
|
|
|
|
new_size => 0, |
|
|
|
new_size => 0, |
|
|
|
new_size_avg => 0, |
|
|
|
new_size_avg => 0, |
|
|
|
new_size_median => 0, |
|
|
|
new_size_median => 0, |
|
|
@ -165,7 +164,6 @@ sub action |
|
|
|
# Ignore the last backup if it's not full or incr (which means it's either partial or active) |
|
|
|
# Ignore the last backup if it's not full or incr (which means it's either partial or active) |
|
|
|
my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2; |
|
|
|
my $i = ( $bpc_info[-1]->{type} =~ m/^full|incr$/ ) ? -1 : -2; |
|
|
|
|
|
|
|
|
|
|
|
$check->{errors} = $bpc_info[$i]->{xferErrs}; |
|
|
|
|
|
|
|
$check->{new_size} = $bpc_info[$i]->{sizeNew}; |
|
|
|
$check->{new_size} = $bpc_info[$i]->{sizeNew}; |
|
|
|
$check->{new_size_avg} = int $sizes->mean; |
|
|
|
$check->{new_size_avg} = int $sizes->mean; |
|
|
|
$check->{new_size_median} = int $sizes->median; |
|
|
|
$check->{new_size_median} = int $sizes->median; |
|
|
|