<!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=140283500-27052006><FONT face=Arial color=#0000ff
size=2>sorted</FONT></SPAN></DIV>
<DIV><SPAN class=140283500-27052006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=140283500-27052006><FONT face=Arial color=#0000ff
size=2>#!/usr/bin/perl<BR>use
Net::Telnet;<BR>$date2=time()-36000;<BR>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
= localtime($date2);<BR>if ($mday < 10) {<BR> $day =
"0".$mday;<BR>} else {<BR> $day = $mday;<BR>}<BR>$month = $mon
+ 1;<BR>if ($month < 10) {<BR> $month =
"0".$month;<BR>}<BR>if ($hour < 10)<BR>{<BR>$hour = "0".$hour;<BR>}<BR>if
($min < 10)<BR>{<BR>$min = "0".$min;<BR>}<BR>$year+=1900;<BR>$date1 =
$day.$hour.$min;<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>sleep
5;<BR>$count =10;<BR>for ($i=0; $i < 20; $i++)<BR>{<BR>$count ++;<BR>print $t
"VK4TEC-8>APU25C,TCPIP:;PLANE
25*".$date1."z27".$count.".80S/153".$count.".85E'test object\n";<BR>print
"VK4TEC-8>APU25C,TCPIP:;PLANE
35*".$date1."z27".$count.".80S/153".$count.".85E'test object\n";<BR>sleep
5;<BR>}<BR>$t->close();
</FONT></SPAN></DIV>
<DIV> </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>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Andrew Rich
[mailto:vk4tec@tech-software.net]<BR><B>Sent:</B> Saturday, 27 May 2006 6:31
AM<BR><B>To:</B> TAPR List<BR><B>Subject:</B> [aprssig] PERL code to send
objects to server<BR><BR></FONT></DIV>
<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></BLOCKQUOTE></BODY></HTML>