Changeset 7392 for lang/perl/HTTP-MobileAgent-Plugin-Locator/branches/get_locator_from_params

Timestamp:

03/03/08 15:25:26 (5 years ago)

Author:

chiba

Message:

lang/perl/HTTP-MobileAgent?-Plugin-Locator: implement gps_parameter

Location:

lang/perl/HTTP-MobileAgent-Plugin-Locator/branches/get_locator_from_params

Files:

• lib/HTTP/MobileAgent/Plugin/Locator.pm (modified) (2 diffs)
• t/07_gps_parameter.t (added)

lang/perl/HTTP-MobileAgent-Plugin-Locator/branches/get_locator_from_params/lib/HTTP/MobileAgent/Plugin/Locator.pm

@@ -16 +16 @@
     no strict 'refs';
     *{"HTTP\::MobileAgent\::gps_compliant"} = \&_gps_compliant;
+    *{"HTTP\::MobileAgent\::gps_parameter"} = \&_gps_parameter;
     *{"HTTP\::MobileAgent\::locator"}       = sub { $class->new( @_ ) };
     *{"HTTP\::MobileAgent\::get_location"}  = sub {
@@ -32 +33 @@
     } elsif ( $self->is_softbank ) {
         return $self->is_type_3gc;
+    }
+}
+
+
+sub _gps_parameter {
+    my ( $self, $params ) = @_;
+
+    if ( $self->is_docomo ) {
+        return (!defined $params->{AREACODE}) ? 1 : 0;
+    }
+    elsif ( $self->is_ezweb ) {
+        return ( $params->{datum} =~ /^\d+$/ ) ? 1 : 0;
+    }
+    elsif ( $self->is_softbank ) {
+        return ( defined $params->{pos} ) ? 1 : 0;
+    }
+    elsif ( $self->is_airh_phone ) {
+        return 0;
+    }
+    else {
+        croak( "Invalid mobile user agent: " . $self->user_agent );
     }
 }