$mref->stop_msg($call) if $mref;
# broadcast to all other nodes that all the nodes connected to via me are gone
- my @gonenodes = map { $_->dxchan == $self ? $_ : () } DXNode::get_all();
+ my @gonenodes = grep { $_->dxchan != $self && $_->dxchan != $me } DXNode::get_all();
my $node;
- foreach $node (@gonenodes) {
+ foreach $node (DXNode::get_all) {
next if $node->call eq $call;
+ next if $node->call eq $main::mycall;
broadcast_ak1a(pc21($node->call, 'Gone') , $self) unless $self->{isolate};
$node->del();
}
# send it if it isn't the except list and isn't isolated and still has a hop count
foreach $dxchan (@dxchan) {
next if grep $dxchan == $_, @except;
+ next if $dxchan == $me;
+
my $routeit = adjust_hops($dxchan, $s); # adjust its hop count by node name
$dxchan->send($routeit) unless $dxchan->{isolate} || !$routeit;
}
# send it if it isn't the except list and isn't isolated and still has a hop count
foreach $dxchan (@dxchan) {
next if grep $dxchan == $_, @except;
+ next if $dxchan == $me;
+
my $routeit = adjust_hops($dxchan, $s); # adjust its hop count by node name
$dxchan->send($routeit);
}
foreach $dxchan (@_) {
my $filter = 1;
+ next if $dxchan == $me;
if ($sort eq 'dx') {
next unless $dxchan->{dx};