From d540b06fcec40e05b0b10fc2fb200a321d213360 Mon Sep 17 00:00:00 2001 From: heuzef Date: Fri, 9 Feb 2018 09:29:59 +0100 Subject: [PATCH] update whitlist conf --- defacement_check.pl | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/defacement_check.pl b/defacement_check.pl index bae355f..725f752 100644 --- a/defacement_check.pl +++ b/defacement_check.pl @@ -94,15 +94,22 @@ foreach $file (@files) my @found; my $total_found = 0; - foreach my $s (@search) { - foreach (grep(/$s/i, split(/\n/, $site))) { - if($_ =~ m/club/i) { - print "\033[35mIGNORE "; - } else { - push @found, $_; + 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, $_; + } } - } - } + + + } # Pour chaque URL faire une recherche du keywords-black + + } # Pour chaque keywords-black dans la liste # Results foreach (uniq(@found)) {