X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FExtMsg.pm;h=74c544c4453f1c68e370a92e9e8e9d82e06010f9;hb=45d5046fe206fcff846fe203de0eac22ebf9d172;hp=3f8159aa54699357bff0ac074a4a9235928a2698;hpb=9169fc5ea1fafd09e63518a70a9133e2ceb702f5;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 3f8159aa..74c544c4 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -90,7 +90,9 @@ sub dequeue
 			} elsif ($conn->{state} eq 'WL' ) {
 				$msg = uc $msg;
 				if (is_callsign($msg)) {
-					$conn->to_connected($msg, 'A', $conn->{csort});
+					my $sort = $conn->{csort};
+					$sort = 'local' if $conn->{peerhost} eq "127.0.0.1";
+					$conn->to_connected($msg, 'A', $sort);
 				} else {
 					$conn->send_now("Sorry $msg is an invalid callsign");
 					$conn->disconnect;