■掲示板に戻る■ 全部 1- 101- 201- 301- 最新50 [PR]ぜろちゃんねるプラス[PR]  

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

20 :名無しさん@ぜろちゃんねる:2009/05/07(木) 12:39:46 ID:3C3n5dzo0
遅くなったけど貼るかなあ。
bbs.cgiの580行目ぐらい
sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;
my$host = $oConv->GetRemoteHost();
#docomoの場合
if($host =~ /\.docomo\.ne\.jp/){
$docomo = $ENV{'HTTP_X_DCMGUID'};
$product = $docomo;
}
#auの場合
elsif($host =~ /\.ezweb\.ne\.jp/){
$kddi = $ENV{'HTTP_X_UP_SUBNO'};
$product = $kddi;
}
#softbankの場合
elsif($host =~ /\.jp-.\.ne.jp/){
$agent =~ /SN([A-Za-z0-9]+)/;
$product = $1;
#$product = $ENV{'HTTP_X_JPHONE_UID'};
}
else{
$product = $oConv->GetRemoteHost();
}
return $product;
}

read.cgiの393行目ぐらい
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">\n");
r.cguの300行目辺り
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\" utn>\n");

取得できるようになったら幸いです。


73KB
続きを読む

名前: E-mail(省略可)
READ.CGI - 0ch+ BBS 0.7.4 20131106
ぜろちゃんねるプラス