fix show/node

[spider.git] / perl / RBN.pm

diff --git a/perl/RBN.pm b/perl/RBN.pm
index cecbc4ba31a4d9dfa96a544efdbed1bffe2c400a..829f11f7191ac5e3a07fbcac88390ef8ef95975e 100644 (file)
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -34,7 +34,7 @@ our $minspottime = 60*60;             # the time between respots of a callsign - if a call
 
 our $beacontime = 5*60;                        # same as minspottime, but for beacons (and shorter)
 
-our $dwelltime = 6;                    # the amount of time to wait for duplicates before issuing
+our $dwelltime = 8;                    # the amount of time to wait for duplicates before issuing
                                 # a spot to the user (no doubt waiting with bated breath).
 
 our $filterdef = $Spot::filterdef; # we use the same filter as the Spot system. Can't think why :-).
@@ -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};