X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fstats.mc;h=fa9b652ad511d8e86680401520d1d2e913339c28;hb=7e87ee15785ae0693ec585186dce9e0a405f69d7;hp=0f2640711ed93385c0839d7955012b2566613be3;hpb=5853b4e89131c7827ccd662e3a6485a5e1d90d7f;p=irspy-moved-to-github.git
diff --git a/web/htdocs/details/stats.mc b/web/htdocs/details/stats.mc
index 0f26407..fa9b652 100644
--- a/web/htdocs/details/stats.mc
+++ b/web/htdocs/details/stats.mc
@@ -1,4 +1,4 @@
-%# $Id: stats.mc,v 1.4 2006-12-15 18:18:46 mike Exp $
+%# $Id: stats.mc,v 1.6 2007-01-24 09:28:02 mike Exp $
<%doc>
Here are the headings in the Z-Spy version:
The ten most commonly supported Bib-1 Use attributes
@@ -19,19 +19,19 @@ least resistance and look at all the records by hand.
%doc>
<%args>
$query => undef
+$reload => 0
%args>
<%perl>
my $key = defined $query ? $query : "";
my $from_cache = 1;
my $stats = $m->cache->get($key);
-if (defined $stats) {
-} else {
+if (!defined $stats || $reload) {
$from_cache = 0;
- $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1", $query);
- $m->cache->set($key, $stats, "1 minute");
+ $stats = new ZOOM::IRSpy::Stats("localhost:8018/IR-Explain---1", $query);
+ $m->cache->set($key, $stats, "10 minutes");
}
%perl>
-
Statistics for <% $stats->{conn}->option("host") %>
+ Statistics for <% xml_encode($stats->{host}) %>
<% $stats->{n} %> targets analysed
<% defined $query ? "for '" . xml_encode($query) . "'" : "" %>
% if ($from_cache) {
@@ -39,51 +39,60 @@ if (defined $stats) {
% } else {
Recalculating stats
% }
-
- Top 10 Bib-1 Attributes
+<& 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
+%args>
+ <% $title %>
-
- Attribute |
- Name |
- # Db |
-
+
+
+% foreach my $heading ("#", @headings, "# Targets") {
+ <% xml_encode($heading) %> |
+% }
+
+
+
<%perl>
my $hr;
-$hr = $stats->{bib1AccessPoints};
-foreach my $key ((sort { $hr->{$b} <=> $hr->{$a}
- || $a <=> $b } keys %$hr)[0..9]) {
+$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];
%perl>
- <% xml_encode($key) %> |
- unknown |
- <% xml_encode($hr->{$key}) . " (" .
- 100*$hr->{$key}/$stats->{n} . "%)" %> |
+ <% $i %> |
+ <% xml_encode($key, "HUH?") %> |
+% if (defined $col3) {
+ <% xml_encode(&$col3($key), "HUH2?") %> |
+% }
+ <% xml_encode($hr->{$key}, "HUH3?") . " (" .
+ int(10000*$hr->{$key}/$stats->{n})/100 . "%)" %> |
% }
-
-
-<%doc>
- print "\nRECORD SYNTAXES\n";
- $hr = $stats->{recordSyntaxes};
- foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
- || $a cmp $b } keys %$hr) {
- print sprintf("%-26s%5d (%d%%)\n",
- $key, $hr->{$key}, 100*$hr->{$key}/$stats->{n});
- }
-
- print "\nEXPLAIN SUPPORT\n";
- $hr = $stats->{explain};
- foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
- || $a cmp $b } keys %$hr) {
- print sprintf("%-26s%5d (%d%%)\n",
- $key, $hr->{$key}, 100*$hr->{$key}/$stats->{n});
- }
-
- print "\nTOP-LEVEL DOMAINS\n";
- $hr = $stats->{domains};
- foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
- || $a cmp $b } keys %$hr) {
- print sprintf("%-26s%5d (%d%%)\n",
- $key, $hr->{$key}, 100*$hr->{$key}/$stats->{n});
- }
-%doc>
+
+
+%def>