#!/usr/athena/bin/perl $|=1; use lib '/var/www/cgi-bin/lib'; require '/var/www/data/geo/civil.pl'; require 'parseform.pl'; %form = &parseform($ENV{'QUERY_STRING'}); $searchf = $form{'location'}; $searchf =~ s/[^A-Za-z0-9 \t_',.&\/\+-]//g; &mainscreen(); if(!$searchf){ exit; } ($search, $state) = split(",", $searchf); $state =~ s/\s//g; $matchstate = ""; if($state){ $state=~y/a-z/A-Z/; $matchstate = $abbrev{$state}; } open(MATCHES, "/bin/grep -i -- \"$search\" /var/www/data/geo/geonames|");; print "

Search for $searchf

\n"; print < Placename State County Lat/Long Elevation Population Remark Postal code Nation HEADER foreach (){ /(..).(..).(..)(...).(.......)(........).(.......).(.....)(.+)/; $nation = $1; $feature = $2; $state = $3; $county = $4; $lat = $5; $long = $6; $pop = $7; $elev = $8; $rest = $9; $lat =~ s/\s//g; $long =~ s/\s//g; if($lat =~ /(..)(..)(..)(.)/){ $lat = "$1:$2:$3 $4"; } if($long =~ /(...)(..)(..)(.)/){ $long = "$1:$2:$3 $4"; } $rest=~/\"([^\"]+)\"(.*)/; $locname = $1; $other = $2; $postal = $remark = ""; if($other=~/$([^$]+)\)/){ $remark = $1; } if($other=~/\[([^\]]+)\]/){ $postal = $1; $postal =~ s/,/, /g; } if($feature == 19){ if($county == 0){ print "\$abbrev{\"$remark\"} = \"$locname\";\n"; } } if((!$matchstate) || ($statename{$state} eq $matchstate)){ $ct++; if($ct%10 == 0){ print "\nPlacename\nState\nCounty\nLat/Long\nElevation\nPopulation\nRemark\nPostal code\nNation\n\n"; } print < $locname $statename{$state} $countyname{$state.$county} $lat $long $elev $pop $remark $postal $nation REC } if(0){ push(@places, $locname); $nation{$locname} = $nation; $feature{$locname} = $feature; $state{$locname} = $state; $county{$locname} = $county; $lat{$locname} = $lat; $long{$locname} = $long; $pop{$locname} = $pop; $elev{$locname} = $elev; $remark{$locname} = $remark; $postal{$locname} = $postal; } } print "\n\n\n"; exit; sub mainscreen { print <<"EndOfInfo"; Content-type: text/html Geographic Nameserver

Geographic Nameserver

The information on this server is not current. For current information see:

http://geonames.usgs.gov/pls/gnis/web_query.gnis_web_query_form

If you are looking for listings by city or zip code information, you could also try:

http://www.census.gov/cgi-bin/gazetteer/

Enter the name of the place you want to look up

For example, enter "cambridge, ma" to look up Cambridge, Massachusetts. If you enter just "cambridge", you will get information on all towns called Cambridge.

This server contains mostly information on locations within the US. It uses the information from the geographic nameserver database formerly on martini.eecs.umich.edu.

This data was last considered current circa 1987.

EndOfInfo }