From 4c60d18d0d58ece2406680d4afd4ff016532c11c Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 4 Feb 2006 19:33:11 +0000 Subject: [PATCH] check for lower case letters in spotted calls --- perl/DXProt.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index af1f34f7..5c6ca1fb 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -479,11 +479,16 @@ sub handle_11 # return if $rspfcheck and !$self->rspfcheck(1, $_[7], $_[6]); # is the spotted callsign blank? This should really be trapped earlier but it - # could break other protocol sentences. + # could break other protocol sentences. Also check for lower case characters. if ($_[2] =~ /^\s*$/) { dbg("PCPROT: blank callsign, dropped") if isdbg('chanerr'); return; } + if ($_[2] =~ /[a-z]/) { + dbg("PCPROT: lowercase characters, dropped") if isdbg('chanerr'); + return; + } + # if this is a 'nodx' node then ignore it if ($badnode->in($_[7])) { -- 2.43.0