[aprssig] findu / lookup
Andrew Rich
vk4tec at people.net.au
Sat May 17 19:17:07 EDT 2008
Doh
Case sensative
Don't you hate that
Maybe we can start a ham radio code bank ?
----- Original Message -----
From: Michael
To: TAPR APRS Mailing List
Sent: Sunday, May 18, 2008 8:49 AM
Subject: Re: [aprssig] findu / lookup
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
>
>
_______________________________________________
aprssig mailing list
aprssig at lists.tapr.org
https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.tapr.org/pipermail/aprssig_lists.tapr.org/attachments/20080518/c5a25d1b/attachment.html>
More information about the aprssig
mailing list