From f725c79e44f09cff5727b63ebe25637a96fd5a13 Mon Sep 17 00:00:00 2001
From: Zilog80 <rs1729@users.noreply.github.com>
Date: Fri, 3 Mar 2017 12:49:27 +0100
Subject: [PATCH] pos2gpx,pos2kml: stdin-update

---
 rs92/pos2gpx.pl | 7 ++++++-
 rs92/pos2kml.pl | 7 ++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/rs92/pos2gpx.pl b/rs92/pos2gpx.pl
index 7e9ceb3..261867a 100755
--- a/rs92/pos2gpx.pl
+++ b/rs92/pos2gpx.pl
@@ -4,7 +4,12 @@ use warnings;
 
 my $filename = $ARGV[0];
 my $fh;
-open($fh, $filename) or die "Could not open $filename: $!";
+if (defined $filename) {
+  open($fh, "<", $filename) or die "Could not open $filename: $!";
+}
+else {
+  $fh = *STDIN;
+}
 
 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";
diff --git a/rs92/pos2kml.pl b/rs92/pos2kml.pl
index 4bff6ef..b5af74f 100755
--- a/rs92/pos2kml.pl
+++ b/rs92/pos2kml.pl
@@ -4,7 +4,12 @@ use warnings;
 
 my $filename = $ARGV[0];
 my $fh;
-open($fh, $filename) or die "Could not open $filename: $!";
+if (defined $filename) {
+  open($fh, "<", $filename) or die "Could not open $filename: $!";
+}
+else {
+  $fh = *STDIN;
+}
 
 print "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n";
 print "<kml xmlns=\"http://www.opengis.net/kml/2.2\">\n";