From 44402a60c5d3e4f2f176613cec133e2bf8d80c5d Mon Sep 17 00:00:00 2001 From: heuzef 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, $_; } } }