update whitelist

defacement_check.pl

@@ -92,9 +92,9 @@ foreach $file (@files)
     my $site = $res->content;
 
     my @found;
+    my @clean;
     my $total_found = 0;
 
-
     foreach my $s (@search) {
       foreach (grep(/$s/i, split(/\n/, $site))) {
         # foreach my $i (@whitelist) {
@@ -113,12 +113,12 @@ foreach $file (@files)
     # Results
     foreach (uniq(@found)) {
       $total_found++;
-      print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n";
+      print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; # VERBOSE
     }
     if ($total_found == 0) {
-      print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n";
+      print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n"; # SAFE
     } else {
-      print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n";
+      print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n"; # TREATH
       $somme_total_found = $somme_total_found + $total_found;
     }
   }