117 lines
3.4 KiB
Perl
Executable File
117 lines
3.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use XML::Simple;
|
|
use PandoraFMS::Tools;
|
|
use Data::Dumper;
|
|
use Sys::Hostname;
|
|
use POSIX qw(strftime);
|
|
|
|
use constant AGENT_VERSION => '3.1';
|
|
|
|
|
|
# Check parameters
|
|
|
|
if ($#ARGV != 1) {
|
|
print "Pandora FMS GIS tool to produce XML files from a standard GPX file\n";
|
|
print "This will put all the XML files in /var/spool/pandora/data_in directory \n";
|
|
print "\n";
|
|
print "Usage: $0 <filename.gpx> <agent_name>\n\n";
|
|
exit 1;
|
|
}
|
|
|
|
# Configuration tokens
|
|
my %Conf = (
|
|
'server_path' => '/var/spool/pandora/data_in',
|
|
'interval' => 300,
|
|
'agent_name' => hostname (),
|
|
'description' => 'Data from GPX',
|
|
'group' => '',
|
|
'encoding' => 'ISO-8859-1',
|
|
);
|
|
|
|
|
|
my $file_name = shift;
|
|
my $agent_name = shift;
|
|
if (defined($agent_name)) {
|
|
print "agent_name: $agent_name\n";
|
|
$Conf{'agent_name'} = $agent_name;
|
|
}
|
|
|
|
my $xml_data = XMLin ($file_name, forcearray => 1 );
|
|
|
|
# Invalid XML
|
|
if ($@) {
|
|
print "Invalid XML";
|
|
rename($file_name, $file_name . '_BADXML');
|
|
exit -1;
|
|
}
|
|
|
|
# Debug, code commented
|
|
print "Printing XML DATA\n";
|
|
#print Dumper ($xml_data);
|
|
#print "Finish Printing XML DATA\n";
|
|
# 'rte' => [
|
|
# {
|
|
# 'rtept' => [
|
|
# {
|
|
# 'ele' => [
|
|
# '728'
|
|
# ],
|
|
# 'speed' => [
|
|
# '0'
|
|
# ],
|
|
# 'time' => [
|
|
# '2010-02-19T10:45:08Z'
|
|
# ],
|
|
# 'lat' => '40.4327545166',
|
|
# 'lon' => '-3.7009150982'
|
|
# },
|
|
#
|
|
my $posiciones = $xml_data->{'rte'}[0];
|
|
|
|
# Process positions
|
|
foreach my $position (@{$posiciones->{'rtept'}}) {
|
|
my $longitude= $position->{'lon'};
|
|
my $latitude= $position->{'lat'};
|
|
my $altitude= $position->{'ele'}[0];
|
|
my $timestamp= $position->{'time'}[0];
|
|
|
|
$timestamp =~ s/Z$//;
|
|
$timestamp =~ s/T/ /;
|
|
$timestamp =~ s/02/31/;
|
|
# Use the current time
|
|
$timestamp= strftime ('%Y/%m/%d %H:%M:%S', localtime ());
|
|
|
|
print "Longitude: $longitude, Latitude: $latitude, Altitude: $altitude, Timestamp: $timestamp\n";
|
|
|
|
my $OS = $^O;
|
|
|
|
my $xml = "<?xml version='1.0' encoding='" . $Conf{'encoding'} . "'?>\n" .
|
|
"<agent_data description='" . $Conf{'description'} ."' group='11".
|
|
"' os_name='$OS' os_version='1' interval='" . $Conf{'interval'} .
|
|
"' version='" . AGENT_VERSION . "' timestamp='" . $timestamp.
|
|
"' agent_name='" . $Conf{'agent_name'} . "' timezone_offset='0' longitude='" .$longitude.
|
|
"' latitude='" .$latitude."' altitude='".$altitude."'>\n";
|
|
$xml .= "<module>";
|
|
$xml .= " <name><![CDATA[gps_data]]></name>";
|
|
$xml .= " <description><![CDATA[GPS Data export from GPX source]]></description>";
|
|
$xml .= " <type>generic_proc</type>";
|
|
$xml .= " <data><![CDATA[1]]></data>";
|
|
$xml .= "</module>";
|
|
$xml .= "</agent_data>";
|
|
|
|
# print $xml;
|
|
|
|
# Save XML data file
|
|
|
|
my $temp_file = $Conf{'server_path'} . '/' . $Conf{'agent_name'} . '.' . time () . '.data';
|
|
open (TEMP_FILE, "> $temp_file") ||print ("Could not write XML data file: $!");
|
|
print TEMP_FILE $xml;
|
|
close (TEMP_FILE);
|
|
sleep(1);
|
|
}
|
|
|