X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=5797c63ff8d3c9d0e801eb49ce082053083cdafd;hb=8ac487c0c3297023df07493b11fe166d4c857081;hp=d1ac6cf8218cb54ac39330935141eeaf5b1fe512;hpb=e21257f7fb3b92795787575094e69a7cd804ce55;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index d1ac6cf8..5797c63f 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -425,7 +425,7 @@ sub normal return if $pcno == 27; # broadcast to the eager users - broadcast_users("WWV de $field[7] <$field[2]>: SFI=$sfi, K=$k, A=$i, $field[6]", 'wwv', $wwv ); + broadcast_users("WWV de $field[7] <$field[2]>: SFI=$sfi, A=$k, K=$i, $field[6]", 'wwv', $wwv ); last SWITCH; } @@ -695,7 +695,8 @@ sub send_local_config # 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; + @nodes = grep { $_->dxchan != $self } @nodes; + @nodes = grep { !($_->dxchan && $_->dxchan->isolate) } @nodes; } my @s = $me->pc19(@nodes);