X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=58c548a22ac19e000bdc417d3e9091b3c351ca89;hb=29ec5bb85c591182dd868e7a3d87f510d7b47e9b;hp=0ef242352a28cb1e4c8532e584396600418df09b;hpb=5723719679b0bb4ddc55f32eb5ceb3cf59ee23ae;p=spider.git diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 0ef24235..58c548a2 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -600,12 +600,12 @@ sub queue_msg my $call = shift; my $ref; my $clref; - my @nodelist = DXChannel::get_all_ak1a(); # bat down the message list looking for one that needs to go off site and whose # nearest node is not busy. dbg('msg', "queue msg ($sort)\n"); + my @nodelist = DXChannel::get_all_nodes; foreach $ref (@msg) { # firstly, is it private and unread? if so can I find the recipient # in my cluster node list offsite?