[aprssig] perl iGate

Andrew Rich vk4tec at tech-software.net
Sat Nov 16 00:23:44 EST 2013


That's crazy - this works 

 

#!/usr/bin/perl

use Net::Telnet;

my $host = "rotate.aprs.net.au";

my $port = "14580";

my $t = new Net::Telnet(Timeout => '600',Dump_log => 'dump.log',Input_log =>
'input.log',Output_log => 'output.log',Prompt => "/$prmt/");

$t->errmode('die');

$t->Net::Telnet::open(Host => $host, Port => $port);

print $t "user XXXXX pass XXXXX \n";

open (rf,"/dev/ttyUSB0");

while (<rf>)

{

if (m/^VK/)

{

print $t $_;

print;

}

}

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.tapr.org/pipermail/aprssig_lists.tapr.org/attachments/20131116/508e859c/attachment.html>


More information about the aprssig mailing list