added PC75 command

diff --git a/Changes b/Changes
index 328b1da8b8a240f807b17e7c1f97ea9c69280eb2..ccda150dea92dbc5ced7b9c3553a0ed45aae65a2 100644 (file)
--- 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 ee2e7e5ec67c52798041a9cd92e67b6be228be6e..0ef242352a28cb1e4c8532e584396600418df09b 100644 (file)
--- 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 4f02d5193275b866d9577f3e31bc716d5420e1e8..a607b4094151155fb7edd7553c435ae0e08f2d34 100644 (file)
--- 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