<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2>Gudday</FONT></SPAN></DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial size=2>Anyone got some perl
code to connect to an aprs server and send objects ?</FONT></SPAN></DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial size=2>Cheers
</FONT></SPAN></DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial size=2>here is my code
</FONT></SPAN></DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2>#!/usr/bin/perl<BR>#<BR># Sample data packet<BR>#
VK4TEC>APU25N,TCPIP*:<BR># ;12345678 *262014z2718.80S/15330.85E'test
object<BR>#<BR>use Net::Telnet;<BR>my $host = "rotate.aprs.net";<BR>my $user =
"";<BR>my $password = "";<BR>my $prompt = "";<BR>my (@data, $line);<BR>my $t =
new Net::Telnet(Timeout => '5', port =>
'10151');<BR>$t->errmode('return');<BR>$t->Net::Telnet::open($host);<BR>sleep
5;<BR>print $t "user VK4TEC-8 pass 21694 vers UI-View32
V1.92\n";<BR>$lower=00;<BR>$upper=60;<BR>$random = int(rand( $upper-$lower+1 ) )
+ $lower;<BR>$lower2=00;<BR>$upper2=60;<BR>$random2 = int(rand(
$upper2-$lower2+1 ) ) + $lower2;<BR>$lower3=00;<BR>$upper3=99;<BR>$random3 =
int(rand( $upper3-$lower3+1 ) ) + $lower3;<BR>print $t
"VK4TEC>APU25C,TCPIP:;12345578 *262015z2718.80S/15330.95E'test
object\n";<BR>sleep 5;</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=328442920-26052006><FONT face=Arial
size=2><BR>$t->close();
</FONT></SPAN></DIV>
<P><FONT face=Arial size=2>-----------------------------------------<BR>Andrew
Rich<BR>Amateur radio callsign VK4TEC<BR>email: </FONT><A
href="mailto:vk4tec@tech-software.net"><FONT face=Arial
size=2>vk4tec@tech-software.net</FONT></A><BR><FONT face=Arial size=2>web:
http://www.tech-software.net<BR>Brisbane AUSTRALIA </FONT></P>
<DIV> </DIV></BODY></HTML>