[aprssig] Perl APRS IS

[Andrew Rich]

I will give this a go

#!/usr/bin/perl
use IO::Socket;
$host  = 'rotate.aprs.net';
$port   = 14580;
print "Establishing TCP to $host on $port\n\n";
my $sock = new IO::Socket::INET(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp');
$sock or die "no socket :$!";
print $sock "user VK4TEC pass xxxxx vers Perl 1.0 filter 
p/KE7EGC/RAFT/NMARS/ANDE/PCSAT/W3AD/RS0/ISS 
d/RS0ISS*/RAFT/NMARS/ANDE-1/ANDE-2/PCSAT-1/PCSAT-11/W3ADO-1\n";
while (<$sock>)
{
print;
}


----------------------------------------------------------
Andrew Rich
Airways Technical Officer Grade 4
Surveillance - RADAR ADS-B
Amateur Radio Callsign VK4TEC
email: vk4tec at tech-software.net
web: www.tech-software.net
----- Original Message ----- 
From: "Curt, WE7U" <archer at eskimo.com>
To: "Andrew Rich" <vk4tec at tech-software.net>
Cc: "TAPR APRS Mailing List" <aprssig at tapr.org>
Sent: Wednesday, September 23, 2009 12:46 AM
Subject: Re: [aprssig] Perl APRS IS


> On Tue, 22 Sep 2009, Andrew Rich wrote:
>
>> I am using Net::telnet
>>
>> Maybe I should be using IO::Socket ?
>
> Works for me.  Your mileage may vary.  I think all of my Perl
> scripts that do APRS-like things use the IO::Socket library (Firenet
> scripts, etc).
>
> -- 
> Curt, WE7U.                         <http://www.eskimo.com/~archer>
>    APRS:  Where it's at!                    <http://www.xastir.org>
>   Lotto:  A tax on people who are bad at math. - unknown
> Windows:  Microsoft's tax on computer illiterates. - WE7U.
> The world DOES revolve around me:  I picked the coordinate system!"


--------------------------------------------------------------------------------



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.409 / Virus Database: 270.13.112/2387 - Release Date: 09/21/09 
17:55:00