HTTP::MobileAgent::EZweb - EZweb implementation
use HTTP::MobileAgent; local $ENV{HTTP_USER_AGENT} = "UP.Browser/3.01-HI02 UP.Link/3.2.1.2"; my $agent = HTTP::MobileAgent->new; printf "Name: %s\n", $agent->name; # "UP.Browser" printf "Version: %s\n", $agent->version; # 3.01 printf "DevieID: %s\n", $agent->device_id; # HI02 printf "Server: %s\n", $agent->server; # "UP.Link/3.2.1.2" # e.g.) UP.Browser/3.01-HI02 UP.Link/3.2.1.2 (Google WAP Proxy/1.0) printf "Comment: %s\n", $agent->comment; # "Google WAP Proxy/1.0" # e.g.) KDDI-TS21 UP.Browser/6.0.2.276 (GUI) MMP/1.1 print "XHTML compiant!\n" if $agent->xhtml_compliant; # true
HTTP::MobileAgent::EZweb is a subclass of HTTP::MobileAgent, which implements EZweb (WAP1.0/2.0) user agents.
See "METHODS" in HTTP::MobileAgent for common methods. Here are HTTP::MobileAgent::EZweb specific methods.
$version = $agent->version;
returns UP.Browser version number like '3.01'.
$device_id = $agent->device_id;
returns device ID like 'TS21'.
$server = $agent->server;
returns server string like "UP.Link/3.2.1.2".
$comment = $agent->comment;
returns comment like "Google WAP Proxy/1.0". returns undef if nothinng.
if ($agent->xhtml_compliant) { }
returns if the agent is XHTML compliant.
if ($agent->is_tuka) { }
returns if the agent is TU-KA model.
if ($agent->is_win) { }
returns if the agent is win model.
Spec information support listed in http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html
(Patches are always welcome ;))
Tatsuhiko Miyagawa <miyagawa@bulknews.net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
HTTP::MobileAgent
http://www.au.kddi.com/ezfactory/tec/spec/4_4.html
http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html
To install HTTP::MobileAgent, copy and paste the appropriate command in to your terminal.
cpanm
cpanm HTTP::MobileAgent
CPAN shell
perl -MCPAN -e shell install HTTP::MobileAgent
For more information on module installation, please visit the detailed CPAN module installation guide.