From: Dirk Koopman 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;