jacking some geo server for mojo fun

gistfile1.pl

sub whereami {  
        my $self = shift;
        my $ip = $self->tx->remote_address;
        my $client = Mojo::UserAgent->new;      
        my $ip_info = $client->get('http://geo.serving-sys.com/GeoTargeting/ebGetLocation.aspx?ip=' . $ip)->res->body;
        my %data = map  { (split /=/, $_) } split(/&/, $ip_info);
        $self->render(json => \%data);
}


sub whereis {
        my $self = shift;
        my $ip = $self->param('ip');
        my $client = Mojo::UserAgent->new;      
        my $ip_info = $client->get('http://geo.serving-sys.com/GeoTargeting/ebGetLocation.aspx?ip=' . $ip)->res->body;  
        my %data = map  { (split /=/, $_) } split(/&/, $ip_info);       
        $self->render(json => \%data);
}


sub whereis_img {
        my $self = shift;
        my $ip = $self->param('ip');
        my $client = Mojo::UserAgent->new;      
        my $ip_info = $client->get('http://geo.serving-sys.com/GeoTargeting/ebGetLocation.aspx?ip=' . $ip)->res->body;  
        my %data = map  { (split /=/, $_) } split(/&/, $ip_info);       
        $self->render(
                long    =>      $data{Longitude},
                lat     =>      $data{Latitude},
                country =>      $data{CountryName},
                cc      =>      $data{CountryCode},
                city    =>      $data{City},
                ac      =>      $data{AreaCode},
                pc      =>      $data{PostalCode},              
        );
};