X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;fp=perl%2FRBN.pm;h=6924626f3d5b7486abab018c55ef4dcbc5a056fa;hb=05f7954ba3271d864a904b4f0606a3394941343c;hp=4c28575365fee363b478e5cce3fcbd4c1e338ee4;hpb=999bdfdcb06cdaefd38316ef67309a6d60b7366b;p=spider.git

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);