Order Tray | Contact Us | Home | SIG Lists

[aprssig] findu / lookup

Andrew Rich vk4tec at people.net.au
Sat May 17 22:11:26 UTC 2008

i had this 

  ----- Original Message ----- my $host = "www.findu.com";
  my (@data, $line);
  my $t = new Net::Telnet(Timeout=> '50', port => '80');
  #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>)
  if (m/,/)
  @data = split/,/;
  $long = $data[1];
  $lat = $data[0];                                             

  From: Michael 
  To: TAPR APRS Mailing List 
  Sent: Sunday, May 18, 2008 8:03 AM
  Subject: Re: [aprssig] findu / lookup


  I just wrote a thing that uses findu.com.
  It works pretty well.

  73 Michael N7MR



  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");

  @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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.tapr.org/pipermail/aprssig/attachments/20080518/8dd90a65/attachment.htm 

More information about the aprssig mailing list