projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
adjust startup descriptions a bit
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 2adce5429b0cc4b02c86c950a79eb4310a087c77..c492d918ab98a5a6941d3fb5a3c6451327a73223 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-74,7
+74,7
@@
our $spotcachedays = 2; # default 2 days worth
our $minselfspotqrg = 1240000; # minimum freq above which self spotting is allowed
our $readback = $main::is_win ? 0 : 1; # don't read spot files backwards if it's windows
our $minselfspotqrg = 1240000; # minimum freq above which self spotting is allowed
our $readback = $main::is_win ? 0 : 1; # don't read spot files backwards if it's windows
-our $qrggranularity = 1000
00;
# normalise the qrg to this number of hz (default: 100khz), so tough luck if you have a fumble fingers moment
+our $qrggranularity = 1000
;
# normalise the qrg to this number of hz (default: 100khz), so tough luck if you have a fumble fingers moment
our $timegranularity = 600; # ditto to the nearest 100 seconds
our $oldstyle = 0; # revert to traditional dupe key format
our $timegranularity = 600; # ditto to the nearest 100 seconds
our $oldstyle = 0; # revert to traditional dupe key format
@@
-193,7
+193,6
@@
sub init
if ($spotcachedays > 0) {
my $t0 = [gettimeofday];
$spotcachedays = 2 if $spotcachedays < 2;
if ($spotcachedays > 0) {
my $t0 = [gettimeofday];
$spotcachedays = 2 if $spotcachedays < 2;
- dbg "Spot::init - reading in $spotcachedays days of spots into cache";
for (my $i = 0; $i < $spotcachedays; ++$i) {
my $now = $today->sub($i);
my $fh = $fp->open($now);
for (my $i = 0; $i < $spotcachedays; ++$i) {
my $now = $today->sub($i);
my $fh = $fp->open($now);