-# $Id: Record.pm,v 1.21 2006-11-30 12:01:23 mike Exp $
+# $Id: Record.pm,v 1.25 2007-05-04 12:09:24 mike Exp $
package ZOOM::IRSpy::Record;
+### I don't think there's any reason for this to be separate from
+# ZOOM::IRSpy::Connection, now that the correspondence is always 1:1
use 5.008;
use strict;
use XML::LibXML;
use XML::LibXML::XPathContext;
-use ZOOM::IRSpy::Utils qw(xml_encode isodate);
+use ZOOM::IRSpy::Utils qw(xml_encode isodate irspy_xpath_context);
=head1 NAME
$zeerex = _empty_zeerex_record($target);
}
+ ### Parser should be in the IRSpy object
my $parser = new XML::LibXML();
return bless {
irspy => $irspy,
sub _empty_zeerex_record {
my($target) = @_;
- ### Doesn't recognise SRU/SRW URLs
- my($host, $port, $db) = ZOOM::IRSpy::_parse_target_string($target);
+ my($protocol, $host, $port, $db) =
+ ZOOM::IRSpy::_parse_target_string($target);
+ my $xprotocol = xml_encode($protocol);
my $xhost = xml_encode($host);
my $xport = xml_encode($port);
my $xdb = xml_encode($db);
return <<__EOT__;
<explain xmlns="http://explain.z3950.org/dtd/2.0/">
- <serverInfo protocol="Z39.50" version="1995">
+ <serverInfo protocol="$xprotocol">
<host>$xhost</host>
<port>$xport</port>
<database>$xdb</database>
my($xpath, $frag) = @_;
#print STDERR "this=$this, xpath='$xpath', frag='$frag'\n";
- my $root = $this->{zeerex}; # XML::LibXML::Element ISA XML::LibXML::Node
- my $xc = XML::LibXML::XPathContext->new($root);
+ my $xc = $this->xpath_context();
$xc->registerNs(zeerex => "http://explain.z3950.org/dtd/2.0/");
$xc->registerNs(irspy => $ZOOM::IRSpy::Utils::IRSPY_NS);
# fully general version would work its way through each
# component of the XPath, but for now we just treat it as a
# single chunk to go inside the top-level node.
- $this->_half_decent_appendWellBalancedChunk($root,
- "<$xpath></$xpath>");
+ $this->_half_decent_appendWellBalancedChunk($xc, "<$xpath></$xpath>");
@nodes = $xc->findnodes($xpath);
die("still no matches for '$xpath' after creating: can't append")
if @nodes == 0;
$this->_half_decent_appendWellBalancedChunk($nodes[0], $frag);
}
+sub xpath_context {
+ my $this = shift();
+
+ return irspy_xpath_context($this->{zeerex});
+}
+
sub store_result {
my ($this, $type, %info) = @_;
my $xml = "<irspy:$type";