X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=ebc23561dae10ac0c7cf4760836870b96b01cbd9;hb=129b45395239f73e39ccb5f251e492bbdecb47e2;hp=7d429b1b7c3aa74375294b23169721742863f2c6;hpb=e0278322b79d09a997ed7df948c57b58f02b139c;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7d429b1b..ebc23561 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -226,6 +226,12 @@ sub normal
 				dbg('chan', "Bad DX spot, ignored");
 				return;
 			}
+
+			# are any of the crucial fields invalid?
+            if ($field[2] =~ /[a-z]/ || $field[6] =~ /[a-z]/ || $field[7] =~ /[a-z]/) {
+				dbg('chan', "Spot contains lower case callsigns, rejected");
+				return;
+			}
 			
 			my @spot = Spot::add($freq, $field[2], $d, $text, $spotter, $field[7]);