From 2b876ea3b583a06b30637b5c12776f69f47db3f5 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 15 Jan 2007 17:57:50 +0000 Subject: [PATCH] fix error in broadcast_route_pc9x --- perl/DXProt.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 7d0787d2..c33d5aad 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -432,6 +432,7 @@ sub process import_chat(); if ($main::systime >= $last_pc92_update + $pc92_update_period) { + dbg("ROUTE: sending pc92 update") if isdbg('route'); send_pc92_update(); time_out_pc92_routes(); $last_pc92_update = $main::systime + int rand(180); @@ -778,7 +779,7 @@ sub gen_pc92_update my $node; my @lines; - dbg('DXProt::send_pc92_update') if isdbg('trace'); + dbg('DXProt::gen_pc92_update') if isdbg('trace'); # send 'my' configuration for all users and pc92 capable nodes my @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} } DXChannel::get_all(); @@ -833,7 +834,7 @@ sub send_pc92_update # broadcast the lines to all PC92 nodes for (@out) { - $main::me->broadcast_route_pc9x('', undef, $_, 0); + $main::me->broadcast_route_pc9x($main::mycall, undef, $_, 0); } } @@ -1232,14 +1233,14 @@ sub broadcast_route_pc9x my @dxchan = DXChannel::get_all_nodes(); my $dxchan; - if ($origin eq $main::mycall) { + if ($origin eq $main::mycall && $generate && !$line) { $line = &$generate(@_); } $line =~ /\^H(\d+)\^\~?$/; unless ($1 > 0 && $self->{isolate}) { foreach $dxchan (@dxchan) { - next if $dxchan == $self || $main::me; + next if $dxchan == $self || $dxchan == $main::me; next if $origin eq $dxchan->{call}; # don't route some from this call back again. next unless $dxchan->{do_pc92}; next unless $dxchan->isa('DXProt'); -- 2.43.0