From 129b45395239f73e39ccb5f251e492bbdecb47e2 Mon Sep 17 00:00:00 2001 From: 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.43.0