2005年06月20日 (月)
A5511TのデバイスID
2,3日前に発売された、A5511Tですが、デバイスID英字2文字+数字2文字のルールがかわって、HTTP::UserAgent の is_ezweb でうまく判断出来なかったみたい。
KDDI-TS2A UP.Browser/6.2.0.9 (GUI) MMP/2.0
すぐにCPANに上がる模様。
と入りそぎ、急ごしらえだけど、
package Project::HTTP::MobileAgent::MobileAgentRE; use strict; use vars qw($VERSION); $VERSION = '0.01'; my $DoCoMoRE = '^DoCoMo/\d\.\d[ /]'; my $JPhoneRE = '^J-PHONE/\d\.\d'; my $EZwebRE = '^(?:KDDI-[A-Z0-9]+ )?UP\.Browser\/'; my $AirHRE = '^Mozilla/3\.0\(DDIPOCKET\;'; my $MobileAgentRE = qr/(?:($DoCoMoRE)|($JPhoneRE)|($EZwebRE)|($AirHRE))/; $HTTP::MobileAgent::MobileAgentRE = $MobileAgentRE; 1;
ッてな感じの作って
use HTTP::MobileAgent; use Project::HTTP::MobileAgent::MobileAgentRE;
でごまかした。
posted by takefumi
|
この日記へリンク
|
コメント(0)
|
トラックバック(1)