From 2f2b6dbde8a63949fc065dc96a9cb24224dcda7b Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 23 Jun 2007 14:21:28 +0100
Subject: [PATCH] fix period updates (I think)

---
 perl/DXProt.pm  | 14 ++++++++------
 perl/Version.pm |  2 +-
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2c9cda2d..ccf91291 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -451,7 +451,9 @@ sub process
 
 		# send out a PC92 config record if required
 		if ($main::systime >= $dxchan->{next_pc92_update}) {
-			$dxchan->send_pc92_config;
+			if ($dxchan->{call} eq $main::mycall || !$dxchan->{do_pc9x}) {
+				$dxchan->send_pc92_update($dxchan->{call});
+			}
 			$dxchan->update_pc92_next($pc92_update_period);
 		}
 	}
@@ -898,12 +900,12 @@ sub send_pc92_config
 
 sub send_pc92_update
 {
-	my @out = $main::me->gen_pc92_update(0);
+	my $call = shift;
 
-	# broadcast the lines to all PC92 nodes
-	for (@out) {
-		$main::me->broadcast_route_pc9x($main::mycall, undef, $_, 0);
-	}
+	dbg('DXProt::send_pc92_update') if isdbg('trace');
+
+	my $l = gen_my_pc92_config(Route::Node::get($call));
+	$main::me->broadcast_route_pc9x($main::mycall, undef, $l, 0);
 }
 
 sub time_out_pc92_routes
diff --git a/perl/Version.pm b/perl/Version.pm
index 904270c6..83681bcf 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 = '66';
+$build = '67';
 
 1;
-- 
2.34.1