YappoLogs

HTTP::MobileAgent::DoCoMoの2004年冬対応パッチ

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;

        }

      }