From b143e6dedefbc8394786d1cbd8c7a40295796861 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Est=C3=A9vez?= <daniel@destevez.net>
Date: Sun, 19 Nov 2017 18:54:41 +0100
Subject: [PATCH] pos2aprs: add temperature parsing for use with rs41ptu

---
 rs92/pos2aprs.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/rs92/pos2aprs.pl b/rs92/pos2aprs.pl
index f4b9525..71fc6b1 100755
--- a/rs92/pos2aprs.pl
+++ b/rs92/pos2aprs.pl
@@ -42,6 +42,8 @@ my $course = 0.00;
 
 my $callsign;
 
+my $temp;
+
 print $fpo "user $mycallsign pass $passcode vers \"RS decoder\"\n";
 
 while ($line = <$fpi>) {
@@ -74,7 +76,14 @@ while ($line = <$fpi>) {
 	    $callsign = $1;
 	}
 
-	$str = sprintf("$mycallsign>APRS,TCPIP*:;%-9s*%06dh%07.2f$NS/%08.2f${EW}O%03d/%03d/A=%06d$comment", $callsign, $hms, $lat, $lon, $course, $speed, $alt);
+	if ($line =~ /T=([\d.]+)C/) {
+	     $temp = " T=$1C";
+	}
+	else {
+	     $temp = "";
+	}
+
+	$str = sprintf("$mycallsign>APRS,TCPIP*:;%-9s*%06dh%07.2f$NS/%08.2f${EW}O%03d/%03d/A=%06d$comment$temp", $callsign, $hms, $lat, $lon, $course, $speed, $alt);
 	print $fpo "$str\n";
 
     }