From e1360e52d46c7869b14bfaa8fc7fa12a3aa337b3 Mon Sep 17 00:00:00 2001 From: djk Date: Wed, 3 Nov 1999 21:55:32 +0000 Subject: [PATCH] and add it to PC17 as well --- perl/DXProt.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 25d862cf..c039659b 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -360,13 +360,20 @@ sub normal if ($pcno == 17) { # remove a user my $node = DXCluster->get_exact($field[2]); + my $dxchan; + if (!$node && ($dxchan = DXChannel->get($field[2]))) { + # add it to the node table if it isn't present and it's + # connected locally + $node = DXNode->new($dxchan, $field[2], 0, 1, 5400); + broadcast_ak1a(pc19($dxchan, $node), $dxchan, $self) unless $dxchan->{isolate}; + return; + } return unless $node; return unless $node->isa('DXNode'); if ($node->dxchan != $self) { dbg('chan', "LOOP: $field[2] came in on wrong channel"); return; } - my $dxchan; if (($dxchan = DXChannel->get($field[2])) && $dxchan != $self) { dbg('chan', "LOOP: $field[2] connected locally"); return; -- 2.34.1