X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FExtMsg.pm;h=a55de7e7600271846c0f6cf95523dedf727e401f;hb=36cf78e5660c745f32be2f1d63be738a0c537c48;hp=74a2cfcd0dc8ea0c18956b005574899930ad91f2;hpb=dc0193176be801c10a342dd7a2b2263cf0059c88;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 74a2cfcd..a55de7e7 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -134,12 +134,13 @@ sub dequeue
 						$conn->disconnect;
 					}
 				} elsif (is_callsign($msg)) {
+					my $call = normalise_call($msg);
 					if ($main::allowslashcall || $msg !~ m|/|) {
 						my $sort = $conn->{csort};
 						$sort = 'local' if $conn->{peerhost} =~ /127\.\d+\.\d+\.\d+$/ || $conn->{peerhost} eq '::1';
 						my $uref;
-						if ($main::passwdreq || ($uref = DXUser::get_current($msg)) && $uref->passwd ) {
-							$conn->conns($msg);
+						if ($main::passwdreq || ($uref = DXUser::get_current($call)) && $uref->passwd ) {
+							$conn->conns($call);
 							$conn->{state} = 'WP';
 							$conn->{decho} = $conn->{echo};
 							$conn->{echo} = 0;