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