X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWCY.pm;h=ef536ddb2fa8681c986766f67537f84d1cc7fefb;hb=refs%2Fheads%2Fmojo;hp=1df87e802b907d56e237d3d61686e8052cf6761b;hpb=95e1de8b4a66a860cd4e26e7cd6937d8e93203fb;p=spider.git

diff --git a/perl/WCY.pm b/perl/WCY.pm
index 1df87e80..ef536ddb 100644
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -16,6 +16,7 @@ use Julian;
 use IO::File;
 use DXDebug;
 use Data::Dumper;
+use Time::HiRes qw(gettimeofday tv_interval);
 
 use strict;
 
@@ -64,9 +65,10 @@ sub init
 	$fp = DXLog::new('wcy', 'dat', 'm');
 	do "$param" if -e "$param";
 	# read in existing data
+	my $t0 = [gettimeofday];
 	@cache = readfile($main::systime);
 	shift @cache while @cache > $maxcache;
-	dbg(sprintf "WCY read in last %d records into cache", scalar @cache);	
+	dbg(sprintf "WCY read in last %d records into cache %dmS", scalar @cache, _diffms($t0));	
 	confess $@ if $@;
 }
 
@@ -171,7 +173,7 @@ sub search
 	my $count;
 	my $i;
 
-	if ($t == $main::systime && ($to <= $maxcache)) {
+	if ($t == $main::systime && ($to && $to <= @cache)) {
 		dbg("using wcy cache") if isdbg('wcy');
 		@out = reverse @cache;
 		pop @out while @out > $to;