From 79fe9451acd189d972624246964650447aafdb8e Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1