projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
9f49a7a
)
check for lower case letters in spotted calls
R_1_52
author
minima
<minima>
Sat, 4 Feb 2006 19:33:11 +0000
(19:33 +0000)
committer
minima
<minima>
Sat, 4 Feb 2006 19:33:11 +0000
(19:33 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index af1f34f7124a32f29a6729fb97724177d3089f0e..5c6ca1fb928abd18426cce68525fedbcb3e20cf6 100644
(file)
--- 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
# 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] =~ /^\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])) {
# if this is a 'nodx' node then ignore it
if ($badnode->in($_[7])) {