X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=19008a95ce5cdc2bda0fbb23e2271fd0139c3424;hp=b64da23fab9a6894c4e777aca635cee4d3ad6e1f;hb=f0030d177f58f280c6cd1019f9e26b81f9f8cbda;hpb=783775444a750da2255d2f5e8e699c0773e0e6fe diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index b64da23..19008a9 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,39 +1,38 @@ -%# $Id: full.mc,v 1.3 2006-10-27 00:46:38 mike Exp $ <%args> $id %args> -<%once> -use ZOOM; -%once> <%perl> -my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1"); +my $db = ZOOM::IRSpy::connect_to_registry(); +my $conn = new ZOOM::Connection($db); $conn->option(elementSetName => "zeerex"); -my $qid = $id; -$qid =~ s/"/\\"/g; -my $query = qq[rec.id="$qid"]; +my $query = cql_target($id); my $rs = $conn->search(new ZOOM::Query::CQL($query)); my $n = $rs->size(); if ($n == 0) { $m->comp("/details/error.mc", title => "Error", message => "No such ID '$id'"); } else { - my $rec = $rs->record(0); - my $xc = irspy_xpath_context($rec); + my $xc = irspy_xpath_context($rs->record(0)); my @fields = ( + [ Name => "e:databaseInfo/e:title", + lang => "en", primary => "true" ], + [ Country => "i:status/i:country" ], + [ "Last Checked" => "i:status/i:probe[last()]" ], [ Protocol => "e:serverInfo/\@protocol" ], [ Host => "e:serverInfo/e:host" ], [ Port => "e:serverInfo/e:port" ], [ "Database Name" => "e:serverInfo/e:database" ], - [ "Username (if needed)" => - "e:serverInfo/e:authentication/e:user" ], - [ "Password (if needed)" => - "e:serverInfo/e:authentication/e:password" ], - [ Title => "e:databaseInfo/e:title", - lang => "en", primary => "true" ], + [ "Type of Library" => "i:status/i:libraryType" ], +# [ "Username (if needed)" => "e:serverInfo/e:authentication/e:user" ], +# [ "Password (if needed)" => "e:serverInfo/e:authentication/e:password" ], + [ "Server ID" => 'i:status/i:serverImplementationId/@value' ], + [ "Server Name" => 'i:status/i:serverImplementationName/@value' ], + [ "Server Version" => 'i:status/i:serverImplementationVersion/@value' ], [ Description => "e:databaseInfo/e:description", lang => "en", primary => "true" ], [ Author => "e:databaseInfo/e:author" ], [ Contact => "e:databaseInfo/e:contact" ], + [ "URL to Hosting Organisation" => "i:status/i:hostURL" ], [ Extent => "e:databaseInfo/e:extent" ], [ History => "e:databaseInfo/e:history" ], [ "Language of Records" => "e:databaseInfo/e:langUsage" ], @@ -42,42 +41,158 @@ if ($n == 0) { [ "Implementation ID" => "i:status/i:implementationId" ], [ "Implementation Name" => "i:status/i:implementationName" ], [ "Implementation Version" => "i:status/i:implementationVersion" ], - [ "Reliability" => sub { "### 97%" } ], - [ "Services" => sub { "### search, present, delSet, concurrentOperations, namedResultSets" } ], - [ "Bib-1 Use attributes" => sub { "### 4-5, 7-8, 12, 21, 31, 54, 58, 63, 1003-1005, 1009, 1011-1012, 1016, 1031" } ], - [ "Operators" => sub { "### and, or, not" } ], - [ "Record syntaxes" => sub { "### SUTRS, USmarc, Danmarc" } ], - [ "Explain" => sub { "### CategoryList, TargetInfo, DatabaseInfo, RecordSyntaxInfo, AttributeSetInfo, AttributeDetails" } ], + [ "Reliability/reliability" => \&calc_reliability_wrapper, $xc ], + [ "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 ], + [ "Named Result Sets" => \&calc_nrs, $xc ], + [ "Record syntaxes" => \&calc_recsyn, $xc ], + [ "Explain" => \&calc_explain, $xc ], ); + my $title = $xc->find("e:databaseInfo/e:title"); %perl> -
<% xml_encode($caption) %> | -<% xml_encode($data) %> | +<% xml_encode($caption) %><% + !defined $help ? "" : $m->comp("/help/link.mc", help =>"info/$help") + %> | +<% $linkstart . xml_encode($data) . $linkend %> |
---|
- ">Test this target
-
- ">Edit this target's information
-
- ">Raw XML record
+% my $target = irspy_identifier2target($id);
+% $target =~ s/^tcp://; # Apparently ZAP can't handle the leading "tcp:"
+ ">Search this target.