projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b28036a
)
Display init-response options.
author
Mike Taylor
<mike@indexdata.com>
Wed, 6 Dec 2006 13:00:40 +0000
(13:00 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Wed, 6 Dec 2006 13:00:40 +0000
(13:00 +0000)
web/htdocs/details/full.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/full.mc
b/web/htdocs/details/full.mc
index
a316624
..
1e19a8b
100644
(file)
--- 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
</%args>
<%args>
$id
</%args>
@@
-43,12
+43,7
@@
if ($n == 0) {
[ "Implementation Name" => "i:status/i:implementationName" ],
[ "Implementation Version" => "i:status/i:implementationVersion" ],
[ "Reliability" => \&calc_reliability, $xc ],
[ "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 ],
[ "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) . "%";
}
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) = @_;
sub calc_ap {
my($xc, $set) = @_;