From: minima <minima>
Date: Sun, 22 Apr 2001 21:37:00 +0000 (+0000)
Subject: 1. Sysops can now have full privileges if there is a ExtMsg listener on
X-Git-Tag: R_1_47~13
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=45d5046fe206fcff846fe203de0eac22ebf9d172;p=spider.git

1. Sysops can now have full privileges if there is a ExtMsg listener on
localhost (or everything) and they telnet to localhost and login with their
callsign. This means that they don't need a client anymore (for local access)
---

diff --git a/Changes b/Changes
index 1181d36f..60dc51a4 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+22Apr01=======================================================================
+1. Sysops can now have full privileges if there is a ExtMsg listener on 
+localhost (or everything) and they telnet to localhost and login with their
+callsign.
 18Apr01=======================================================================
 1. added Ian M0AZM's Java Client (SpiderConsole)
 17Apr01=======================================================================
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;