-# $Id: IRSpy.pm,v 1.33 2006-10-17 16:22:17 mike Exp $
+# $Id: IRSpy.pm,v 1.36 2006-10-25 15:42:47 mike Exp $
package ZOOM::IRSpy;
use strict;
use warnings;
-use Data::Dumper; # For debugging only
+use Exporter 'import';
+our @EXPORT_OK = qw(xml_encode irspy_xpath_context);
+
+use Data::Dumper; # For debugging only
+use XML::LibXML::XPathContext;
use ZOOM;
use Net::Z3950::ZOOM 1.13; # For the ZOOM version-check only
use ZOOM::IRSpy::Node;
my $task = $conn->next_task();
die "no next task queued for $conn" if !defined $task;
- $conn->log("irspy_task", "starting task $task");
+ $conn->log("irspy_task", "preparing task $task");
$conn->next_task(0);
$conn->current_task($task);
$task->run();
$nskipped += $n;
}
}
+ } else {
+ die "unknown callback return-value '$res'";
}
}
my $maybe = $this->_next_sibling_test($address);
last if !defined $maybe;
$nskipped++;
- $this->log("irspy", "skipping $nskipped = '$address'");
+ $this->log("irspy", "skipping $nskipped tests to '$address'");
$address = $maybe;
}
}
+# Utility functions follow, exported for use of web UI
+
+# I can't -- just can't, can't, can't -- believe that this function
+# isn't provided by one of the core XML modules. But the evidence all
+# says that it's not: among other things, XML::Generator and
+# Template::Plugin both roll their own. So I will do likewise. D'oh!
+#
+sub xml_encode {
+ my ($text) = @_;
+ $text =~ s/&/&/g;
+ $text =~ s/</</g;
+ $text =~ s/>/>/g;
+ $text =~ s/['']/'/g;
+ $text =~ s/[""]/"/g;
+ return $text;
+}
+
+
+sub irspy_xpath_context {
+ my($zoom_record) = @_;
+
+ my $xml = $zoom_record->render();
+ my $parser = new XML::LibXML();
+ my $doc = $parser->parse_string($xml);
+ my $root = $doc->getDocumentElement();
+ my $xc = XML::LibXML::XPathContext->new($root);
+ $xc->registerNs(e => 'http://explain.z3950.org/dtd/2.0/');
+ return $xc;
+}
+
+
=head1 SEE ALSO
ZOOM::IRSpy::Record,