HTTP::MobileAgent::Vodafone - Vodafone implementation
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;
HTTP::MobileAgent::Vodafone is a subclass of HTTP::MobileAgent, which implements Vodafone(J-Phone) user agents.
See "METHODS" in HTTP::MobileAgent for common methods. Here are HTTP::MobileAgent::Vodafone specific methods.
$version = $agent->version;
returns Vodafone version number like '1.0'.
$model = $agent->model;
returns name of the model like 'J-DN02'.
if ($agent->packet_compliant) { }
returns whether the agent is packet connection complicant or not.
$serial_number = $agent->serial_number;
return terminal unique serial number. returns undef if user forbids to send his/her serial number.
$vendor = $agent->vendor;
returns vendor code like 'SH'.
$vendor_version = $agent->vendor_version;
returns vendor version like '0001a'. returns undef if unknown,
if ($agent->type eq 'C2') { }
returns the type, which is one of the following: C2 C3 C4 P4 P5 P6 P7 W 3GC
if ($agent->is_type_c) { }
returns if the type is C, P or W.
$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.
if ($agent->xhtml_compliant) { }
returns if the agent is XHTML compliant.
Area information support on http://www.dp.j-phone.com/jsky/position.html
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.dp.j-phone.com/jsky/user.html
http://www.dp.j-phone.com/jsky/position.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.