From 2f2b6dbde8a63949fc065dc96a9cb24224dcda7b Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0