NAME

SYNOPSIS

  use HTTP::MobileAgent;

  # from PSGI $env hash:
  my $agent = HTTP::MobileAgent->new( $env );

  # from %ENV (CGI mode):
  my $agent = HTTP::MobileAgent->new();

  # from Apache (mod_perl 1.x):
  my $agent = HTTP::MobileAgent->new(Apache->request);

  # from a HTTP::Headers / HTTP::Request object:
  my $agent = HTTP::MobileAgent->new( HTTP::Headers->new( ... ) );
  my $agent = HTTP::MobileAgent->new( HTTP::Request->new( ... ) );

  # from a raw user agent string:
  my $agent = HTTP::MobileAgent->new($agent_string);

  if ($agent->is_docomo) {
      # or if ($agent->name eq 'DoCoMo')
      # or if ($agent->isa('HTTP::MobileAgent::DoCoMo'))
      # it's NTT DoCoMo i-mode.
      # see what's available in H::MA::DoCoMo
  } elsif ($agent->is_vodafone) {
      # it's Vodafone(J-Phone).
      # see what's available in H::MA::Vodafone
  } elsif ($agent->is_ezweb) {
      # it's KDDI/EZWeb.
      # see what's available in H::MA::EZweb
  } else {
      # may be PC
      # $agent is H::MA::NonMobile
  }

  my $display = $agent->display;        # HTTP::MobileAgent::Display
  if ($display->color) { ... }

DESCRIPTION

METHODS

new

  $agent = HTTP::MobileAgent->new;       # from %ENV
  $agent = HTTP::MobileAgent->new($env); # PSGI env hash
  $agent = HTTP::MobileAgent->new($r);   # Apache or HTTP::Request
  $agent = HTTP::MobileAgent->new($ua_string);
    

Parses HTTP headers and constructs HTTP::MobileAgent subclass instance.

If no argument is supplied, $ENV{HTTP_*} is used (i.e., expects a CGI environment to be setup)

If a single hash reference is given, then that hash is treated as a PSGI environment hash.

If a blessed reference which is based on Apache (mod_perl 1.x), HTTP::Headers or HTTP::Request is passed, those will be used accordingly to parse data.

If a single scalar is given, then that is taken to be a raw user agent string. Note that most likely this form of usage will not give you much information, as some mobile agents put useful information on HTTP headers other than only "User-Agent:" (like "x-jphone-msname" in J-Phone).

user_agent

  print "User-Agent: ", $agent->user_agent;
    

returns User-Agent string.

name

  print "name: ", $agent->name;
    

returns User-Agent name like 'DoCoMo'.

is_docomo, is_vodafone(is_j_phone, is_softbank), is_ezweb, is_wap1, is_wap2, is_tuka,is_non_mobile

   if ($agent->is_docomo) { }
    

returns if the agent is DoCoMo, Vodafone(J-Phone) or EZweb.

carrier

  print "carrier: ", $agent->carrier;
    

carrier_longname

  print "carrier_longname: ", $agent->carrier_longname;
    

display

  my $display = $agent->display;
    

returns HTTP::MobileAgent::Display object. See HTTP::MobileAgent::Display for details.

user_id

  my $user_id = $agent->user_id;
    

return X-DCMGUID, X-UP-SUBNO or X-JPHONE-UID.

gps_compliant

  if ($agent->gps_compliant) { }
    

returns if the agent is GPS compliant.

WARNINGS

"%s: no match. Might be new variants. please contact the author of HTTP::MobileAgent!"

User-Agent: string does not match patterns provided in subclasses. It may be faked user-agent or a new variant. Feel free to mail me to inform this.

NOTE

"Why not adding this module as an extension of HTTP::BrowserDetect?"

Yep, I tried to do. But the module's code seems hard enough for me to extend and don't want to bother the author for this mobile-specific features. So I made this module as a separated one.

MORE IMPLEMENTATIONS

OTHER LANGUAGE BINDINGS

AUTHOR

with contributions of Satoshi Tanimoto <tanimoto@cpan.org> and Yoshiki Kurihara <kurihara@cpan.org>

LICENSE

MAIN

SEE ALSO

Reference URL for specification is listed in Pods for each subclass.