2004年12月06日

HTTP-MobileAgentなる、携帯端末認識に便利そうなモジュールがあったので、ちらっと調べてみたら最新機種に対応してなかった。
そんなもんで、パッチを書いといた。

とりあえずDoCoMoモジュールだけ。
ちなみに、未テストっす。
近いうち使ってみます。

Ezとかも少し書き換えれば使い勝手良くなりそう。

んでも、これ系のモジュールってキャリアのページからDBを自動的に作るようにしないと大変かもね。

よく考えたら、diff結果をここに張っても意味ないじゃん。

HTTP::MobileAgent::DoCoMo Module Version: 0.19


*** DoCoMo.pm.old 2004-12-06 12:35:04.366224059 +0900
--- DoCoMo.pm 2004-12-06 12:48:25.033106896 +0900
***************
*** 23,34 ****
qr/[DFNP]501i/ => '1.0',
qr/502i|821i|209i|691i|(F|N|P|KO)210i|^F671i$/ => '2.0',
qr/(D210i|SO210i)|503i|211i|SH251i|692i|200[12]|2101V/ => '3.0',
! qr/504i|251i|^F671iS$|^F661i$|212i|2051|2102V|2701/ => '4.0',
qr/eggy|P751v/ => '3.2',
! qr/505i|252i/ => '5.0',
];

! $GPSModels = { map { $_ => 1 } qw(F661i) };

sub is_docomo { 1 }

--- 23,34 ----
qr/[DFNP]501i/ => '1.0',
qr/502i|821i|209i|691i|(F|N|P|KO)210i|^F671i$/ => '2.0',
qr/(D210i|SO210i)|503i|211i|SH251i|692i|200[12]|2101V/ => '3.0',
! qr/504i|251i|^F671iS$|^F661i$|^F672i$|212i|^SO213|2051|2102V|2701/ => '4.0',
qr/eggy|P751v/ => '3.2',
! qr/505i|506i|25[23]i|^P213$|90[01]i|880i/ => '5.0',
];

! $GPSModels = { map { $_ => 1 } qw(F661i F505iGPS) };

sub is_docomo { 1 }

***************
*** 90,95 ****
--- 90,96 ----
/^ser(\w{15})$/ and $self->{serial_number} = $1, next;
/^icc(\w{20})$/ and $self->{card_id} = $1, next;
/^(T[CDBJ])$/ and $self->{status} = $1, next;
+ /^W(\d+)H(\d+)$/ and $self->{display_bytes} = "$1*$2", next;
$self->no_match;
}
}

Posted by Yappo at 2004年12月06日 13:06 | TrackBack | Perl
Comments
Post a comment









Remember personal info?






コメントを投稿する前に↓の場所にnospamと入力してください。