Add debug

backuppc_check.pl

@@ -95,8 +95,24 @@ else {
   $toobig = "1";
 }
 
-print("\ntoobig : $toobig\n");
+
-print("\ntoosmall : $toosmall\n");
+# 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\n");
+print("\n");
+print("toosmall : $toosmall\n");
+print("\n----------------\n");
+# /Debug
 
 
 # TOO SMALL ?
@@ -108,8 +124,25 @@ else {
   $toosmall = "1";
 }
 
-print("\ntoobig : $toobig\n");
+
-print("\ntoosmall : $toosmall\n");
+# 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\n");
+print("\n");
+print("toosmall : $toosmall\n");
+print("\n----------------\n");
+# /Debug
+
 
 # Print result
 if ( $toobig or $toosmall ) {
@@ -121,4 +154,25 @@ else {
 print("\n");
 print("Random file : ..........");
 print("\n----------------\n");
+
+
+# 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\n");
+print("\n");
+print("toosmall : $toosmall\n");
+print("\n----------------\n");
+# /Debug
+
+
 exit(0);