[aprssig] findu / lookup

[Michael]

Andrew,

Cool.
Completely different than how I did it.
Any idea where it fails now?

To see mine in action, check this out:
www.frii.com/~michael

73 Michael N7MR


 Rich wrote:

> i had this
>  
>  
>
>     ----- Original Message ----- my $host = "www.findu.com
>     <http://www.findu.com>";
>     my (@data, $line);
>     my $t = new Net::Telnet(Timeout=> '50', port => '80');
>     $t->errmode('return');
>     $t->Net::Telnet::open($host);
>     #sleep 5;
>     print $t "GET /cgi-bin/posit.cgi?call=".$FORM{Call}."&comma=1\n";
>     #print $FORM{Call};
>     #print $t "GET /cgi-bin/posit.cgi?call=VK4TEC-9&comma=1\n";
>     while (<$t>)
>     {
>     print;
>     if (m/,/)
>     {
>     @data = split/,/;
>     $long = $data[1];
>     $lat = $data[0];                                            
>      
>      
>      
>     *From:* Michael <mailto:michael at frii.com>
>     *To:* TAPR APRS Mailing List <mailto:aprssig at lists.tapr.org>
>     *Sent:* Sunday, May 18, 2008 8:03 AM
>     *Subject:* Re: [aprssig] findu / lookup
>
>     Andrew,
>
>     I just wrote a thing that uses findu.com.
>     It works pretty well.
>
>     73 Michael N7MR
>
>     ------------------------------------------------------------------------
>     #!/usr/bin/perl
>
>     use LWP::Simple;
>
>     read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>     ($name, $value) = split(/=/, $buffer);
>
>     $rawData =
>     get("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>");
>
>     @rawDataLines = split($/,$rawData);
>     @rawDataLines = reverse @rawDataLines;
>     shift @rawDataLines;
>     shift @rawDataLines;
>
>     # Capture the most recently reported location
>     $mostRecentReportedLocation = shift @rawDataLines;
>
>     # Separate that line into lat,long,course,speed,altitude
>     @llcsa = split(",",$mostRecentReportedLocation);
>
>     # Format the google call string
>     $googleCallString = $llcsa[0].",+".$llcsa[1];
>
>     print "Content-type: text/html\n";
>     print "Location: http://maps.google.com/maps?q=$googleCallString
>     \n\n";
>
>     ------------------------------------------------------------------------
>     _______________________________________________
>     aprssig mailing list
>     aprssig at lists.tapr.org <mailto:aprssig at lists.tapr.org>
>     https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig
>
>------------------------------------------------------------------------
>
>_______________________________________________
>aprssig mailing list
>aprssig at lists.tapr.org
>https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig
>  
>