From d8b3b94c40205c64e08402f4a4b272a55c14f80d Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 11 Feb 1999 19:31:56 +0000
Subject: [PATCH] added code to isolate things from rest o network on startup

---
 Changes        | 4 ++++
 perl/DXProt.pm | 6 ++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 9a06a748..68bd6d15 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+11Feb99========================================================================
+1. Fixed a problem with isolated nodes' configurations being sent on sending 
+local configs to new connections.
 08Feb99========================================================================
 1. added a $SIG{ALRM} in the client to actually catch the alarm when it goes 
 off which means that the netrom/ax25 call programs terminate properly (and not
@@ -5,6 +8,7 @@ loop as fast as their little legs can paddle, soaking up CPU time).
 2. Implemented read receipts as an especial request from G4PDQ.
 3. Fiddled with DXUser a bit to see whether I can stop it core dumping on new
 users in PC16s on his machine.
+4. Added E4 (Palestine) to Prefix data.
 30Jan99========================================================================
 1. Some of the dates we get can cause crashes, tried to make it more robust (oh
 and Y2K compliant)
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1ffbe701..e1c29843 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -692,8 +692,10 @@ sub send_local_config
 		@nodes = (DXCluster->get_exact($main::mycall));
 	} else {
 		# create a list of all the nodes that are not connected to this connection
-		@nodes = DXNode::get_all();
-		@nodes = grep { $_->dxchan != $self } @nodes;
+		# and are not themselves isolated, this to make sure that isolated nodes
+        # don't appear outside of this node
+		@nodes = DXNode::get_all(); 
+		@nodes = grep { $_->dxchan != $self && !$_->{isolate} } @nodes;
 	}
 
 	my @s = $me->pc19(@nodes);
-- 
2.34.1