<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16640" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>i had this </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- my $host = "<A
href="http://www.findu.com">www.findu.com</A>";<BR>my (@data, $line);<BR>my $t
= new Net::Telnet(Timeout=> '50', port =>
'80');<BR>$t->errmode('return');<BR>$t->Net::Telnet::open($host);<BR>#sleep
5;<BR>print $t "GET
/cgi-bin/posit.cgi?call=".$FORM{Call}."&comma=1\n";<BR>#print
$FORM{Call};<BR>#print $t "GET
/cgi-bin/posit.cgi?call=VK4TEC-9&comma=1\n";<BR>while
(<$t>)<BR>{<BR>print;<BR>if (m/,/)<BR>{<BR>@data = split/,/;<BR>$long =
$data[1];<BR>$lat =
$data[0];
</DIV>
<DIV style="FONT: 10pt arial"> </DIV>
<DIV style="FONT: 10pt arial"> </DIV>
<DIV style="FONT: 10pt arial"> </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=michael@frii.com href="mailto:michael@frii.com">Michael</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=aprssig@lists.tapr.org
href="mailto:aprssig@lists.tapr.org">TAPR APRS Mailing List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Sunday, May 18, 2008 8:03 AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [aprssig] findu /
lookup</DIV>
<DIV><BR></DIV>Andrew,<BR><BR>I just wrote a thing that uses findu.com.<BR>It
works pretty well.<BR><BR>73 Michael N7MR<BR>
<P>
<HR>
<P></P>#!/usr/bin/perl<BR><BR>use LWP::Simple;<BR><BR>read(STDIN, $buffer,
$ENV{'CONTENT_LENGTH'});<BR>($name, $value) = split(/=/,
$buffer);<BR><BR>$rawData = get("<A
href="http://www.findu.com/cgi-bin/posit.cgi?call=$value&start=24&comma=1">http://www.findu.com/cgi-bin/posit.cgi?call=$value&start=24&comma=1</A>");<BR><BR>@rawDataLines
= split($/,$rawData);<BR>@rawDataLines = reverse @rawDataLines;<BR>shift
@rawDataLines;<BR>shift @rawDataLines;<BR><BR># Capture the most recently
reported location<BR>$mostRecentReportedLocation = shift
@rawDataLines;<BR><BR># Separate that line into
lat,long,course,speed,altitude<BR>@llcsa =
split(",",$mostRecentReportedLocation);<BR><BR># Format the google call
string<BR>$googleCallString = $llcsa[0].",+".$llcsa[1];<BR><BR>print
"Content-type: text/html\n";<BR>print "Location: <A
href="http://maps.google.com/maps?q=$googleCallString">http://maps.google.com/maps?q=$googleCallString</A>
\n\n";<BR>
<P>
<HR>
<P></P>_______________________________________________<BR>aprssig mailing
list<BR><A
href="mailto:aprssig@lists.tapr.org">aprssig@lists.tapr.org</A><BR><A
href="https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig">https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig</A><BR></BLOCKQUOTE></BODY></HTML>