added code to route mail commands past me

diff --git a/Changes b/Changes
index 92fa5efe9708847a795f62363d75321deb601044..4bad93c42c067629ab64f4cde1af3e08af7a1472 100644 (file)
--- a/Changes
+++ b/Changes
@@ -6,6 +6,7 @@ connecting node's privilege level).
 3. Pass thru merge requests for other nodes.
 4. Removed a warning from client.pl
 5. routed external DB commands and drop them (for now) locally
+6. routed external mail commands (ie those addressed elsewhere)
 25May99=======================================================================
 1. try to make the lastin value correct even for local users
 2. got rid of the stupid bug that failed to print out the offline message

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1ca20badcdddd0f47a7bc0485dd75579a529357b..d8c8e899580ae4c546f4a8c8e37c9c4484b258bd 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -511,7 +511,11 @@ sub normal
                }
                
                if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
-                       DXMsg::process($self, $line);
+                       if ($field[1] eq $main::mycall) {
+                               DXMsg::process($self, $line);
+                       } else {
+                               route($field[1], $line);
+                       }
                        return;
                }