From b4788593ff3c3a731fa5dfb5aa4025ce877e0fe8 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 26 Jun 2008 20:49:50 +0100 Subject: [PATCH] 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. --- Changes | 1 + perl/DXProtHandle.pm | 3 ++- perl/Version.pm | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) 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; -- 2.43.0