From c264ce63d81f0cc31a00599daa94dd477e91d6da Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 14 Dec 2006 17:35:13 +0000 Subject: [PATCH] New --- bin/irspy-stats.pl | 19 +++++++++++++++++++ web/htdocs/details/stats.mc | 24 ++++++++++++++++++++++++ 2 files changed, 43 insertions(+) create mode 100755 bin/irspy-stats.pl create mode 100644 web/htdocs/details/stats.mc diff --git a/bin/irspy-stats.pl b/bin/irspy-stats.pl new file mode 100755 index 0000000..24a2393 --- /dev/null +++ b/bin/irspy-stats.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl -w + +# $Id: irspy-stats.pl,v 1.1 2006-12-14 17:35:13 mike Exp $ +# +# perl -I ../lib irspy-stats.pl localhost:3313/IR-Explain---1 + +use strict; +use warnings; +use ZOOM::IRSpy; + +if (@ARGV > 2) { + print STDERR "Usage: $0 [CQL-query]\n"; + exit 1; +} + +my($dbname, $query) = @ARGV; +my $stats = new ZOOM::IRSpy::Stats($dbname, $query); +use Data::Dumper; +print Dumper($stats); diff --git a/web/htdocs/details/stats.mc b/web/htdocs/details/stats.mc new file mode 100644 index 0000000..354cb54 --- /dev/null +++ b/web/htdocs/details/stats.mc @@ -0,0 +1,24 @@ +%# $Id: stats.mc,v 1.1 2006-12-14 17:35:44 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. + +<%perl> +my $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1"); +use Data::Dumper; +print "
", xml_encode(Dumper($stats)), "
\n"; + -- 1.7.10.4