From b30f40ed925e9b9eda2733b209f8415a23eb2e44 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 17 Jun 2020 12:59:03 +0100 Subject: [PATCH] Set $Spot::readback back to 1 This is to solve the problem of losing found spots when traversing multiple files. TO BE FIXED!! So we can read forward again. --- Changes | 2 ++ perl/RBN.pm | 2 +- perl/Spot.pm | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 4d546775..39cedc25 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +17Jun20======================================================================= +1. Change the Spot file reading mechanism back to the default of using 'tac'. 08Jun20======================================================================= 1. Fix show/mydx (lack of) filtering bug. 2. Add qra locator to prefix_data.pl. diff --git a/perl/RBN.pm b/perl/RBN.pm index a3567f80..e2f532d8 100644 --- a/perl/RBN.pm +++ b/perl/RBN.pm @@ -318,7 +318,7 @@ sub normal ++$count; } } - dbg "RBN:ADMIN,spot cache: $removed removed $count remain"; # if isdbg('rbn'); + dbg "RBN:ADMIN,$self->{call},spot cache remain: $count removed: $removed"; # if isdbg('rbn'); dbg "RBN:" . join(',', "STAT", $self->{noraw}, $self->{norbn}, $self->{nospot}) if $self->{showstats}; $self->{noraw} = $self->{norbn} = $self->{nospot} = 0; $self->{last} = int($tim / 60) * 60; diff --git a/perl/Spot.pm b/perl/Spot.pm index 8b703306..be175ff0 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -63,7 +63,7 @@ $filterdef = bless ([ $totalspots = $hfspots = $vhfspots = 0; $use_db_for_search = 0; -our $readback = 0; +our $readback = 1; if ($readback) { $readback = `which tac`; -- 2.43.0