From: Dirk Koopman Date: Mon, 29 Apr 2024 11:13:51 +0000 (+0100) Subject: fix RBN direct connections to skimservers X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=05f7954ba3271d864a904b4f0606a3394941343c;p=spider.git fix RBN direct connections to skimservers --- 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);