From b81c3de85161b74c53d32f2a0bccf31e17ffbf80 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 31 May 1999 17:04:20 +0000 Subject: [PATCH] route external DB Commands and drop any directed locally --- Changes | 1 + perl/DXProt.pm | 34 ++++++++++++++-------------------- 2 files changed, 15 insertions(+), 20 deletions(-) diff --git a/Changes b/Changes index e2235683..92fa5efe 100644 --- a/Changes +++ b/Changes @@ -5,6 +5,7 @@ the channels that they are supposed to. connecting node's privilege level). 3. Pass thru merge requests for other nodes. 4. Removed a warning from client.pl +5. routed external DB commands and drop them (for now) locally 25May99======================================================================= 1. try to make the lastin value correct even for local users 2. got rid of the stupid bug that failed to print out the offline message diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 19859af0..1ca20bad 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -559,10 +559,8 @@ sub normal return; } - if ($pcno == 37) { - last SWITCH; - } - + # for pc 37 see 44 onwards + if ($pcno == 38) { # node connected list from neighbour return; } @@ -599,25 +597,21 @@ sub normal if ($pcno == 43) { last SWITCH; } - if ($pcno == 44) { - last SWITCH; - } - if ($pcno == 45) { - last SWITCH; - } - if ($pcno == 46) { - last SWITCH; - } - if ($pcno == 47) { - last SWITCH; - } - if ($pcno == 48) { - last SWITCH; + if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 49) { + if ($field[1] eq $main::mycall) { + ; + } else { + route($field[1], $line); + } + return; } if ($pcno == 50) { # keep alive/user list - my $ref = DXCluster->get_exact($field[1]); - $ref->update_users($field[2]) if $ref; + my $node = DXCluster->get_exact($field[1]); + if ($node) { + return unless $node->dxchan == $self; + $node->update_users($field[2]); + } last SWITCH; } -- 2.43.0