projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add more debugging and (possibly) fix the problem.
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index f4e4e0d5c4caf03ba05a7f7fab5bd0bbe6f512eb..7d0787d296090a2db1a9680bd8dce1ef09a359bb 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-842,9
+842,10
@@
sub time_out_pc92_routes
my @nodes = grep {$_->do_pc92 || $_->via_pc92} Route::Node::get_all();
my @rdel;
foreach my $n (@nodes) {
my @nodes = grep {$_->do_pc92 || $_->via_pc92} Route::Node::get_all();
my @rdel;
foreach my $n (@nodes) {
- if ($n->dec_obs <= 0) {
+ my $o = $n->dec_obs;
+ if ($o <= 0) {
if (my $dxchan = DXChannel::get($n->call)) {
if (my $dxchan = DXChannel::get($n->call)) {
- dbg("ROUTE: disconnecting local pc92 $
_
->{call} on obscount") if isdbg('route');
+ dbg("ROUTE: disconnecting local pc92 $
dxchan
->{call} on obscount") if isdbg('route');
$dxchan->disconnect;
next;
}
$dxchan->disconnect;
next;
}
@@
-855,6
+856,8
@@
sub time_out_pc92_routes
push @rdel, $n->del($_);
}
}
push @rdel, $n->del($_);
}
}
+ } else {
+ dbg("ROUTE: obscount on $n->{call} now $o") if isdbg('route');
}
}
for (@rdel) {
}
}
for (@rdel) {