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; }
{{#tags}}- {{label}}
{{/tags}}