From 05f7954ba3271d864a904b4f0606a3394941343c Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 29 Apr 2024 12:13:51 +0100 Subject: [PATCH] fix RBN direct connections to skimservers --- perl/RBN.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/perl/RBN.pm b/perl/RBN.pm index 4c285753..6924626f 100644 --- a/perl/RBN.pm +++ b/perl/RBN.pm @@ -246,6 +246,15 @@ sub normal my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/, $line; + # fix up "direct" (from a "skimmer server") connections + # basically the $mode is missing so everything is shifted down one + # so "cheat" and modify the line and do it again + if ($mode =~ /^\d+$/) { + $line =~ s/ $mode\s+dB/CW $mode dB/i; + (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/, $line; + dbg "RBN: inserted CW for missing mode" if $dbgrbn; + } + # fix up FT8 spots from 7001 $t = $u, $u = '' if !$t && is_ztime($u); $t = $sort, $sort = '' if !$t && is_ztime($sort); -- 2.43.0