From 44402a60c5d3e4f2f176613cec133e2bf8d80c5d Mon Sep 17 00:00:00 2001
From: heuzef <contact@heuzef.com>
Date: Fri, 9 Feb 2018 14:25:41 +0100
Subject: [PATCH] Ignore list is OK !

---
 conf/websites.cfg   |  1 -
 defacement_check.pl | 16 ++++++++--------
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/conf/websites.cfg b/conf/websites.cfg
index 86b0ee6..e69de29 100644
--- a/conf/websites.cfg
+++ b/conf/websites.cfg
@@ -1 +0,0 @@
-www.firewall-services.com
diff --git a/defacement_check.pl b/defacement_check.pl
index 43f12b6..f8a597b 100644
--- a/defacement_check.pl
+++ b/defacement_check.pl
@@ -97,15 +97,15 @@ foreach $file (@files)
 
     foreach my $s (@search) {
       foreach (grep(/$s/i, split(/\n/, $site))) {
-        # foreach my $i (@whitelist) {
-        #
-        # }
-        my $i = "prolibre";
-        if($_ =~ m/$i/i) {
+        push @found, $_;
+      }
+    }
+
+    foreach my $i (@whitelist) {
+      foreach (uniq(@found)) {
+        foreach (grep(/$i/i, split(/\n/))) {
           print "\033[35mIGNORE ";
-        }
-        else {
-          push @found, $_;
+          pop @found, $_;
         }
       }
     }