From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 29 Apr 2024 11:13:51 +0000 (+0100)
Subject: fix RBN direct connections to skimservers
X-Git-Url: http://gb7djk.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);