From 618c97014cb5398a847da35ad2d41c7ee0b0a2ae Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 17 Aug 2001 00:38:20 +0000 Subject: [PATCH] fix rcmd routing --- perl/DXProt.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 6202bb7a..0f8aaebf 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -1582,9 +1582,9 @@ sub process_rcmd } else { my $ref = DXUser->get_current($tonode); if ($ref && $ref->is_clx) { - $self->route($tonode, pc84($tonode, $fromnode, $user, $cmd)); + $self->route($tonode, pc84($fromnode, $tonode, $user, $cmd)); } else { - $self->route($tonode, pc34($tonode, $fromnode, $cmd)); + $self->route($tonode, pc34($fromnode, $tonode, $cmd)); } } } -- 2.43.0