From e1aeaba72adad654c885c437ef1ee27c5312ef72 Mon Sep 17 00:00:00 2001 From: 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.43.0