projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5f15732
)
fix error in broadcast_route_pc9x
author
minima
<minima>
Mon, 15 Jan 2007 17:57:50 +0000
(17:57 +0000)
committer
minima
<minima>
Mon, 15 Jan 2007 17:57:50 +0000
(17:57 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 7d0787d296090a2db1a9680bd8dce1ef09a359bb..c33d5aad747db115073cef08be9b4e8df4a117b5 100644
(file)
--- 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) {
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);
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;
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();
# 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) {
# 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;
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) {
$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');
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');