From: Dirk Koopman Date: Wed, 17 Jun 2020 11:59:03 +0000 (+0100) Subject: Set $Spot::readback back to 1 X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=b30f40ed925e9b9eda2733b209f8415a23eb2e44;p=spider.git 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. --- 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`;