Perl

DNSBLでspam除け(2)

とりあえず前のでいけるかなー、とか思ってたら、普通にすり抜けてきやがった。もう仕方がないんでpivot blacklist(というかNP_Blacklist)の仕組みを移植してしまった。 設定にWebインターフェイスはいらんので、結構簡単にできた。コメントのフィルタに正規…

DNSBLでspam除け

放置してた掲示板が、最近spamでウザくなってきたのでDNSBLで撥ねることにする。あのスクリプトPHPやったっけ、とか思ってたらPerlやった。Perl使ったことねぇー、と思いつつ適当に勉強して実装した。 sub CheckIP { my $addr, $rev_addr, $uri, @rbl_server…