From 5eb0e394b2836594e5e1f015adfc57f2c99590ee Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 15 Dec 2006 14:37:03 +0000 Subject: [PATCH] Use HTML::Mason caching to avoid repeated computation. Quite neat, actually :-) --- web/htdocs/details/stats.mc | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/web/htdocs/details/stats.mc b/web/htdocs/details/stats.mc index 2522ede..fad2c11 100644 --- a/web/htdocs/details/stats.mc +++ b/web/htdocs/details/stats.mc @@ -1,4 +1,4 @@ -%# $Id: stats.mc,v 1.2 2006-12-15 10:37:29 mike Exp $ +%# $Id: stats.mc,v 1.3 2006-12-15 14:37:03 mike Exp $ <%doc> Here are the headings in the Z-Spy version: The ten most commonly supported Bib-1 Use attributes @@ -18,7 +18,15 @@ records in order to find all the results, so we just take the path of least resistance and look at all the records by hand. <%perl> -my $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1"); +my $stats = $m->cache->get("stats"); +if (defined $stats) { + print "

Reusing cached result

\n"; + print "stats=$stats\n"; +} else { + print "

Recalculating stats

\n"; + $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1"); + $m->cache->set("stats", $stats, "1 minute"); +} print "
";
 $stats->print();
 print "
\n"; -- 1.7.10.4