Perlで携帯電話の製造番号を取得
Perlで携帯電話の製造番号を取得
Perlで携帯電話の製造番号を取得するスクリプトを作っています。
docomoのD905iしか持っておらず、他の携帯での動作確認ができません。
以下のスクリプトで正しいでしょうか？
以下のスクリプトで、他にやっておいたほうがよい事など、
何かアドバイスがありましたらお願いします。
やりたいことは、
docomo、au、ソフトバンクのみで取得する。
iPhone、イーモバイルは取得しない。
古い携帯電話で取得できないものは切り捨てる。
携帯電話でアクセスした人が、それぞれに画面をカスタマイズでき、
次回アクセスしたときも同じ画面が表示されるようなサイトを作ろうとしています。
普通はクッキーで本人確認するのだと思いますが、携帯電話ではクッキーが
無いので、代わりに製造番号を使って本人確認しようと考えています。
１ヶ月くらいだけオープンするサイトであり、金銭的な絡みも個人情報も無いので、
携帯電話の所有者が変わったときの問題は無いと思っています。
■ HTML
<a href="./test.cgi" utn>製造番号取得</a>
■ Perl
#--ソフトバンク
if($ENV{'HTTP_X_JPHONE_UID'} ne ''){
$uid = $ENV{'HTTP_X_JPHONE_UID'};
}
#--au
elsif($ENV{'HTTP_X_UP_SUBNO'} ne ''){
$uid = $ENV{'HTTP_X_UP_SUBNO'};
}
#docomo
else{
$agent = $ENV{'HTTP_USER_AGENT'};
$ser_index = index($agent,'ser');
if ($ser_index != -1) { $uid = substr($agent,$ser_index+3); }
}
print"製造番号:$uid<br>\n";
以上、よろしくお願いします。
