<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#/usr/local/bin/perl

if($#ARGV &lt; 0) {&amp;usage();}
sub usage {
	print("Usage:\n");
	print("\tgeo place name\n");
	exit(0);
}


require 'chat2.pl';


sub listen {
        local($secs) = @_;
        local($return,$tmp) = "";
        while (length($tmp = &amp;chat'expect($secs, '(.|\n)+', '$&amp;'))) {
                print $tmp if $trace;
                $return .= $tmp;
        }
	$return;
}
# 0 &lt;city name&gt;
# 1 &lt;county FIPS code&gt; &lt;county name&gt;
# 2 &lt;state/province abbreviation&gt; &lt;state/province name&gt;
# 3 &lt;nation abbreviation&gt; &lt;nation name&gt;
# A &lt;telephone area code&gt;
# E &lt;elevation in feet above mean sea level&gt;
# F &lt;feature code&gt; &lt;feature name&gt;
# L &lt;latitude DD MM SS X&gt; &lt;longitude DDD MM SS X&gt;
# P &lt;1980 census population&gt;
# R &lt;remark&gt;
# T &lt;time zone&gt;
# Z &lt;postal ("ZIP") code&gt;


$request = join(' ', @ARGV);
&amp;chat'open_port('martini.eecs.umich.edu', 3000) || die "open: $!";
$_=&amp;listen(2);
while(!/Geographic/){
$_=&amp;listen(5);
}
print("Geographic NameServer Query:  \"$request\"\n");
&amp;chat'print("$request\n");
$_=&amp;listen(3);
split(/\n/);
foreach $dataline (@_){
	@els = split(/[ ]+/, $dataline);
	$foo =shift(@els);
	if($foo=~/0/){
		$rest = join(' ',@els);
		chop($rest);
                print("\nLocation Name:  $rest\n");
                }
        if($foo=~/1/){
		$bar = shift(@els);
                $rest = join(' ', @els);
		chop($rest);
                print("County:         $rest ($bar)\n");
		}
	if($foo=~/2/){
		$bar = shift(@els);
		$rest = join(' ', @els);
		chop($rest);
		print("State/Province: $rest ($bar)\n");
	}
	if($foo=~/3/){
		$bar = shift(@els);
		$rest = join(' ', @els);
		chop($rest);
		print("Country:        $rest ($bar)\n");
	}
	if($foo=~/A/){
		$rest = join(' ', @els);
		chop($rest);
		print("Area Code:      $rest\n");
	}
	if($foo=~/E/){
		$rest = join(' ', @els);
		chop($rest);
		print("Elevation:      $rest\n");
	}
	if($foo=~/L/){
		print("Latitude:       $els[0] $els[1]' $els[2]\" $els[3]\n");
		print("Longitude:      $els[4] $els[5]' $els[6]\" $els[7]\n");
	}
	if($foo=~/P/){
		print("Population:     $els[0]\n");
	}
	if($foo=~/T/){
		print("Time Zone:      $els[0]\n");
	}
	if($foo=~/Z/){
		print("Zip Code:       $els[0]\n");
	}
	if($foo=~/R/){
		$rest = join(' ', @els);
		print("Comment:	       $rest\n");
	}

}
&amp;chat'print("quit\n");


</pre></body></html>