From 25a3f1e8b4643da0befe759bcd2f4b99b01da909 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 3 Mar 2001 13:53:15 +0000 Subject: [PATCH] fix pc17 coming in with users on wrong nodes --- Changes | 1 + perl/DXProt.pm | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index bbb26d86..c41612bc 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,6 @@ 03Mar01======================================================================= 1. allow incoming and outgoing IP connects direct to cluster.pl +2. fixed (long standing)a hole in PC17 handling 28Feb01======================================================================= 1. allow sh/c gb7 (ie show the config of all gb7 nodes)(for example) 2. get rid of spurious DXHash 'uninitialised' messages if no corresponding diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 455311e3..6f4b089d 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -597,12 +597,16 @@ sub normal dbg('chan', "PCPROT: $field[2] came in on wrong channel"); return; } - if (($dxchan = DXChannel->get($field[2])) && $dxchan != $self) { - dbg('chan', "PCPROT: $field[2] connected locally"); + if (($dxchan = DXChannel->get($field[1])) && $dxchan != $self) { + dbg('chan', "PCPROT: $field[1] connected locally"); return; } my $ref = DXCluster->get_exact($field[1]); if ($ref) { + if ($ref->mynode != $node) { + dbg('chan', "PCPROT: $field[1] came in from wrong node $field[2]"); + return; + } $ref->del; } else { dbg('chan', "PCPROT: $field[1] not known" ); -- 2.43.0