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