don't allow mail message routing for clx

diff --git a/Changes b/Changes
index ccda150dea92dbc5ced7b9c3553a0ed45aae65a2..43c52a9e42633f45c7d3fed4f810ecf9d5509f96 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. make blank origins on messages the node call.
 2. added new version of FAQ from Ian G0VGS
 3. added a dummy PC75 command (WCY merge?)
+4. Don't allow mail routing for clx nodes
 25Aug00=======================================================================
 1. moan about and then delete empty message files
 24Aug00=======================================================================

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index a607b4094151155fb7edd7553c435ae0e08f2d34..73fcfc54ad42156d339db25f7e282a532fd606ce 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -725,7 +725,7 @@ sub normal
                        if ($pcno == 49 || $field[1] eq $main::mycall) {
                                DXMsg::process($self, $line);
                        } else {
-                               $self->route($field[1], $line);
+                               $self->route($field[1], $line) unless $self->is_clx;
                        }
                        return;
                }