return;
}
- my $spot = Spot::add($freq, $field[2], $d, $text, $spotter, $field[7]);
+ my @spot = Spot::add($freq, $field[2], $d, $text, $spotter, $field[7]);
+
+ #
+ # @spot at this point contains:-
+ # freq, spotted call, time, text, spotter, spotted cc, spotters cc,
+ # orig node, spotted itu, spotted cq, spotters itu, spotters cq
+ # you should be able to route on any of these
+ #
# local processing
my $r;
return if $r;
# send orf to the users
- if ($spot && $pcno == 11) {
+ if (@spot && $pcno == 11) {
my $buf = Spot::formatb($field[1], $field[2], $d, $text, $spotter);
- broadcast_users("$buf\a\a", 'dx', $spot);
+ broadcast_users("$buf\a\a", 'dx', $spot[0]);
}
# DON'T be silly and send on PC26s!
@nodes = (DXCluster->get_exact($main::mycall));
} else {
# create a list of all the nodes that are not connected to this connection
- @nodes = DXNode::get_all();
- @nodes = grep { $_->dxchan != $self } @nodes;
+ # and are not themselves isolated, this to make sure that isolated nodes
+ # don't appear outside of this node
+ @nodes = DXNode::get_all();
+ @nodes = grep { $_->dxchan != $self && !$_->dxchan->{isolate} } @nodes;
}
my @s = $me->pc19(@nodes);