]> www.dxcluster.org Git - spider.git/commitdiff
fix period updates (I think)
authorDirk Koopman <djk@tobit.co.uk>
Sat, 23 Jun 2007 13:21:28 +0000 (14:21 +0100)
committerDirk Koopman <djk@tobit.co.uk>
Sat, 23 Jun 2007 13:21:28 +0000 (14:21 +0100)
perl/DXProt.pm
perl/Version.pm

index 2c9cda2db2cd26933eede80f5115f91f294b2797..ccf912910559209e5d567a377042f205dcd5c704 100644 (file)
@@ -451,7 +451,9 @@ sub process
 
                # send out a PC92 config record if required
                if ($main::systime >= $dxchan->{next_pc92_update}) {
 
                # 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);
                }
        }
                        $dxchan->update_pc92_next($pc92_update_period);
                }
        }
@@ -898,12 +900,12 @@ sub send_pc92_config
 
 sub send_pc92_update
 {
 
 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
 }
 
 sub time_out_pc92_routes
index 904270c6a298e30b0767638b796a80a6e2e08b50..83681bcf75e1dce16ac9703225dcce95f06d7a1c 100644 (file)
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
 
 $version = '1.54';
 $subversion = '0';
-$build = '66';
+$build = '67';
 
 1;
 
 1;