ぜろちゃんねるスクリプトを改造するスレ 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");

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