[aprssig] perl iGate

Andrew Rich vk4tec at tech-software.net
Sat Nov 16 17:21:40 EST 2013


1.	Install perl 
2.	Install CPAN
3.	Install perl Net::Telnet.pm library
4.	stty -F /dev/ttyUSB0 9600 -echo 
5.	Run perl script

 

 

#!/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;

}

}

 








_______________________________________________
aprssig mailing list
aprssig at tapr.org
http://www.tapr.org/mailman/listinfo/aprssig

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.tapr.org/pipermail/aprssig_lists.tapr.org/attachments/20131117/75ae88da/attachment.html>


More information about the aprssig mailing list