#!/usr/bin/perl

#
# nothink.org
#
# Simple script to extract data from gpsdrive's db and build a "kml" file for Google Earth.
# Based on gpsdriveToGoogleEarth.py by Jkx;
#
# Info: http://earth.google.com/kml/kml_tut.html
#

use strict;
use DBI;

$|=1;

my $out = $ARGV[0];
die "$0 test.kml\n" if !$out;

my $db_name = "geoinfo";
my $db_host = "127.0.0.1";
my $db_user = "user";
my $db_pass = "pass";

my $name = "";
my $lon  = "";
my $lat  = "";
my $wep  = ""; 
my $mac  = "";

my $dsn = "DBI:mysql:database=$db_name;host=$db_host;";
my $dbh = DBI->connect($dsn, $db_user, $db_pass, { PrintError => 1, AutoCommit => 1 });

my $sql = "select name,lon,lat,type,macaddr from waypoints";
my $sth = $dbh->prepare($sql) or die("Error: couldn't prepare select...");

$sth->execute;

print "creating file... ";

open (OUT, ">$out") || die "Error: cannot open the output file \'$out\': $!\n";
		
print OUT "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print OUT "<kml xmlns=\"http://earth.google.com/kml/2.0\">\n";
print OUT "<Folder>\n";
print OUT "<name>BrestWireless</name>\n";
print OUT "<visibility>1</visibility>\n\n";
	
while (($name,$lat,$lon,$wep,$mac) = $sth->fetchrow_array) {

	print OUT " <Placemark>\n";

	$name =~ s/\&+/e/;

	print OUT " <name>$name</name>\n";
	print OUT "  <description>$mac</description>\n";
	print OUT " <View>\n";
	print OUT "  <longitude>$lat</longitude>\n";
	print OUT "  <latitude>$lon</latitude>\n";
	print OUT " </View>\n";
	print OUT " <visibility>1</visibility>\n";
	print OUT " <styleUrl>root://styleMaps#default?iconId=0x307</styleUrl>\n";
	
	if ($wep =~ /WLAN-WEP/){
		print OUT " <Style><icon>http://www.nothink.org/wifi/node_interest.png</icon></Style>\n";
	} else {
		print OUT " <Style><icon>http://www.nothink.org/wifi/node_online.png</icon></Style>\n";
	}

	print OUT " <Point><coordinates>$lat,$lon</coordinates></Point>\n";
	print OUT " </Placemark>\n";

}

print OUT "</Folder>\n";
print OUT "</kml>\n";

close OUT;

$sth->finish();
$dbh->disconnect;

print "done!\n";

exit(0);