Ok, I went through and ran every line of the code it said to do. on the first line, lwp-download... I got an error saying this: lwp-download: Aborted
Will not save <http://tjmather.com/Geo-PostalCode_19991101.txt.gz> as
+"Geo-PostalCode\x5f19991101.txt.gz".
Please override file name on the command line.
so I did it like this: wget http://tjmather.com/Geo-PostalCode_19991101.txt.gz then did the rest like it said. I manually saved and uploaded all the installation files from here: http://search.cpan.org/src/TJMATHER/Geo-PostalCode-0.06/
When I uploaded them the files in /t that end with .t somehow ended up with .t.txt file names so I had to rename those.
After all was said and done, I did a test with this code:
use Geo::PostalCode;
my ($lat, $lon, $city, $state, $distance, $_record, $_db_dir, $gp,
+ $_zip);
$_db_dir = "/etc/zip/edgetest";
$gp = Geo::PostalCode->new(db_dir => $_db_dir) or die "Could not c
+reate a New Instance!";
$_zip = param("zip");
$_record = $gp->lookup_postal_code('postal_code' => "$_zip") or di
+e "Could not Lookup Postal Code!";
$lat = $_record->{lat};
$lon = $_record->{lon};
$city = $_record->{city};
$state = $_record->{state};
$distance = $gp->calculate_distance(postal_codes => ["$_zip",'7485
+1']) or die "Could not get distance 3!";
$postal_codes = $gp->nearby_postal_codes(lat => $lat, lon =>
+ $lon,
distance => 50);
$_page_content .= qq~<br>
City is ~ . $city . qq~<br>
State is ~ . $state . qq~<br>
Latitude is ~ . $lat . qq~<br>
Longitude is ~ . $lon . qq~<br>
<br>
Nearby Zips are: ~ . @$postal_codes . qq~<br>
<br>
The Distance from $_zip to US is $distance miles<br>
<br>~; # $_page_content is printed at the end of
# the index.cgi file for the
# content...
I added the 'die' parts for debugging because it was not working. I am getting this message: Could not Lookup Postal Code! So it is failing at this part of the code: $_record = $gp->lookup_postal_code('postal_code' => "$_zip") or die "Could not Lookup Postal Code!";
Can you see a reason why this would not be working and failing at that location?
Thanks for any further assistance you can be. I will appreciate any and all advice on the matter.
| 