<!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>Doh</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Case sensative</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Don't you hate that</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Maybe we can start a ham radio code bank
?</FONT></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 ----- </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:49 AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [aprssig] findu /
lookup</DIV>
<DIV><BR></DIV>Andrew,<BR><BR>Cool.<BR>Completely different than how I did
it.<BR>Any idea where it fails now?<BR><BR>To see mine in action, check this
out:<BR><A
href="http://www.frii.com/~michael">www.frii.com/~michael</A><BR><BR>73
Michael N7MR<BR><BR><BR> Rich wrote:<BR><BR>> i had this<BR>>
<BR>> <BR>><BR>> ----- Original Message
----- my $host = "<A
href="http://www.findu.com">www.findu.com</A><BR>>
<<A
href="http://www.findu.com">http://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];
<BR>> <BR>>
<BR>> <BR>>
*From:* Michael <<A
href="mailto:michael@frii.com">mailto:michael@frii.com</A>><BR>>
*To:* TAPR APRS Mailing List <<A
href="mailto:aprssig@lists.tapr.org">mailto:aprssig@lists.tapr.org</A>><BR>>
*Sent:* Sunday, May 18, 2008 8:03 AM<BR>>
*Subject:* Re: [aprssig] findu /
lookup<BR>><BR>>
Andrew,<BR>><BR>> I just wrote a thing that uses
findu.com.<BR>> It works pretty
well.<BR>><BR>> 73 Michael
N7MR<BR>><BR>>
------------------------------------------------------------------------<BR>>
#!/usr/bin/perl<BR>><BR>> use
LWP::Simple;<BR>><BR>> read(STDIN, $buffer,
$ENV{'CONTENT_LENGTH'});<BR>> ($name, $value) =
split(/=/, $buffer);<BR>><BR>> $rawData
=<BR>> 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>>
<<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><BR>>
\n\n";<BR>><BR>>
------------------------------------------------------------------------<BR>>
_______________________________________________<BR>>
aprssig mailing list<BR>> <A
href="mailto:aprssig@lists.tapr.org">aprssig@lists.tapr.org</A> <<A
href="mailto:aprssig@lists.tapr.org">mailto: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>><BR>>------------------------------------------------------------------------<BR>><BR>>_______________________________________________<BR>>aprssig
mailing
list<BR>>aprssig@lists.tapr.org<BR>>https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig<BR>>
<BR>><BR><BR><BR><BR>_______________________________________________<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>