From bdea2174f3035fb9b75858dc1d6e2be47b1e8fc1 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 26 Aug 2000 12:18:45 +0000
Subject: [PATCH] added PC75 command

---
 Changes        | 1 +
 perl/DXMsg.pm  | 2 +-
 perl/DXProt.pm | 7 +++++++
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 328b1da8..ccda150d 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 26Aug00=======================================================================
 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?)
 25Aug00=======================================================================
 1. moan about and then delete empty message files
 24Aug00=======================================================================
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index ee2e7e5e..0ef24235 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -761,7 +761,7 @@ sub init
 
 	@msg = ();
 	for (sort @dir) {
-		next unless /^m\d+$/o;
+		next unless /^m\d\d\d\d\d\d$/;
 		
 		$ref = read_msg_header("$msgdir/$_");
 		unless ($ref) {
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4f02d519..a607b409 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -886,6 +886,13 @@ sub normal
 			return;
 		}
 
+		if ($pcno == 75) {		# dunno but route it
+			if ($field[1] ne $main::mycall) {
+				$self->route($field[1], $line);
+			}
+			return;
+		}
+
 		if ($pcno == 73) {  # WCY broadcasts
 			
 			# do some de-duping
-- 
2.43.0