Clean debug

backuppc_check.pl

@@ -95,26 +95,6 @@ else {
   $toobig = "1";
 }
 
-
-# Debug
-print("\n----------------\n");
-print("DEBUG");
-print("\n");
-print("new_size : $json->{new_size}");
-print("\n");
-print("new_size_q1 : $json->{new_size_q1}");
-print("\n");
-print("new_size_q3 : $json->{new_size_q3}");
-print("\n");
-print("new_size_avg : $json->{new_size_avg}");
-print("\n");
-print("toobig : $toobig");
-print("\n");
-print("toosmall : $toosmall");
-print("\n----------------\n");
-# /Debug
-
-
 # TOO SMALL ?
 my $toosmall = "1";
 if ( $json->{new_size} < $json->{new_size_q1} - $json->{new_size_q3} - $json->{new_size_q1} * 1.5 && $json->{new_size} < $json->{new_size_avg} / 3 ) {
@@ -124,26 +104,6 @@ else {
   $toosmall = "1";
 }
 
-
-# Debug
-print("\n----------------\n");
-print("DEBUG");
-print("\n");
-print("new_size : $json->{new_size}");
-print("\n");
-print("new_size_q1 : $json->{new_size_q1}");
-print("\n");
-print("new_size_q3 : $json->{new_size_q3}");
-print("\n");
-print("new_size_avg : $json->{new_size_avg}");
-print("\n");
-print("toobig : $toobig");
-print("\n");
-print("toosmall : $toosmall");
-print("\n----------------\n");
-# /Debug
-
-
 # Print result
 if ( $toobig or $toosmall ) {
   print("ANOMALOUS");
@@ -155,7 +115,6 @@ print("\n");
 print("Random file : ..........");
 print("\n----------------\n");
 
-
 # Debug
 print("\n----------------\n");
 print("DEBUG");
@@ -174,5 +133,4 @@ print("toosmall : $toosmall");
 print("\n----------------\n");
 # /Debug
 
-
 exit(0);