update whitlist conf

master
heuzef 7 years ago
parent 013ee022f2
commit d540b06fce
  1. 23
      defacement_check.pl

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

Loading…
Cancel
Save