NAME
HTTP::MobileAgent::JPhone - J-Phone implementation
SYNOPSIS
use HTTP::MobileAgent;
local $ENV{HTTP_USER_AGENT} = "J-PHONE/2.0/J-DN02";
my $agent = HTTP::MobileAgent->new;
printf "Name: %s\n", $agent->name; # "J-PHONE"
printf "Version: %s\n", $agent->version; # 2.0
printf "Model: %s\n", $agent->model; # "J-DN02"
print "Packet is compliant.\n" if $agent->packet_compliant; # false
# only availabe in Java compliant
# e.g.) "J-PHONE/4.0/J-SH51/SNXXXXXXXXX SH/0001a Profile/MIDP-1.0 Configuration/CLDC-1.0 Ext-Profile/JSCL-1.1.0"
printf "Serial: %s\n", $agent->serial_number; # XXXXXXXXXX
printf "Vendor: %s\n", $agent->vendor; # 'SH'
printf "Vender Version: %s\n", $agent->vendor_version; # "0001a"
my $info = $self->java_info; # hash reference
print map { "$_: $info->{$_}\n" } keys %$info;DESCRIPTION
HTTP::MobileAgent::JPhone is a subclass of HTTP::MobileAgent, which implements J-PHONE user agents.
METHODS
See "METHODS" in HTTP::MobileAgent for common methods. Here are HTTP::MobileAgent::JPhone specific methods.
- version
-
$version = $agent->version;returns J-PHONE version number like '1.0'.
- model
-
$model = $agent->model;returns name of the model like 'J-DN02'.
- packet_compliant
-
if ($agent->packet_compliant) { }returns whether the agent is packet connection complicant or not.
- serial_number
-
$serial_number = $agent->serial_number;return terminal unique serial number. returns undef if user forbids to send his/her serial number.
- vendor
-
$vendor = $agent->vendor;returns vendor code like 'SH'.
- vendor_version
-
$vendor_version = $agent->vendor_version;returns vendor version like '0001a'. returns undef if unknown,
- java_info
-
$info = $agent->java_info;returns hash reference of Java profiles. Hash structure is something like:
'Profile' => 'MIDP-1.0', 'Configuration' => 'CLDC-1.0', 'Ext-Profile' => 'JSCL-1.1.0',returns undef if unknown.
TODO
Area information support on http://www.dp.j-phone.com/jsky/position.html
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://www.dp.j-phone.com/jsky/user.html
http://www.dp.j-phone.com/jsky/position.html