ぜろちゃんねるアシストスクリプト

963 ：名無しさん＠ぜろちゃんねる：2007/04/20(金) 05:34:49 ID:???0

近頃海外からの意味不明スパム？が多いので
http://0ch.mine.nu/test/read.cgi/jikken/1047622148/213　←こういうのとか
↓を参考にしながらいじってみました。
効果があるのか、また正確性がどうなのかはわかりませんが、やらないよりはまし・・・？

参考URL　ttp://phpspot.org/blog/archives/2006/01/ip.html
編集ファイル　moduleフォルダ内のvara.plのIsRegulationサブルーチン内の任意の場所で
編集内容　以下を追加
##########　ここから ##########
# 海外判定ﾁｪｯｸ
use LWP::Simple;
$RADDR = $ENV{'REMOTE_ADDR'};
$countrycode = "http://api.hostip.info/get_html.php?ip=$RADDR";
$country_text = get($countrycode);
if ($country_text =~ /\([A-Z]{2}\)/){
if ($& ne "(JP)"){
return 997;
}
}
##########　ここまで ##########

これで訳のわからない海外投稿防げるの？うんそうだね。きっとそう。たぶんそう。いやもしかしたらそうかも・・・いやｼﾗﾈ
一応動作確認はしたつもりですが、識者の方の御意見を伺えたらと思います。

＃　要LWP::Simpleモジュール　（XREAは標準？）