#!/usr/bin/env perl

# Read a new location and print out in forms suitable
#	to add to createdatabase.PL and lib/Geo/Coder/Free/Local.pm

use strict;
use warnings;

print 'Latitude: ';
my $lat = readline(STDIN);
print 'Longitude: ';
chomp($lat);
my $long = readline(STDIN);
print 'Name: ';
chomp($long);
my $name = uc(readline(STDIN));
print 'Number: ';
chomp($name);
my $number = readline(STDIN);
print 'Street (use abbreviation e.g. RD not ROAD): ';
chomp($number);
my $street = uc(readline(STDIN));
print 'City: ';
chomp($street);
my $city = uc(readline(STDIN));
print 'County (US or Canada): ';
chomp($city);
my $county = uc(readline(STDIN));
print 'State (two letters if US or Canada)/County (not US or Canada): ';
chomp($county);
my $state = uc(readline(STDIN));
print 'Country (two letters): ';
chomp($state);
my $country = uc(readline(STDIN));
print 'Post Code: ';
chomp($country);
my $postcode = uc(readline(STDIN));
chomp($postcode);

print "createdatabase.PL:\n",
	"\t\t'LAT' => $lat,\n",
	"\t\t'LON' => $long,\n";
if($name && length($name)) {
	print "\t\t'NAME' => '$name',\n";
}
if($number && length($number)) {
	print "\t\t'NUMBER' => $number,\n";
}
if($street && length($street)) {
	print "\t\t'STREET' => '$street',\n";
}
print "\t\t'CITY' => '$city',\n";
if($county && length($county)) {
	print "\t\t'COUNTY' => '$county',\n";
}
print "\t\t'STATE' => '$state',\n",
	"\t\t'COUNTRY' => '$country',\n";
if($postcode) {
	print "\t\t'POSTCODE' => $postcode\n";
}

$name //= '';
$number //= '';
$county //= '';

print 'x' x 40, "\nlib/Geo/Coder/Free/Local.pm:\n",
	"\"$name\",$number,\"$street\",\"$city\",\"$county\",\"$state\",\"$country\",$lat,$long\n";
