From e21c99371f2c3eee875aba29cd07019a82c19ed8 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 6 Dec 2006 13:00:40 +0000 Subject: [PATCH] Display init-response options. --- web/htdocs/details/full.mc | 24 +++++++++++++++++------- 1 file changed, 17 insertions(+), 7 deletions(-) diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index a316624..1e19a8b 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,4 +1,4 @@ -%# $Id: full.mc,v 1.18 2006-12-05 17:37:26 mike Exp $ +%# $Id: full.mc,v 1.19 2006-12-06 13:00:40 mike Exp $ <%args> $id @@ -43,12 +43,7 @@ if ($n == 0) { [ "Implementation Name" => "i:status/i:implementationName" ], [ "Implementation Version" => "i:status/i:implementationVersion" ], [ "Reliability" => \&calc_reliability, $xc ], - [ "Services" => sub { " -### IRSpy does not yet check for search, present, delSet, -concurrentOperations, namedResultSets, etc. and store the information -is a usable form. This information should probably be harvested from -the Init Response. -" } ], + [ "Services" => \&calc_init_options, $xc ], [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], [ "Operators" => \&calc_boolean, $xc ], @@ -91,6 +86,21 @@ sub calc_reliability { return "$nok/$nall = " . int(100*$nok/$nall) . "%"; } +sub calc_init_options { + my($xc) = @_; + + my @ops; + my @nodes = $xc->findnodes('e:configInfo/e:supports/@type'); + foreach my $node (@nodes) { + my $type = $node->value(); + if ($type =~ s/^z3950_//) { + push @ops, $type; + } + } + + return join(", ", @ops); +} + sub calc_ap { my($xc, $set) = @_; -- 1.7.10.4