From bdea2174f3035fb9b75858dc1d6e2be47b1e8fc1 Mon Sep 17 00:00:00 2001 From: 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