1. Sysops can now have full privileges if there is a ExtMsg listener on
authorminima <minima>
Sun, 22 Apr 2001 21:37:00 +0000 (21:37 +0000)
committerminima <minima>
Sun, 22 Apr 2001 21:37:00 +0000 (21:37 +0000)
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)

Changes
perl/ExtMsg.pm

diff --git a/Changes b/Changes
index 1181d36fc603c92702fe6809dfb68ae7b4781c12..60dc51a41a4ff238faf3425ce48be0c46ee274e7 100644 (file)
--- 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=======================================================================
index 3f8159aa54699357bff0ac074a4a9235928a2698..74c544c4453f1c68e370a92e9e8e9d82e06010f9 100644 (file)
@@ -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;