From 171f9837d8bb99d05c2b3bb87066d25d448eabd3 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 19 Jan 2003 17:12:55 +0000 Subject: [PATCH] fix problem with users on multiple nodes not being propagated --- Changes | 1 + perl/DXProt.pm | 14 ++++++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/Changes b/Changes index 5e3e1c04..7008373b 100644 --- a/Changes +++ b/Changes @@ -15,6 +15,7 @@ for each 'new' PC16 that the node sees. This is normal and will go away the second time the system needs to issue a PC19. 2. Alter the export_user command to remove users that have no useful info and have not been seen for more than (default) 1 year. +3. fix the problem of users on more than one node not being propagated 17Jan03======================================================================= 1. Fix problem with lines being left in the main input queue for a disconnected/ing node. diff --git a/perl/DXProt.pm b/perl/DXProt.pm index efa5ff9b..9c044976 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -729,11 +729,13 @@ sub normal my $flags = Route::here($here)|Route::conf($conf); if ($r) { + my @add; + push @add, $r->addparent($parent); if ($r->flags != $flags) { $r->flags($flags); - push @rout, $r; + push @add, $r unless @add; } - $r->addparent($parent); + push @rout, @add; } else { push @rout, $parent->add_user($call, $flags); } @@ -1893,8 +1895,8 @@ sub disconnect $self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op"))); } - # get rid of any PC16/17/19/21s - eph_del_regex("^PC(?:1[679]|21).*$call"); + # get rid of any PC16/17/19 + eph_del_regex("^PC1[679]*$call"); # do routing stuff, remove me from routing table my $node = Route::Node::get($call); @@ -1905,7 +1907,7 @@ sub disconnect # and all my ephemera as well for (@rout) { my $c = $_->call; - eph_del_regex("^PC(?:1[679]|21).*$c"); + eph_del_regex("^PC1[679].*$c"); } } @@ -1919,7 +1921,7 @@ sub disconnect } # and the ephemera - eph_del_regex("^PC(?:1[679]|21).*$k"); + eph_del_regex("^PC1[679].*$k"); } # unbusy and stop and outgoing mail -- 2.43.0