<!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=541453717-20052006><FONT face=Arial size=2>For those who are
intersted, I am playing with ACARS and APRS.</FONT></SPAN></DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial size=2>I will plot planes
on my APRS screen. Anyone good at xml in perl ? </FONT></SPAN></DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial size=2>Here is a pre-lim
perl script to connect and extract ACARS data.</FONT></SPAN></DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial
size=2>#!/usr/bin/perl<BR>use Net::Telnet;<BR>my $host ="71.116.161.119";<BR>my
$user = "";<BR>my $password = "";<BR>my $prompt = "";<BR>my (@data,
$line);<BR>my $t = new Net::Telnet(Timeout => '5',port =>
'2202');<BR>$t->errmode('return');<BR>$t->Net::Telnet::open($host);<BR>while
(<$t>)<BR>{<BR>open (outfile, ">>
/maint/scripts/acars.dat");<BR>print outfile
$_;<BR>close(outfile);</FONT></SPAN></DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial size=2>if
(m/AircraftReg/)<BR>{<BR>print;<BR>}</DIV>
<DIV>if (m/\<North\>/)<BR>{<BR>print;<BR>}</DIV>
<DIV>if (m/\<West\>/)<BR>{<BR>print;<BR>}</DIV>
<DIV>if (m/\<South\>/)<BR>{<BR>print;<BR>}</DIV>
<DIV>if (m/\<East\>/)<BR>{<BR>print;<BR>print
"------------------------------ \n";<BR>}</DIV>
<DIV>}
</FONT></SPAN></DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=541453717-20052006><FONT face=Arial
size=2></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>