[Dxspider-support] Another little script - APRS

[Ricardo Suarez]

Hi all

This is a little script to send, every 15 min, the cluster position to APRS 
network. Its running on LU9DA-6 cluster, test it on findu!

Copy the script to local_cmd.

You need APRS user and password, and your position. Change the right lines 
in the script.

Regards

Rick LU9DA


#
# Send the cluster's position to APRS network
#
# need for APRS user (edit my $user = "LU1xxx-6" with your own user)
#
# need for APRS password (edit my $pass = xxxxx with your own password)
#
# need for your latitude (edit my $posNS = "xxxx.xxN" with your own)
#
# need for your longitude (edit my $posEW = "xxxxx.xxE" with your own)
#
# add the command to crontab!, sample working every 15 min:
#
# 0,15,30,45 * * * * run_cmd(aprs)
#
# under test on lu9da-6 cluster ( lu9da.dyndns.org 9000)
#

my ($self, $line) = @_;
my @list = split /\s+/, $line;
my $call = $self->call;
my $t;
my $host = "84.232.6.70";
my $port = 14578;

#******* edit this ******

my $user = "luxxx-6";
my $pass = xxxxx;
my $posNS = "xxxx.xxN";
my $posEW = "xxxxx.xxE";

#************************

my $a;
my @out;

use Net::Telnet ();

return (1, $self->msg('e24')) unless $Internet::allow;

$t = new Net::Telnet ( -telnetmode => 0);

$t->open(Host => $host, Port => $port ) || die ;

sleep (10);

$a="user $user pass $pass vers test 1234";

$t->print($a);

sleep (5);

$a="$user>APRS,TCPIP*:=$posNS/$posEW%$user DXCluster {DXSpider}";

$t->print($a);

return (1);