|
|
@ -171,6 +171,7 @@ EOF |
|
|
|
# print("full_size : $json->{full_size}"); |
|
|
|
# print("full_size : $json->{full_size}"); |
|
|
|
# print("\n----------------\n"); |
|
|
|
# print("\n----------------\n"); |
|
|
|
# print("\n----------------\n"); |
|
|
|
# print("\n----------------\n"); |
|
|
|
|
|
|
|
# print("Size Consistency : "); |
|
|
|
|
|
|
|
|
|
|
|
# TOO SMALL ? |
|
|
|
# TOO SMALL ? |
|
|
|
my $toosmall = "true"; |
|
|
|
my $toosmall = "true"; |
|
|
@ -189,11 +190,12 @@ else { |
|
|
|
$toobig = "true"; |
|
|
|
$toobig = "true"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
print("Size Consistency : "); |
|
|
|
# Print result |
|
|
|
if ( $toosmall == "false" && $toobig == "false" ) { |
|
|
|
if ( $toosmall == "false" && $toobig == "false" ) { |
|
|
|
print("Normal"); |
|
|
|
print("Normal"); |
|
|
|
} |
|
|
|
} |
|
|
|
else { |
|
|
|
else { |
|
|
|
print("ANOMALOUS"); |
|
|
|
print("ANOMALOUS"); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
exit(0); |
|
|
|
exit(0); |
|
|
|