X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=7d429b1b7c3aa74375294b23169721742863f2c6;hb=e0278322b79d09a997ed7df948c57b58f02b139c;hp=30b1b27899a773acd6c12930719acf8e6377d73c;hpb=fd76651ac564ada3deb3e7bdd2bc00498852e539;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 30b1b278..7d429b1b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -149,7 +149,13 @@ sub normal
 	my ($pcno) = $field[0] =~ /^PC(\d\d)/; # just get the number
 	return unless $pcno;
 	return if $pcno < 10 || $pcno > 51;
-	
+
+	# dump bad protocol messages unless it is a PC29
+	if ($line =~ /\%[0-9A-F][0-9A-F]/o && $pcno != 29) {
+		dbg('chan', "CORRUPT protocol message - dumped");
+		return;
+	}
+
 	# local processing 1
 	my $pcr;
 	eval {