From b4788593ff3c3a731fa5dfb5aa4025ce877e0fe8 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1