From b91254375e95e7931312c4177ee390866f82c648 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 26 Aug 2001 13:08:13 +0000 Subject: [PATCH] reverse the orgin and from on sending TO arclusters --- perl/DXMsg.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index f3c2172c..c87fd2e4 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -686,7 +686,15 @@ sub start_msg $busy{$self->{tonode}} = $self; $work{$self->{tonode}} = $self; $self->{lastt} = $main::systime; - $dxchan->send(DXProt::pc28($self->{tonode}, $self->{fromnode}, $self->{to}, $self->{from}, $self->{t}, $self->{private}, $self->{subject}, $self->{origin}, $self->{rrreq})); + my ($fromnode, $origin); + if ($dxchan->is_arcluster) { + $fromnode = $self->{origin}; + $origin = $self->{fromnode}; + } else { + $fromnode = $self->{fromnode}; + $origin = $self->{origin}; + } + $dxchan->send(DXProt::pc28($self->{tonode}, $fromnode, $self->{to}, $self->{from}, $self->{t}, $self->{private}, $self->{subject}, $origin, $self->{rrreq})); } # get the ref of a busy node -- 2.43.0