X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=c5882c3660ddec7a52cc84338be0a268b8e668df;hb=44803b76e72d76567f70a11e150a53a1cd87c2d3;hp=310416e8dfda883713b863a969a080867e2d55a6;hpb=2c3a20bdcef84e620b0c3c2d306a71ebe17956b0;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 310416e8..c5882c36 100644
--- 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;
 			}