From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 31 Jan 2022 16:10:49 +0000 (+0000)
Subject: fix rbn basecall a bit more
X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d545cc6840241395b88cc10addaa1928d9a1166;p=spider.git

fix rbn basecall a bit more
---

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 804813d4..3a906dbe 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -347,20 +347,22 @@ sub normal
 		#
 		# But before we do anything, if this call is in the seeme hash then just send the spot to them
 		#
-		if (exists $seeme{$call} && (my $scall = $seeme{$call})) {
+		if (exists $seeme{$call} && (my $scall = $seeme{basecall($call)})) {
 			my $uchan = DXChannel::get($call);
-			if ($uchan->is_user) {
-				if (isdbg('seeme')) {
-					dbg("seeme: $line");
-					dbg( qq{seemme:decode or:$origin qr:$qrg ca:$call mo:$mode s:$s m:$m sp:$spd u:$u sort:$sort t:$t tx:$tx qra:$qra});
+			if ($uchan) {
+				if ($uchan->is_user) {
+					if (isdbg('seeme')) {
+						dbg("seeme: $line");
+						dbg( qq{seemme:decode or:$origin qr:$qrg ca:$call mo:$mode s:$s m:$m sp:$spd u:$u sort:$sort t:$t tx:$tx qra:$qra});
+					}
+					my @s =  Spot::prepare($qrg, $call, $utz, sprintf("%-3s %2ddB **SEEME**", $mode, $s), $origin.'-#');
+					my $buf = $uchan->format_dx_spot(@s);
+					dbg("seeme: result '$buf'") if isdbg('seeme');
+					$uchan->local_send('S', $buf) if $scall;
+				} else {
+					LogDbg("RBN Someone is playing silly persons $call is not a user and cannot do 'seeme', ignored and reset");
+					delete $seeme{$call};
 				}
-				my @s =  Spot::prepare($qrg, $call, $utz, sprintf("%-3s %2ddB **SEEME**", $mode, $s), $origin.'-#');
-				my $buf = $uchan->format_dx_spot(@s);
-				dbg("seeme: result '$buf'") if isdbg('seeme');
-				$uchan->local_send('S', $buf) if $scall;
-			} else {
-				LogDbg("RBN Someone is playing silly persons $call is not a user and cannot do 'seeme', ignored and reset");
-				delete $seeme{$call};
 			}
 		}
 		# find it?