added 1.25 of the admin manual

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 310416e8dfda883713b863a969a080867e2d55a6..c5882c3660ddec7a52cc84338be0a268b8e668df 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -159,7 +159,7 @@ sub normal
        return if $pcno < 10 || $pcno > 99;
 
        # dump bad protocol messages
-       if ($line =~ /\%[01][0-9A-F]/) {
+       if ($pcno != 29 && $line =~ /\%[01][0-9A-F]/) {
                dbg('chan', "CORRUPT protocol message - dumped");
                return;
        }
@@ -315,7 +315,7 @@ sub normal
                }
                
                if ($pcno == 12) {              # announces
-                       unless (is_callsign($field[1]) && is_callsign($field[2]) && is_callsign($field[5])) {
+                       unless (is_callsign($field[1]) && is_callsign($field[5])) {
                                dbg('chan', "Corrupt announce, rejected");
                                return;
                        }