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 $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)) {

Loading…
Cancel
Save