fix console.pl

[spider.git] / perl / RBN.pm

diff --git a/perl/RBN.pm b/perl/RBN.pm
index cecbc4ba31a4d9dfa96a544efdbed1bffe2c400a..bb64330bc06ef9bfa33e94c5887b2fb3467f8653 100644 (file)
--- 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};