added code to isolate things from rest o network on startup

[spider.git] / perl / DXProt.pm

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);