projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
999bdfd
)
fix RBN direct connections to skimservers
author
Dirk Koopman
<djk@tobit.co.uk>
Mon, 29 Apr 2024 11:13:51 +0000
(12:13 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Mon, 29 Apr 2024 11:13:51 +0000
(12:13 +0100)
perl/RBN.pm
patch
|
blob
|
history
diff --git
a/perl/RBN.pm
b/perl/RBN.pm
index 4c28575365fee363b478e5cce3fcbd4c1e338ee4..6924626f3d5b7486abab018c55ef4dcbc5a056fa 100644
(file)
--- a/
perl/RBN.pm
+++ b/
perl/RBN.pm
@@
-246,6
+246,15
@@
sub normal
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/, $line;
my (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/, $line;
+ # fix up "direct" (from a "skimmer server") connections
+ # basically the $mode is missing so everything is shifted down one
+ # so "cheat" and modify the line and do it again
+ if ($mode =~ /^\d+$/) {
+ $line =~ s/ $mode\s+dB/CW $mode dB/i;
+ (undef, undef, $origin, $qrg, $call, $mode, $s, $m, $spd, $u, $sort, $t, $tx) = split /[:\s]+/, $line;
+ dbg "RBN: inserted CW for missing mode" if $dbgrbn;
+ }
+
# fix up FT8 spots from 7001
$t = $u, $u = '' if !$t && is_ztime($u);
$t = $sort, $sort = '' if !$t && is_ztime($sort);
# fix up FT8 spots from 7001
$t = $u, $u = '' if !$t && is_ztime($u);
$t = $sort, $sort = '' if !$t && is_ztime($sort);