From 618c97014cb5398a847da35ad2d41c7ee0b0a2ae Mon Sep 17 00:00:00 2001
From: minima <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.34.1