SPAMや荒らしの対策方法 BBQ(BBX,DSBL)の導入方法 BBQ(BBX,DSBL)導入方法(test060227版) my $RADDR = $ENV{'REMOTE_ADDR'}; $RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; my $query_addr = "$4.$3.$2.$1.niku.2ch.net"; # BBQ用 # my $query_addr = "$4.$3.$2.$1.bbx.2ch.net"; # BBX用 my $addr = join('.', unpack('C*', gethostbyname($query_addr))); if ($addr eq '127.0.0.2') { return 997; }