mirror
/
RS-tracker
kopia lustrzana https://github.com/rs1729/RS
1
0
Forkuj 0
Kod Zgłoszenia Projekty Wydania Wiki Aktywność

pos2aprs: add temperature parsing for use with rs41ptu

pull/3/head
Daniel Estévez 2017-11-19 18:54:41 +01:00
rodzic 08e1937469
commit b143e6dede
1 zmienionych plików z 10 dodań i 1 usunięć
Pokaż statystyki Ściągnij plik aktualizacji Ściągnij plik porównania Expand all files Collapse all files

11
rs92/pos2aprs.pl
Wyświetl plik

@ -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";
}