ぜろちゃんねるスクリプト総合質問スレ Part8

112 ：名無しさん＠ぜろちゃんねる：2006/11/11(土) 06:01:18 ID:???0

# 種の生成
@nums = split(/\./,$ENV{'REMOTE_ADDR'});
↓
# 種の生成
if($ENV{'REMOTE_ADDR'} eq '210.135.99.5'){
$ENV{'HTTP_USER_AGENT'} =~ / p2-client-ip: (\d+)\.(\d+)\.(\d+)\.(\d+)/;
@nums = ($1,$2,$3,$4);
}else{
@nums = split(/\./,$ENV{'REMOTE_ADDR'});
}

あるいは、公式p2がHTTPヘッダ p2-Client-IP: を吐いているという前提で、
# 種の生成
if($ENV{'REMOTE_ADDR'} eq '210.135.99.5'){
@nums = split(/\./,$ENV{'HTTP_P2_CLIENT_IP'});
}else{
@nums = split(/\./,$ENV{'REMOTE_ADDR'});
}

# しかし公式p2で串が使えるのなら、こんなことよりもっと前段階で別の対策が必要になるなぁ。