X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=0fc327c4c543b6713c92ba456de5ac5cda3b4706;hb=5d197c9f7aa2ea796d86aa5473f93956b24cf1b7;hp=80895a55fbfc0ae82966bdb91ffa26214b539d92;hpb=f3adc82a0299652d929b73c718127fa38571eec5;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 80895a55..0fc327c4 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -497,6 +497,11 @@ sub queue_msg
 		if ($ref->{private}) {
 			if ($ref->{'read'} == 0) {
 				$clref = DXCluster->get_exact($ref->{to});
+				unless ($clref) {             # otherwise look for a homenode
+					my $uref = DXUser->get($ref->{to});
+					my $hnode =  $uref->homenode if $uref;
+					$clref = DXCluster->get_exact($hnode) if $hnode;
+				}
 				if ($clref && !grep { $clref->{dxchan} == $_ } DXCommandmode::get_all) {
 					$dxchan = $clref->{dxchan};
 					$ref->start_msg($dxchan) if $clref && !get_busy($dxchan->call) && $dxchan->state eq 'normal';