From e1aeaba72adad654c885c437ef1ee27c5312ef72 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 31 May 1999 17:23:59 +0000
Subject: [PATCH] added code to route mail commands past me

---
 Changes        | 1 +
 perl/DXProt.pm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 92fa5efe..4bad93c4 100644
--- 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 1ca20bad..d8c8e899 100644
--- 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;
 		}
 		
-- 
2.34.1