From: djk <djk>
Date: Tue, 24 Aug 1999 22:01:48 +0000 (+0000)
Subject: check for lower case callsigns in spots
X-Git-Tag: R_1_31~3
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=129b45395239f73e39ccb5f251e492bbdecb47e2;p=spider.git

check for lower case callsigns in spots
---

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]);