From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 26 Jun 2008 19:49:50 +0000 (+0100)
Subject: allow local users to be on other nodes
X-Git-Tag: 1.56~72
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=b4788593ff3c3a731fa5dfb5aa4025ce877e0fe8;p=spider.git

allow local users to be on other nodes

Depending on the order in which things happen, a local user might not
have the other nodes he is logged in registered in the routing table.
---

diff --git a/Changes b/Changes
index 58d8329d..7a4c91fd 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. added show/ik3qar command by Leo IZ5FSA. See comments in perl/Internet.pm
 for setup instructions (note that you will have to copy these lines to
 local/Internet.pm before it will work).
+2. Send talks to every node a user is logged onto.
 24Jun08=======================================================================
 1. Change the route finding algorithm completely. No more recursion. No more
 tree searching. It now gives you answers even on a partial cluster map. Oh
diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index e19688bb..29d3e751 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1758,8 +1758,9 @@ sub handle_92
 		# do a pass through removing any references to either locally connected nodes or mycall
 		my @nent;
 		for (@ent) {
+			my $dxc;
 			next unless $_ && @$_;
-			if ($_->[0] eq $main::mycall || DXChannel::get($_->[0])) {
+			if ($_->[0] eq $main::mycall || (($dxc = DXChannel::get($_->[0])) && $dxc->is_node)) {
 				dbg("PCPROT: $_->[0] refers to locally connected node, ignored") if isdbg('chanerr');
 				next;
 			}
diff --git a/perl/Version.pm b/perl/Version.pm
index 96e37485..4207ca45 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '23';
+$build = '24';
 
 1;