%# $Id: stats.mc,v 1.5 2006-12-18 15:38:09 mike Exp $ <%doc> Here are the headings in the Z-Spy version: The ten most commonly supported Bib-1 Use attributes Record syntax support by database Explain support Z39.50 Protocol Services Support Z39.50 Server Atlas Top Domains Implementation You can see his version live at http://targettest.indexdata.com/stat.php Or a static local copy at ../../../archive/stats.html There may be way to generate some of this information by cleverly couched searchges, but it would still be necessary to trawl the 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. <%args> $query => undef $reload => 0 <%perl> my $key = defined $query ? $query : ""; my $from_cache = 1; my $stats = $m->cache->get($key); if (!defined $stats || $reload) { $from_cache = 0; $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1", $query); $m->cache->set($key, $stats, "10 minutes"); }

Statistics for <% xml_encode($stats->{host}) %>

<% $stats->{n} %> targets analysed <% defined $query ? "for '" . xml_encode($query) . "'" : "" %>

% if ($from_cache) {

Reusing cached result

% } else {

Recalculating stats

% } <& table, stats => $stats, data => "bib1AccessPoints", title => "The ten most commonly supported Bib-1 Use attributes", headings => [ "Attribute", "Name"], col3 => sub { bib1_access_point(@_) } &> <& table, stats => $stats, data => "recordSyntaxes", title => "Record syntax support by database", headings => [ "Record Syntax"] &> <& table, stats => $stats, data => "explain", title => "Explain Support", headings => [ "Explain Category"] &> <& table, stats => $stats, data => "z3950_init_opt", title => "Z39.50 Protocol Services Support", headings => [ "Service"] &> <& table, stats => $stats, data => "domains", title => "Top Domains", headings => [ "Top Domain"] &> %# %# <%def table> <%args> $stats $data $title @headings $col3 => undef

<% $title %>

% foreach my $heading ("#", @headings, "# Targets") { % } <%perl> my $hr; $hr = $stats->{$data}; my @sorted = sort { $hr->{$b} <=> $hr->{$a} || $a <=> $b } keys %$hr; my $n = @sorted; $n = 10 if @sorted > 10; foreach my $i (1..$n) { my $key = $sorted[$i-1]; % if (defined $col3) { % } % }
<% xml_encode($heading) %>
<% $i %> <% xml_encode($key, "HUH?") %><% xml_encode(&$col3($key), "HUH2?") %><% xml_encode($hr->{$key}, "HUH3?") . " (" . int(10000*$hr->{$key}/$stats->{n})/100 . "%)" %>