From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 5 Jul 2020 17:23:32 +0000 (+0100)
Subject: attempt to prevent echoing on ExtMsg login
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a153b8df39668d98f01238e1c49d9e9a51ec5484;p=spider.git

attempt to prevent echoing on ExtMsg login

This is to try to prevent any PROXY message being echoed
---

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index c5d6d854..6b3a30b1 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -64,6 +64,24 @@ sub echo
 	$conn->{echo} = shift;
 }
 
+sub _rcv
+{
+    my $conn = shift; # $rcv_now complement of $flush
+	my $msg = shift;
+    my $sock = $conn->{sock};
+    return unless defined($sock);
+	return if $conn->{disconnecting};
+
+	if ($conn->{state} eq 'WL' && $conn->{sort} =~ /^I/ && $msg =~ /^PROXY/) {
+		my $echo = $conn->{echo};
+		$conn->{echo} = 0;
+		$conn->SUPER::_rcv($msg);
+		$conn->{echo} = $echo;
+	} else {
+		$conn->SUPER::_rcv($msg);
+	}
+}
+
 sub dequeue
 {
 	my $conn = shift;
@@ -182,7 +200,7 @@ sub new_client {
 	$conn->_send_file(localdata("issue"));
 	$conn->send_raw("login: ");
 	$conn->_dotimeout(60);
-	$conn->{echo} = 1;
+#	$conn->{echo} = 1;
 }
 
 sub start_connect