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 58d8329d0e676906de38eca83b4a6c1a04f5328d..7a4c91fd16cba44fefada2a219fce6e318989021 100644 (file)
--- 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 e19688bb1bba53295effd70c1a34bcf5326c83b5..29d3e7513c85ede2109a5d328d74ece17502a99b 100644 (file)
--- 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 96e374854ced64a1b7ebf94326e2ac3730f22a29..4207ca458f2eb902e5a3d0a0a2b901540832dcaa 100644 (file)
--- 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;