Ignore list is OK !

master
heuzef 7 years ago
parent d79515520e
commit 44402a60c5
  1. 1
      conf/websites.cfg
  2. 16
      defacement_check.pl

@ -1 +0,0 @@
www.firewall-services.com

@ -97,17 +97,17 @@ 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) {
print "\033[35mIGNORE ";
}
else {
push @found, $_;
}
}
foreach my $i (@whitelist) {
foreach (uniq(@found)) {
foreach (grep(/$i/i, split(/\n/))) {
print "\033[35mIGNORE ";
pop @found, $_;
}
}
}
# Results

Loading…
Cancel
Save