|
|
@ -47,6 +47,9 @@ if ( $host ) { |
|
|
|
foreach my $backup ( @bpc_info ) { |
|
|
|
foreach my $backup ( @bpc_info ) { |
|
|
|
# Skip partial or active backups |
|
|
|
# Skip partial or active backups |
|
|
|
next if ( $backup->{type} !~ m/^full|incr$/ ); |
|
|
|
next if ( $backup->{type} !~ m/^full|incr$/ ); |
|
|
|
|
|
|
|
if ( $backup->{type} eq "full" ) { |
|
|
|
|
|
|
|
$last_full_num = $backup->{num}; |
|
|
|
|
|
|
|
} |
|
|
|
# Push all the sizes in our data set to compute avg sizes |
|
|
|
# Push all the sizes in our data set to compute avg sizes |
|
|
|
# Exclude backup N°0 as it'll always have much more new data than normal backups |
|
|
|
# Exclude backup N°0 as it'll always have much more new data than normal backups |
|
|
|
$sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 ); |
|
|
|
$sizes->add_data($backup->{sizeNew}) unless ( $backup->{num} == 0 ); |
|
|
@ -109,13 +112,20 @@ else { |
|
|
|
print("Normal"); |
|
|
|
print("Normal"); |
|
|
|
} |
|
|
|
} |
|
|
|
print("\n"); |
|
|
|
print("\n"); |
|
|
|
print("Random file : .........."); |
|
|
|
print("Random file :"); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Random file |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
print("Random file"); |
|
|
|
|
|
|
|
|
|
|
|
print("\n----------------\n"); |
|
|
|
print("\n----------------\n"); |
|
|
|
|
|
|
|
|
|
|
|
# Debug |
|
|
|
# Debug |
|
|
|
print("\n----------------\n"); |
|
|
|
print("\n----------------\n"); |
|
|
|
print("DEBUG"); |
|
|
|
print("DEBUG"); |
|
|
|
print("\n"); |
|
|
|
print("\n"); |
|
|
|
|
|
|
|
print("last_full_num : $last_full_num"); |
|
|
|
|
|
|
|
print("\n"); |
|
|
|
print("new_size : $json->{new_size}"); |
|
|
|
print("new_size : $json->{new_size}"); |
|
|
|
print("\n"); |
|
|
|
print("\n"); |
|
|
|
print("new_size_q1 : $json->{new_size_q1}"); |
|
|
|
print("new_size_q1 : $json->{new_size_q1}"); |
|
|
|