From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 17 Jun 2020 11:59:03 +0000 (+0100)
Subject: Set $Spot::readback back to 1
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;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`;