From d6f207760a7908f4ea933125f1c2c36cbe4fb209 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Tue, 1 Jun 1999 08:44:49 +0000
Subject: [PATCH] removed unwanted pc21 for isolated nodes

---
 Changes        | 2 ++
 perl/DXProt.pm | 2 +-
 perl/client.pl | 8 ++++----
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index 17dfc5b2..3f1ccc50 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+01Jun99=======================================================================
+1. removed a output of an unwanted pc21 for isolated nodes
 31May99=======================================================================
 1. Added checking for PC16,17,19 and 21 to make sure that they come in from
 the channels that they are supposed to.
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index aa848eb7..f4f56e7d 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -742,7 +742,7 @@ sub finish
 	delete $pings{$call};
 	
 	# now broadcast to all other ak1a nodes that I have gone
-	broadcast_ak1a(pc21($call, 'Gone.'), $self);
+	broadcast_ak1a(pc21($call, 'Gone.'), $self) unless $self->{isolate};
 	
 	Log('DXProt', $call . " Disconnected");
 	$ref->del() if $ref;
diff --git a/perl/client.pl b/perl/client.pl
index 1a57a1c6..8a19719e 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -163,7 +163,9 @@ sub rec_stdin
 	#  $prbuf =~ s/\r/\\r/;
 	#  $prbuf =~ s/\n/\\n/;
 	#  print "sys: $r ($prbuf)\n";
-	if ($r > 0) {
+	if (!defined $r || $r == 0) {
+		cease(1);
+	} elsif ($r > 0) {
 		if ($mode) {
 			$buf =~ s/\r/\n/og if $mode == 1;
 			$buf =~ s/\r\n/\n/og if $mode == 2;
@@ -189,9 +191,7 @@ sub rec_stdin
 		} else {
 			$conn->send_later("I$call|$buf");
 		}
-	} elsif ($r == 0) {
-		cease(1);
-	}
+	} 
 	$lasttime = time;
 }
 
-- 
2.34.1