projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
918827e
)
check for lower case callsigns in spots
author
djk
<djk>
Tue, 24 Aug 1999 22:01:48 +0000
(22:01 +0000)
committer
djk
<djk>
Tue, 24 Aug 1999 22:01:48 +0000
(22:01 +0000)
perl/DXProt.pm
patch
|
blob
|
history
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]);