скрипт блокировки спамеров на www
Добавлено: 2009-03-20 16:34:06
правильный ли скрипт? статью может написать?
строго сделал поиск айпи (есть еще один blacklist там текст), форкнул в другой процесс и добавил в таблицу ipfw
кстате правильно ли форк работает, там надо проверки делать если что-то повиснит?
лучше форкать через систему...
добавить в крон через 6 часов запускать
UPD: http://www.lissyara.su/?id=1910
строго сделал поиск айпи (есть еще один blacklist там текст), форкнул в другой процесс и добавил в таблицу ipfw
кстате правильно ли форк работает, там надо проверки делать если что-то повиснит?
лучше форкать через систему...
добавить в крон через 6 часов запускать
Код: Выделить всё
#!/usr/bin/perl
use LWP::Simple;
# use Proc::Fork;
my $spam = get("http://www.stopforumspam.com/downloads/bannedips.csv");
my $hash;
$hash->{$1} ++ while $spam =~ /(\d+\.\d+\.\d+\.\d+)/smg xor grep {$_>255} split /\./,$1;
system("ipfw table 1 flush");
my $parent=$$;
my $child=fork();
if($$ == $parent){
print "Parent: pid=$$;($parent)\n";
} else {
kill("TERM",$parent); # убиваем родителя
#system("kill -9 $parent");
while (keys %$hash){
system("ipfw table 1 add $_");
}
kill("TERM",$$);
exit; # на всякий случай
}
exit; # на всякий случай