fix beacons on RBN

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 8bd4249511415243c9046497f40b18445d11a6f6..30667d61b48abb160595cfbc54f862af1e9490c1 100644 (file)
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -189,6 +189,9 @@ sub normal
                        $mode = $sort;
                        $t = $tx;
                }
+               if ($sort && $sort eq 'BEACON') {
+                       $mode = 'BECON';
+               }
                
                # We have an RBN data line, dedupe it very simply on time, ignore QRG completely.
                # This works because the skimmers are NTP controlled (or should be) and will receive