NAME

HTTP::MobileAgent::Vodafone - Vodafone 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::Vodafone is a subclass of HTTP::MobileAgent, which implements Vodafone(J-Phone) user agents.

METHODS

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

version

            

              
              
$version = $agent->version;
            
          

returns Vodafone 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,

type

            

              
              
if ($agent->type eq 'C2') { }
            
          

returns the type, which is one of the following: C2 C3 C4 P4 P5 P6 P7 W 3GC

is_type_c,is_type_p,is_type_w,is_type_3gc

            

              
              
if ($agent->is_type_c) { }
            
          

returns if the type is C, P or W.

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.

xhtml_compliant

            

              
              
if ($agent->xhtml_compliant) { }
            
          

returns if the agent is XHTML compliant.

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::MobileAgent

http://www.dp.j-phone.com/jsky/user.html

http://www.dp.j-phone.com/jsky/position.html