Quiet ! :x

conf/keywords.cfg

@@ -19,4 +19,3 @@ strrev
 url_decode
 urldecode
 viagra
-contact

defacement_check.pl

@@ -13,8 +13,8 @@ sub uniq {
   grep !$seen{$_}++, @_;
 }
 
-print "\033[36m \nDEFACEMENT CHECK [" . $date . "]\n\nSearching for suspects ...\n";
+# print "\033[36m \nDEFACEMENT CHECK [" . $date . "]\n\nSearching for suspects ...\n";
-print "FOUND \t\t=> URLs\n";
+# print "FOUND \t\t=> URLs\n";
 
 # # Import config Website (LOAD domain in conf/websites.cfg)
 # my @scan;
@@ -106,7 +106,7 @@ foreach $file (@files)
     foreach my $i (@whitelist) {
       foreach (@found) {
         foreach (grep(/$i/i, split(/\n/))) {
-          print "\033[35mIGNORE "; # VERBOSE
+          # print "\033[35mIGNORE "; # VERBOSE
           pop @found;
         }
       }
@@ -115,17 +115,18 @@ foreach $file (@files)
     # Views results
     foreach (uniq(@found)) {
       $total_found++;
-      print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; # VERBOSE
+      # print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; # VERBOSE
     }
     if ($total_found == 0) {
-      print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n"; # SAFE
+      # print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n"; # SAFE
     } else {
-      print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n"; # TREATH
+      # print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n"; # TREATH
       $somme_total_found = $somme_total_found + $total_found;
     }
   }
   close(FH);
-  print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; # Total
+  # print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; # Total
+  print $somme_total_found; # Total
   $grand_total_found = $somme_total_found + $grand_total_found;
 }