ぜろちゃんねるスクリプトを改造するスレ

430 ：名無しさん＠ぜろちゃんねる：05/02/14 18:16 ID:???

>>428
バージョン書いてくれないと困るな〜
とりあえず、以前にこの板で教えて貰ったスクリプト書くね。
俺のはそれで問題なく動いてるから。
ちなみに、test040221 + 040803 です。

#galadriel.pl
sub IsBBQ
{
my $BBQ = 0;

if (gethostbyname(join(".",reverse(split(/\./,$ENV{'REMOTE_ADDR'})
)).".niku.2ch.net") eq "\x7f\x00\x00\x02")
{ $BBQ = 1; } # BBQリストに載っていれば 1

return $BBQ;
}
# BBQここまで

varda.plは、それでいいと思う。
サブルーチン名は適当に書き換えてね。