NAME
HTTP::MobileUID - 携帯端末の公式のユーザIDを取得する
概要
use HTTP::MobileUID;
use HTTP::MobileAgent;
my $agent = HTTP::MobileAgent->new;
my $userid = HTTP::MobileUID->new($agent);
print $userid->uid;説明
携帯端末の公式のユーザIDを取得します。
メソッド
- uid()
- id()
-
キャリア公式のユーザIDを返します。
DoCoMoの場合はApache::DoCoMoUID互換の環境変数HTTP_X_DOCOMO_UIDから取得する実装になっています。
ユーザIDが取得できなかった場合は未定義値を返します。
- convert_uid()
-
コンバートしたユーザIDを返します。
DoCoMoの場合に先頭2文字削っているのと、Softbankの場合に先頭1文字削っているだけです。
基本このメソッドを使うことになると思います。
- has_uid()
- no_uid()
-
端末IDの取得には対応しているが何らかの理由でユーザIDが取得できないケースがあるのでそれを判定します。
no_uidが真になるのは以下のケース
DoCoMoでキャリア申請してない場合
SoftBankでユーザIDの通知設定を行わなかった場合
AUでサブスクライバIDの通知設定を行わなかった場合
- is_docomo_uid($uid)
- is_softbank_uid($uid)
- is_ezweb_uid($uid)
-
ユーザIDとして正しいか判定します。
それぞれクラスメソッドとして用意しているので
if ( HTTP::MobileUID->is_docomo_uid($uid) ) {}のような感じで使用することも可能です。
作者
Ittetsu Miyazaki <ittetsu.miyazaki __at__ gmail.com>
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.