make sure that periodic C updates come from node

diff --git a/Changes b/Changes
index ddfc347e72ae1b18b4612d4db74c0134673c4eed..65ebd62784faff5bb9219c1572a352760b88fccf 100644 (file)
--- 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 835d4424f7a2dbcf80607651bbf0a0d72e6f5c21..b775965660738029cf0e8a98385363c169652890 100644 (file)
--- 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 8bbdc37f76617168fc3e4533460b4ce66c1a0115..525ed17a1ed45f017e3f86d0f4590d9b2fe23813 100644 (file)
--- 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;