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

986 ：名無しさん＠ぜろちゃんねる：2005/06/28(火) 16:24:58 ID:???0

http://www.au.kddi.com/ezfactory/tec/spec/4_4.html
> HTTP Requestヘッダ情報では、この他にHTTP_X_UP_SUBNOフィールドにて
> EZ番号が確認できます。
> EZ番号は、2005年4月14日以降はユーザの端末操作によって、送出しない設定
> にすることが可能です。ユーザが「送出しない」設定にした場合、本フィールド
> は送出されません。

って書いてあるから取得できると思うよ。

$product = "";　　　　　　　　　　　　　 # 端末識別情報
$host 　　= $ENV{'REMOTE_HOST'};　# ホスト名

if ($host =~ /\.(ido|ezweb)\.ne\.jp/) {　　#AUユーザ
　$agent = $ENV{'HTTP_X_UP_SUBNO'};　#サブスクライバ取得
　if ($agent =~ /^([0-9]{14}_[0-9a-z]{2})\.ez[a-z\.]+ne\.jp$/) {
　　$product = $1;
　} else {
　　$product = "端末識別情報を送ってね";
　}
}