From 129b45395239f73e39ccb5f251e492bbdecb47e2 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Tue, 24 Aug 1999 22:01:48 +0000
Subject: [PATCH] check for lower case callsigns in spots

---
 perl/DXProt.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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