package Moxy::Plugin::GPS::AirHPhone;
use strict;
use warnings;
use base qw/Moxy::Plugin/;
use HTTP::Response;

sub request_filter :CarrierHook('H') {
    my ( $self, $context, $args ) = @_;

    if ($args->{request}->uri =~ m{^http://location\.request/dummy\.cgi\?my=(.+)&pos=\$location$}) {
        my $redirect_to = $1;

        $context->log(debug => "redirect uri is $redirect_to");

        $redirect_to .= '?pos=N35.37.12.543E139.43.29.920';

        my $response = HTTP::Response->new( 302, 'Redirect by Moxy(GPS willcom)' );
        $response->header(Location => $redirect_to);
        $response;
    }
}

1;