[aprssig] PERL code to send objects to server

[Andrew Rich]

Gudday

Anyone got some perl code to connect to an aprs server and send objects ?

Cheers

here is my code

#!/usr/bin/perl
#
# Sample data packet
# VK4TEC>APU25N,TCPIP*:
# ;12345678 *262014z2718.80S/15330.85E'test object
#
use Net::Telnet;
my $host = "rotate.aprs.net";
my $user = "";
my $password = "";
my $prompt = "";
my (@data, $line);
my $t = new Net::Telnet(Timeout     => '5', port => '10151');
$t->errmode('return');
$t->Net::Telnet::open($host);
sleep 5;
print $t "user VK4TEC-8 pass 21694 vers UI-View32 V1.92\n";
$lower=00;
$upper=60;
$random = int(rand( $upper-$lower+1 ) ) + $lower;
$lower2=00;
$upper2=60;
$random2 = int(rand( $upper2-$lower2+1 ) ) + $lower2;
$lower3=00;
$upper3=99;
$random3 = int(rand( $upper3-$lower3+1 ) ) + $lower3;
print $t "VK4TEC>APU25C,TCPIP:;12345578 *262015z2718.80S/15330.95E'test
object\n";
sleep 5;


$t->close();
-----------------------------------------
Andrew Rich
Amateur radio callsign VK4TEC
email: vk4tec at tech-software.net
web: http://www.tech-software.net
Brisbane AUSTRALIA

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