projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix blank callsigns on dx spots
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index c056db9706e72ff1f6abb708d00855a0524e04fe..af1f34f7124a32f29a6729fb97724177d3089f0e 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-82,7
+82,7
@@
$handle_xml = 0; # handle XML sentences
@checklist =
(
[ qw(i c c m bp bc c) ], # pc10
@checklist =
(
[ qw(i c c m bp bc c) ], # pc10
- [ qw(i f
bm d t m c c h) ],
# pc11
+ [ qw(i f
m d t m c c h) ],
# pc11
[ qw(i c bm m bm bm p h) ], # pc12
[ qw(i c h) ], #
[ qw(i c h) ], #
[ qw(i c bm m bm bm p h) ], # pc12
[ qw(i c h) ], #
[ qw(i c h) ], #
@@
-477,6
+477,13
@@
sub handle_11
# rsfp check
# return if $rspfcheck and !$self->rspfcheck(1, $_[7], $_[6]);
# rsfp check
# 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.
+ if ($_[2] =~ /^\s*$/) {
+ dbg("PCPROT: blank callsign, 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])) {