From: djk <djk>
Date: Thu, 11 Feb 1999 19:57:45 +0000 (+0000)
Subject: added some more isolation
X-Git-Tag: R_1_24~14
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e21257f7fb3b92795787575094e69a7cd804ce55;p=spider.git

added some more isolation
---

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index f10debfe..76048eee 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -528,6 +528,7 @@ sub queue_msg
 				next if $noderef->call eq $main::mycall;
 				next if $noderef->isolate;               # maybe add code for stuff originated here?
 				next if grep { $_ eq $noderef->call } @{$ref->{gotit}};
+				next if DXUser->get( ${$ref->{gotit}}[0] )->isolate;  # is the origin isolated?
 				
 				# if we are here we have a node that doesn't have this message
 				$ref->start_msg($noderef) if !get_busy($noderef->call)  && $noderef->state eq 'normal';
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e1c29843..d1ac6cf8 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -695,7 +695,7 @@ sub send_local_config
 		# 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;
+		@nodes = grep { $_->dxchan != $self && !$_->dxchan->{isolate} } @nodes;
 	}
 
 	my @s = $me->pc19(@nodes);