update whitelist

defacement_check.pl

@@ -94,22 +94,21 @@ foreach $file (@files)
     my @found;
     my $total_found = 0;
 
-    foreach my $s (@search) {                         # Pour chaque keywords-black dans la liste
 
-      foreach (grep(/$s/i, split(/\n/, $site))) {     # Pour chaque URL faire une recherche du keywords-black
-
-        foreach my $i (@whitelist) {
+    foreach my $s (@search) {
+      foreach (grep(/$s/i, split(/\n/, $site))) {
+        # foreach my $i (@whitelist) {
+        #
+        # }
+        my $i = "prolibre";
         if($_ =~ m/$i/i) {
           print "\033[35mIGNORE ";
-          } else {
+        }
+        else {
           push @found, $_;
         }
       }
-
-
-      }                                               # Pour chaque URL faire une recherche du keywords-black
-
-    }                                                 # Pour chaque keywords-black dans la liste
+    }
 
     # Results
     foreach (uniq(@found)) {