X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=829f11f7191ac5e3a07fbcac88390ef8ef95975e;hb=f2a65bc2f8ad7069cadc59f8fd4d2ef390567dba;hp=cecbc4ba31a4d9dfa96a544efdbed1bffe2c400a;hpb=f4ce9b1afbcaeda10e0497b0d2b33fef0a4a5245;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index cecbc4ba..829f11f7 100644
--- 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};