X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;fp=perl%2FRBN.pm;h=bb64330bc06ef9bfa33e94c5887b2fb3467f8653;hb=431c8a14cdecd0ec455b6619380687dbe84e2a35;hp=cecbc4ba31a4d9dfa96a544efdbed1bffe2c400a;hpb=2747e0fe4269e9a7e095c333598191eb9dca63fc;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index cecbc4ba..bb64330b 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -307,7 +307,7 @@ sub normal
 				$quality = 9 if $quality > 9;
 				$quality = "Q:$quality";
 				if (isdbg('progress')) {
-					my $s = "RBN: SPOT key: '$sp' = $r->[2] on $r->[1] \@ $r->[5] $quality";
+					my $s = "RBN: SPOT key: '$sp' = $r->[2] on $r->[1] by $r->[0] \@ $r->[5] $quality";
 					$s .=  " route: $self->{call}";
 					dbg($s);
 				}
@@ -492,9 +492,13 @@ sub dx_spot
 			$buf = VE7CC::dx_spot($dxchan, @$saver);
 			$saver->[4] = $call;
 		} else {
+			my $call = $saver->[4];
+			$saver->[4] = substr($call, 0, 6);
+			$saver->[4] .= '-#';
 			$buf = $dxchan->format_dx_spot(@$saver);
+			$saver->[4] = $call;
 		}
-		$buf =~ s/^DX/RB/;
+#		$buf =~ s/^DX/RB/;
 		$dxchan->local_send('N', $buf);
 
 		++$self->{nospot};