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

try to gather more info on disappearing nodes

Browse Source
This commit is contained in:
minima 2007-01-15 14:43:49 +00:00
parent 12afd4e8f4
commit bfb3961b8a
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
perl/DXProt.pm
View File

@ -843,9 +843,17 @@ sub time_out_pc92_routes
my @rdel;
foreach my $n (@nodes) {
if ($n->dec_obs <= 0) {
if (my $dxchan = DXChannel::get($n->call)) {
dbg("ROUTE: disconnecting local pc92 $_->{call} on obscount") if isdbg('route');
$dxchan->disconnect;
next;
}
my @parents = map {Route::Node::get($_)} $n->parents;
for (@parents) {
push @rdel, $n->del($_) if $_;
if ($_) {
dbg("ROUTE: deleting pc92 $_->{call} from $n->{call} on obscount") if isdbg('route');
push @rdel, $n->del($_);
}
}
}
}

1
perl/Route/Node.pm
View File

@ -309,6 +309,7 @@ sub dec_obs
{
my $self = shift;
$self->{obscount}--;
return $self->{obscount};
}
sub reset_obs