hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix problem with users on multiple nodes not being propagated

Browse Source
This commit is contained in:
minima 2003-01-19 17:12:55 +00:00
parent 6a13b9579c
commit 171f9837d8
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@ -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.

14
perl/DXProt.pm
View File

@ -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