From a4a11106bf9bfaa26cb6b189bb1883d4c50cba7d Mon Sep 17 00:00:00 2001
From: Zilog80 <rs1729@users.noreply.github.com>
Date: Mon, 24 Oct 2016 21:13:45 +0200
Subject: [PATCH] rs92 output -> gpx

---
 rs92/pos2gpx.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 rs92/pos2gpx.pl

diff --git a/rs92/pos2gpx.pl b/rs92/pos2gpx.pl
new file mode 100755
index 0000000..0301796
--- /dev/null
+++ b/rs92/pos2gpx.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $filename = $ARGV[0];
+my $fh;
+open($fh, $filename) or die "Could not open $filename: $!";
+
+print "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\" ?>\n";
+print "<gpx version=\"1.1\" creator=\"me\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xmlns=\"http://www.topografix.com/GPX/1/1\" xsi:schemaLocation=\"http://www.topografix.com/GPX/1/1 http://www.topografix.com/GPX/1/1/gpx.xsd\">\n";
+
+my $line;
+my $hms;
+my $lat; my $lon; my $alt;
+
+print "<trk>\n";
+print "<trkseg>\n";
+
+while ($line = <$fh>) {
+    if ($line =~ /(\d\d:\d\d:\d\d).*\ lat:\ *(-?\d*\.\d*)\ +lon:\ *(-?\d*\.\d*)\ +alt:\ *(-?\d*\.\d*).*/) {
+        $hms = $1;
+        $lat = $2;
+        $lon = $3;
+        $alt = $4;
+        print  "  <trkpt lat=\"$lat\" lon=\"$lon\">\n";
+        print  "    <ele>$alt<\/ele>\n";
+        printf("    <time>%sZ</time>\n", $hms);
+        print  "  </trkpt>\n";
+    }
+}
+
+print "</trkseg>\n";
+print "</trk>\n";
+
+print "</gpx>\n";
+