[OZAPRS] Google earth server on Raspberry Pi ( cgi script for google earth)

[Andrew Rich]

Here is the code that is called from apache web server 

http://vk4tec.no-ip.org/cgi-bin/aprs_share.cgi ( example only - it does not work ) 


//

#!/usr/bin/perl
use DBI;
my $database_handler =  DBI->connect("DBI:mysql:database=aprs;host=localhost;port=3306","root","");
print ("Content-type: text/html\n\n");
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?> \n";
print "<kml xmlns=\"http://earth.google.com/kml/2.0\"> \n";
#print "<document>\n";
print "<Folder>\n";
print "<name>APRS</name>\n";
#
# Styles
#
print '<Style id="failed">';
print "<LineStyle>";
print "<color>66ffff00</color>";
print "</LineStyle>";
print '<PolyStyle>';
print '<color>66ffff00</color>';
print '</PolyStyle>';
print '</Style>';
print '<StyleMap id="failed0">';
print '<Pair>';
print '<key>normal</key>';
print '<styleUrl>#failed1</styleUrl>';
print '</Pair>';
print '<Pair>';
print '<key>highlight</key>';
print '<styleUrl>#failed</styleUrl>';
print '</Pair>';
print '</StyleMap>';
print '<Style id="failed1">';
print "<LineStyle>";
print "<color>66ffff00</color>";
print "</LineStyle>";
print '<PolyStyle>';
print '<color>66ffff00</color>';
print '</PolyStyle>';
print '</Style>';
#
# APRS plot
#
$query="select distinct callsign,latitude,longitude from aprs_targets order by callsign";
$statement_handler=$database_handler->prepare ($query);
$statement_handler->execute;
while (($callsign,$lat,$lon) = $statement_handler -> fetchrow())
{
print "<Placemark>\n";
print "<name>$callsign</name>";
print "<LookAt>\n";
print "<longitude>".$lon."</longitude>\n";
print "<latitude>".$lat."</latitude>\n";
print "</LookAt>\n";
print "<styleUrl>#msn_placemark_square</styleUrl>";
print "<Style>\n";
print "<LabelStyle>\n";
print "<scale>0.7</scale>\n";
print "</LabelStyle>\n";
print "<IconStyle>\n";
print "<scale>0.6</scale>";
print "<heading>".$track."</heading>";
print "<Icon>\n";
print "<href>http://maps.google.com/mapfiles/kml/shapes/placemark_square.png</href>";
print "</Icon>\n";
print "</IconStyle>\n";
print "</Style>\n";
print "<Point>\n";
print "<coordinates>";
print "$lon,$lat,100";
print "</coordinates> \n";
print "</Point>\n";
print "</Placemark>\n";
}
print "</Folder>\n";
print "</kml> \n";
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.aprs.net.au/pipermail/ozaprs/attachments/20130401/dba0d01e/attachment-0001.html>