[aprssig] RE: APRS / findu.com / PERL help needed

[Andrew Rich]

This works

#!/usr/bin/perl
use Net::Telnet;
my $host = "www.findu.com";
my $user = "";
my $password = "";
my $prompt = "";
my (@data, $line);
my $t = new Net::Telnet(Timeout => '5',port => '80');
$t->errmode('return');
$t->Net::Telnet::open($host);
print $t "GET /cgi-bin/raw.cgi?call=vk4tec-9&start=0&length=24&time=hour\n";
while (<$t>)
{
print ;
}
$t->close();

-----Original Message-----
From: Andrew Rich [mailto:vk4tec at tech-software.net]
Sent: Saturday, 13 November 2004 10:29 AM
To: vk4tec at tech-software.net; TAPR APRS Special Interest Group;
Ozaprs at Marconi.Ics.Mq.Edu.Au
Subject: RE: APRS / findu.com / PERL help needed


Another way i just did it was to telnet to findu.com 80, and send

GET /cgi-bin/....... this worked

-----Original Message-----
From: Andrew Rich [mailto:vk4tec at tech-software.net]
Sent: Saturday, 13 November 2004 10:27 AM
To: TAPR APRS Special Interest Group; Ozaprs at Marconi.Ics.Mq.Edu.Au
Subject: APRS / findu.com / PERL help needed


Hi,

I am trying to get a history of raw data from findu.com.

Here is my perl code

#!/usr/bin/perl
system ("wget
'http://www.findu.com/cgi-bin/raw.cgi?call=vk4tec-9&start=0&length=24&time=h
our' > /var/www/html/vk4tec_stuff/aprs_history.txt");

it produces some funnies.

  8236 Nov 13 10:17 raw.cgi?call=vk4tec-9.1
-rwxr-xr-x    1 root     root          161 Nov 13 10:18 aprs_hostory.pl
-rw-r--r--    1 root     root            0 Nov 13 10:18 aprs_history.txt
-rw-r--r--    1 root     root         9916 Nov 13 10:18
raw.cgi?call=vk4tec-9&start=0&length=24&time=hour

Is there a better way to connect to an APRS datbase and get raw data ?