check for lower case callsigns in spots

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7d429b1b7c3aa74375294b23169721742863f2c6..ebc23561dae10ac0c7cf4760836870b96b01cbd9 100644 (file)
--- 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]);