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 $s (@search) {
-
+      foreach (grep(/$s/i, split(/\n/, $site))) {
-        foreach my $i (@whitelist) {
+        # foreach my $i (@whitelist) {
-          if($_ =~ m/$i/i) {
+        #
-            print "\033[35mIGNORE ";
+        # }
-          } else {
+        my $i = "prolibre";
-            push @found, $_;
+        if($_ =~ m/$i/i) {
-          }
+          print "\033[35mIGNORE ";
         }
-
+        else {
-
+          push @found, $_;
-      }                                               # Pour chaque URL faire une recherche du keywords-black
+        }
-
+      }
-    }                                                 # Pour chaque keywords-black dans la liste
+    }
 
     # Results
     foreach (uniq(@found)) {