#!/usr/bin/perl
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+~
#Reads in uavposition and outputs the uavpf.txt file
#
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+~
use strict;
use warnings;

$\="\n";

my $img = '"http://updraft.unl.edu/~uas/uas/uas.png"';
for(;;){
        #Open Placefile
        open OUT,'>',"/home/uas/public_html/uas/uaspf.txt.bak" or die 
+"Cannot Open File uavpf.txt.bak!";

        #print placefile elements
        print OUT "Title: UAV GPS Position";
        print OUT "Threshold: 999";
        print OUT "RefreshSeconds: 2";
        print OUT "Iconfile: 1, 22, 21, 10, 14, $img\n";

        #read in UAV GPS lines
        #Open UAV GPS file
        open IN,'<',"/home/uas/Scripts/COORDS/uasposition" or die "Can
+not Open File uavposition!";
        while (my @gps = <IN>){
                chomp @gps;
                my $ngps = @gps;
                my @uav = split(" ",$gps[$ngps-1]);
                my $lat1 = sprintf("%.5f", $uav[0]);
                my $lon1 = sprintf("%.5f", $uav[1]);
                my $head1 = sprintf("%.2f",$uav[2]);
                print OUT "Icon: $lat1, $lon1, $head1, 1, 1, Latitude:
+ $lat1 Longitude: $lon1 Heading: $head1 ";
        }
        close (IN);
        close (OUT);
        rename("uaspf.txt", "uaspf.txt.bak") or die"Unable to replace"
+;
        sleep 2;
}
[download]