fix period updates (I think)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2c9cda2db2cd26933eede80f5115f91f294b2797..ccf912910559209e5d567a377042f205dcd5c704 100644 (file)
--- 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 904270c6a298e30b0767638b796a80a6e2e08b50..83681bcf75e1dce16ac9703225dcce95f06d7a1c 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 = '66';
+$build = '67';
 
 1;