<<<<<<< geoip-lookup-city
#!/usr/bin/perl -Ilib -w
=======
#!/usr/bin/perl -w
>>>>>>> 1.2

use strict;

use Geo::IP::PurePerl;


my $addr = shift;

my $gi = Geo::IP::PurePerl->new("/usr/local/share/GeoIP/GeoIPCity.dat",GEOIP_STANDARD);

if ($addr){
  my ($country_code,$country_code3,$country_name,$region,$city,$postal_code,$latitude,$longitude,$dma_code,$area_code) = $gi->get_city_record($addr);

  print $country_code . "\n";
  print $country_code3 . "\n";
  print $country_name . "\n";
  print $region . "\n";
  print $city . "\n";
  print $postal_code . "\n";
  print $latitude . "\n";
  print $longitude . "\n";
  print $dma_code . "\n";
  print $area_code . "\n";
} else {
  print STDERR "Usage: $0 ipaddr\n";
  exit;
}
