X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=93baa8dae5759d60503ad7c6c967987141a35fa3;hb=080a66c38925314321249190eb5a4dc572636d4b;hp=50765e14a54be2b5f1912d7e82619db0c1002cf0;hpb=654c9b77424b948f88816e0ef28bf4a27331afdb;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 50765e14..93baa8da 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -271,6 +271,15 @@ sub normal
 						} else {
 							route(undef, $to, pc34($main::mycall, $to, $cmd));
 						}
+						if ($to ne $field[7]) {
+							$to = $field[7];
+							$node = DXCluster->get_exact($to);
+							if ($node && $node->dxchan && $node->dxchan->is_clx) {
+								route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
+							} else {
+								route(undef, $to, pc34($main::mycall, $to, $cmd));
+							}
+						}
 						$user->lastoper($main::systime);
 						$user->put;
 					}