added code to isolate things from rest o network on startup

diff --git a/Changes b/Changes
index 9a06a748addc952598970f3af8060a3ab62f7d07..68bd6d15a4d4702bf6771ce429e85a63b18846c3 100644 (file)
--- 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 1ffbe70193961fd899fb090d5b1e6c744df56ab5..e1c29843a0f3b8e389893e994c293979d7e5469e 100644 (file)
--- 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);