#!/usr/bin/perl 
use POSIX qw(ceil floor); 
open(INPUT, $infile);
@lines = <INPUT>;
close(INPUT);

open(OUTPUT, ">$outfile");

sub trim($);

$timeCounter = 0;
$seconds = 0;
$minutes = 0;
$hours = 0;
$comma = ",";
$space = " ";

print OUTPUT "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"."\n";
print OUTPUT "<kml xmlns=\"http://earth.google.com/kml/2.1\">"."\n";
print OUTPUT "<Folder>"."\n";

foreach $currentLine(@lines)
{
    
    @lineBuffer = split($delimiter,$currentLine);

    #--- At this point, we have the data from the current line.
    
    #--- Get all the elements
    $rowid              = trim(@lineBuffer[0]);
    $aircraftid         = trim(@lineBuffer[1]);    
    $actual_date_time   = trim(@lineBuffer[2]);
    #$end_time           = trim(@lineBuffer[3]);
    $latitude           = trim(@lineBuffer[3]);
    $longitude          = trim(@lineBuffer[4]); 
    $radio_altitude     = trim(@lineBuffer[5]);
    $ground_speed       = trim(@lineBuffer[6]);
    $thrust_engine_1    = trim(@lineBuffer[7]);
    $thrust_engine_2    = trim(@lineBuffer[8]);


    #--- Now, convert start and end times into UTC
    @timeString = split($space,$actual_date_time);
    $actual_date_time = @timeString[0]."T".@timeString[1];

    #--- Determine the bearing
    

    $icon = "./blue_plane.png";
    print OUTPUT "<Placemark><Style><IconStyle><scale>1.0</scale><heading>90</heading><Icon><href>$icon</href></Icon></IconStyle></Style><Point><coordinates>";
    print OUTPUT $longitude.$comma.$latitude.$comma.$radio_altitude;
    print OUTPUT "</coordinates><altitudeMode>relativeToGround</altitudeMode></Point>";
    print OUTPUT "<TimeStamp><when>$actual_date_time</when></TimeStamp>";
    print OUTPUT "<description>"."ID:".$rowid."<hr/>"."time:".$actual_date_time."<hr/>"."Ground_speed:".$ground_speed."<hr/>"."Thrust_engine_1:".$thrust_engine_1."<hr/>"."thrust_engine_2:".$thrust_engine_2."<hr/>"."nox_total:".$nox_total."<hr/>"."co_total:".$co_total."<hr/>"."longitude:".$longitude."<hr/>"."latitude:".$latitude."<hr/>"."radio_altitude:".$radio_altitude."<hr/></description>";
	print OUTPUT "</Placemark>"."\n";
    }


print OUTPUT "</Folder></kml>";