The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

 / 
HTTP-MobileAgent-0.36
River stage two • 15 direct dependents • 18 total dependents
/ HTTP::MobileAgent::EZweb

NAME

HTTP::MobileAgent::EZweb - EZweb implementation

SYNOPSIS


            

              
              
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

DESCRIPTION

HTTP::MobileAgent::EZweb is a subclass of HTTP::MobileAgent, which implements EZweb (WAP1.0/2.0) user agents.

METHODS

See "METHODS" in HTTP::MobileAgent for common methods. Here are HTTP::MobileAgent::EZweb specific methods.

version

            

              
              
$version = $agent->version;

returns UP.Browser version number like '3.01'.

device_id

            

              
              
$device_id = $agent->device_id;

returns device ID like 'TS21'.

server

            

              
              
$server = $agent->server;

returns server string like "UP.Link/3.2.1.2".

comment

            

              
              
$comment = $agent->comment;

returns comment like "Google WAP Proxy/1.0". returns undef if nothinng.

xhtml_compliant

            

              
              
if ($agent->xhtml_compliant) { }

returns if the agent is XHTML compliant.

is_tuka

            

              
              
if ($agent->is_tuka) { }

returns if the agent is TU-KA model.

is_win

            

              
              
if ($agent->is_win) { }

returns if the agent is win model.

TODO

  • Spec information support listed in http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html

    (Patches are always welcome ;))

AUTHOR

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.

SEE ALSO

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