+ # 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;
+ }
+