X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=c00219ecd780b4354d79fb4d61403ca017fb76ed;hb=fe5f655526588af1e7048c7ef570072eace383f5;hp=84572b68246c8c00da16310df040c24d21ec9268;hpb=7b5fc52d020d360a455a8432afa9a51b290a7e99;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 84572b68..c00219ec 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -221,6 +221,8 @@ sub init $main::me->{registered} = 1; $main::me->{version} = $main::version; $main::me->{build} = $main::build; + $main::me->{do_pc92} = 1; + $main::me->{via_pc92} = 1; } # @@ -431,6 +433,7 @@ sub process if ($main::systime >= $last_pc92_update + $pc92_update_period) { send_pc92_update(); + time_out_pc92_routes(); $last_pc92_update = $main::systime + int rand(180); } @@ -780,12 +783,11 @@ sub gen_pc92_update # send 'my' configuration for all users and pc92 capable nodes my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all(); my @localnodes = map { my $r = Route::get($_->{call}); $r ? $r : () } @dxchan; -# push @localnodes, map { my $r = Route::Node::get($_->{call}); $r ? $r : () } DXChannel::get_all_users(); push @lines, pc92c($main::routeroot, @localnodes); if ($with_pc92_nodes) { - # send out the configuration of all the PC92 nodes with current configuration + # send out the configuration of all the directly connected PC92 nodes with current configuration # but with the dates that the last config came in with. @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc92} } DXChannel::get_all_nodes(); @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan; @@ -797,7 +799,7 @@ sub gen_pc92_update } } - # send the configuration of all the 'external' nodes that don't handle PC92 + # send the configuration of all the directly connected 'external' nodes that don't handle PC92 # out with the 'external' marker on the first node. @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && !$_->{do_pc92} } DXChannel::get_all_nodes(); @localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan; @@ -835,6 +837,23 @@ sub send_pc92_update } } +sub time_out_pc92_routes +{ + my @nodes = grep {$_->do_pc92 || $_->via_pc92} Route::Node::get_all(); + my @rdel; + foreach my $n (@nodes) { + if ($n->dec_obs <= 0) { + my @parents = map {Route::Node::get($_)} $n->parents; + for (@parents) { + push @rdel, $n->del($_) if $_; + } + } + } + for (@rdel) { + $main::me->route_pc21($main::mycall, undef, $_) if $_; + } +} + # # route a message down an appropriate interface for a callsign # @@ -1209,8 +1228,8 @@ sub broadcast_route_pc9x $line =~ /\^H(\d+)\^\~?$/; unless ($1 > 0 && $self->{isolate}) { foreach $dxchan (@dxchan) { - next if $dxchan == $self; - next if $dxchan == $main::me; + next if $dxchan == $self || $main::me; + next if $origin eq $dxchan->{call}; # don't route some from this call back again. next unless $dxchan->{do_pc92}; next unless $dxchan->isa('DXProt');