added code to route mail commands past me

[spider.git] / perl / DXProt.pm

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;
                }