■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50 [PR]ぜろちゃんねるプラス[PR]  
レス数が1000を超えています。残念ながら全部は表示しません。

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

103 :97:2006/11/10(金) 08:35:10 ID:???0
Perlは範囲外の上に正規表現を理解出来てないのを前置きしておく。

sub GetIDPart
# PC・携帯識別番号付加
if($Set->Equal('BBS_SLIP','checked')){
$mode = ($agent == 0 ? '0' : 'O');
if('210.135.99.5' == $ENV{'REMOTE_ADDR'}){
$mode = 'P';
}
$id .= $mode;
}

sub MakeID
# 種の生成
if('210.135.99.5' == $ENV{'REMOTE_ADDR'}){
@nums = split(/(\d+)\.(\d+)\.(\d+)\.(\d+)/,$ENV{'HTTP_USER_AGENT'}); # USER_AGENTに入ってるIPを分解
$nums[0] = $nums[1];
$nums[1] = $nums[2];
$nums[2] = $nums[3];
$nums[3] = $nums[4];
} else {
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # IPを分解
}

246KB
READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス