X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;fp=perl%2FDXMsg.pm;h=174a98a4792697ee7513f8298c03e7710b97d671;hb=3c56356646c5e91997c3f3741730fbc6aa178d93;hp=e6662b59472fce0d46e8496235f3c52f271133e4;hpb=d38c9fb5ca503aa06452deccc246c145040e10a6;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index e6662b59..174a98a4 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -216,7 +216,7 @@ sub handle_29
 	
 	my $ref = get_fwq($fromnode, $stream);
 	if ($ref) {
-		$_[4] =~ s/\%5E/^/g;
+		$_[4] =~ s/\%5E/~/g;
 		if (@{$ref->{lines}}) {
 			push @{$ref->{lines}}, $_[4];
 		} else {
@@ -786,6 +786,8 @@ sub queue_msg
 				if ($dxchan) {
 					if ($dxchan->is_node) {
 						next if $clref->call eq $main::mycall;  # i.e. it lives here
+						next if $dxchan->is_arcluster;			# don't even go there, idiot people send the header in the wrong order and won't/can't fix it
+						next if $dxchan->isolate;				# there is no mechanism for sending messages to isolated nodes. 
 						$ref->start_msg($dxchan) if !get_busy($dxchan->call)  && $dxchan->state eq 'normal';
 					}
 				} else {
@@ -804,8 +806,10 @@ sub queue_msg
 				next unless $call;
 				next if $call eq $main::mycall;
 				next if ref $ref->{gotit} && grep $_ eq $call, @{$ref->{gotit}};
-				next unless $ref->forward_it($call);           # check the forwarding file
-				next if $ref->{tonode};	          # ignore it if it already being processed
+				next unless $ref->forward_it($call);    # check the forwarding file
+				next if $ref->{tonode};	                # ignore it if it already being processed
+				next if $dxchan->is_arcluster;			# don't even go there, idiot people send the header in the wrong order and won't/can't fix it
+				next if $dxchan->isolate;				# there is no mechanism for sending messages to isolated nodes. 
 				
 				# if we are here we have a node that doesn't have this message
 				if (!get_busy($call)  && $dxchan->state eq 'normal') {