From 79fe9451acd189d972624246964650447aafdb8e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 25 Jun 2007 11:27:35 +0100 Subject: [PATCH] make sure that periodic C updates come from node --- Changes | 2 ++ perl/DXProt.pm | 21 ++++++++++++++------- perl/Version.pm | 2 +- 3 files changed, 17 insertions(+), 8 deletions(-) diff --git a/Changes b/Changes index ddfc347e..65ebd627 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +25Jun06======================================================================= +1. make sure that a C record is sent for node call every update period. 24Jun06======================================================================= 1. Fix the routing algorithms to allow route selection in the face of incomplete trees of nodes (trees as produced by sh/newc). diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 835d4424..b7759656 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -449,13 +449,6 @@ sub process } } - # send out a PC92 config record if required - if ($main::systime >= $dxchan->{next_pc92_update}) { - if ($dxchan->{call} eq $main::mycall || !$dxchan->{do_pc9x}) { - $dxchan->send_pc92_update($dxchan->{call}); - } - $dxchan->update_pc92_next($pc92_update_period); - } } Investigate::process(); @@ -474,6 +467,20 @@ sub process } $last10 = $t; + + # send out config broadcasts + foreach $dxchan (@dxchan) { + next unless $dxchan->is_node; + + # send out a PC92 config record if required for me and + # all my non pc9x dependent nodes. + if ($main::systime >= $dxchan->{next_pc92_update}) { + if ($dxchan->{call} eq $main::mycall || !$dxchan->{do_pc9x}) { + $dxchan->send_pc92_update($dxchan->{call}); + } + $dxchan->update_pc92_next($pc92_update_period); + } + } } if ($main::systime - 3600 > $last_hour) { diff --git a/perl/Version.pm b/perl/Version.pm index 8bbdc37f..525ed17a 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '86'; +$build = '87'; 1; -- 2.43.0