use DXDupe;
use DXLog;
use DXLogPrint;
+use Time::HiRes qw(gettimeofday tv_interval);
use vars qw(%dup $duplth $dupage $filterdef);
sub init
{
+ my $t0 = [gettimeofday];
@anncache = DXLog::search(0, $maxcache, $main::systime, 'ann');
shift @anncache while @anncache > $maxcache;
my $l = @anncache;
- dbg("AnnTalk: loaded last $l announcements into cache");
+ dbg("AnnTalk: loaded last $l announcements into cache in " . _diffms($t0) . "mS");
}
sub add_anncache