-$Id: README,v 1.3 2006-09-20 13:19:52 mike Exp $
+$Id: README,v 1.4 2007-01-24 09:28:02 mike Exp $
Net-Z3950-IRSpy
===============
--
Note to self: everyone else please ignore this.
-$ cd /usr/local/src/cvs/irspy && YAZ_LOG=irspy,irspy_test,irspy_debug,pod perl -I lib bin/irspy.pl -t "bagel.indexdata.dk/gils foo.bar.baz:12345/fish z3950.loc.gov:7090/Voyager" localhost:3313/IR-Explain---1
+$ cd /usr/local/src/cvs/irspy && YAZ_LOG=irspy,irspy_test,irspy_debug,pod perl -I lib bin/irspy.pl -t "bagel.indexdata.dk/gils foo.bar.baz:12345/fish z3950.loc.gov:7090/Voyager" localhost:8018/IR-Explain---1
-# $Id: .gdbinit,v 1.2 2006-11-29 11:05:40 mike Exp $
+# $Id: .gdbinit,v 1.3 2007-01-24 09:28:02 mike Exp $
set env YAZ_LOG=irspy,irspy_test,irspy_task
-set args -I ../lib irspy.pl -t Quick localhost:3313/IR-Explain---1 bagel.indexdata.dk/gils
+set args -I ../lib irspy.pl -t Quick localhost:8018/IR-Explain---1 bagel.indexdata.dk/gils
#!/usr/bin/perl -w
-# $Id: irspy-stats.pl,v 1.3 2006-12-18 15:31:39 mike Exp $
+# $Id: irspy-stats.pl,v 1.4 2007-01-24 09:28:02 mike Exp $
#
-# perl -I ../lib irspy-stats.pl localhost:3313/IR-Explain---1 "net.host=*indexdata*"
+# perl -I ../lib irspy-stats.pl localhost:8018/IR-Explain---1 "net.host=*indexdata*"
use strict;
use warnings;
#!/usr/bin/perl -w
-# $Id: irspy.pl,v 1.17 2006-11-28 12:01:54 mike Exp $
+# $Id: irspy.pl,v 1.18 2007-01-24 09:28:02 mike Exp $
#
# Run like this:
-# YAZ_LOG=irspy,irspy_test perl -I ../lib irspy.pl -t Quick localhost:3313/IR-Explain---1 bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager bagel.indexdata.dk:210/marc
+# YAZ_LOG=irspy,irspy_test perl -I ../lib irspy.pl -t Quick localhost:8018/IR-Explain---1 bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager bagel.indexdata.dk:210/marc
# Available log-levels are as follows:
# irspy -- high-level application logging
# irspy_debug -- low-level debugging (not very interesting)
#!/usr/bin/perl -w
-# $Id: test-xml-update.pl,v 1.7 2006-11-29 17:22:32 mike Exp $
+# $Id: test-xml-update.pl,v 1.8 2007-01-24 09:28:02 mike Exp $
#
# Run like this:
# perl -I ../lib ./test-xml-update.pl bagel.indexdata.dk:210/gils title "Test Database" author "Adam" description "This is a nice database"
}
my($id, %data) = @ARGV;
-my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
+my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
user => "admin", password => "fruitbat");
$conn->option(elementSetName => "zeerex");
my $qid = $id;
#!/usr/bin/perl -w
-# $Id: xslt_process.pl,v 1.1 2006-12-12 10:45:04 sondberg Exp $
+# $Id: xslt_process.pl,v 1.2 2007-01-24 09:28:02 mike Exp $
use strict;
use warnings;
XML::LibXSLT->debug_callback(\&xslt_debug);
-my $dbname = 'localhost:3313/IR-Explain---1';
+my $dbname = 'localhost:8018/IR-Explain---1';
my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
my $source_file = shift || die("$0: Please specify xml instance file");
my $source_doc = $spy->libxml->parse_file($source_file);
-# $Id: Stats.pm,v 1.5 2006-12-18 15:34:27 mike Exp $
+# $Id: Stats.pm,v 1.6 2007-01-24 09:28:02 mike Exp $
package ZOOM::IRSpy::Stats;
An indication of the IRSpy database that statistics are required for.
This may be in the form of a C<ZOOM::Connection> object or a
-database-name string such as C<localhost:3313/IR-Explain---1>.
+database-name string such as C<localhost:8018/IR-Explain---1>.
=item $query (optional)
-# $Id: WebService.pod,v 1.4 2006-11-02 15:01:10 mike Exp $
+# $Id: WebService.pod,v 1.5 2007-01-24 09:28:02 mike Exp $
package ZOOM::IRSpy::WebService;
system (although it will not be accessible to most clients due to
firewall issues. It is broken across lines for clarity:
- http://irspy.indexdata.com:3313/IR-Explain---1?
+ http://irspy.indexdata.com:8018/IR-Explain---1?
version=1.1&
operation=searchRetrieve&
query=net.port=3950&
=cut
-# http://irspy.indexdata.com:3313/IR-Explain---1?version=1.1&operation=searchRetrieve&query=net.port=3950&maximumRecords=10&recordSchema=zeerex
+# http://irspy.indexdata.com:8018/IR-Explain---1?version=1.1&operation=searchRetrieve&query=net.port=3950&maximumRecords=10&recordSchema=zeerex
=pod
=over 4
-=item http://irspy.indexdata.com:3313
+=item http://irspy.indexdata.com:8018
The base-URL of the SRU server.
Here is an example SRU Scan URL:
- http://irspy.indexdata.com:3313/IR-Explain---1?
+ http://irspy.indexdata.com:8018/IR-Explain---1?
version=1.1&
operation=scan&
scanClause=dc.title=fish
-%# $Id: check.mc,v 1.14 2006-11-30 10:53:27 mike Exp $
+%# $Id: check.mc,v 1.15 2007-01-24 09:28:02 mike Exp $
<%args>
@id
$test => "Quick"
# on in the HTTP configuration, so we don't even try -- instead,
# having ZOOM::IRSpy::Web::log() explicitly calling $m->flush_buffer()
-my $spy = new ZOOM::IRSpy::Web("localhost:3313/IR-Explain---1",
+my $spy = new ZOOM::IRSpy::Web("localhost:8018/IR-Explain---1",
admin => "fruitbat");
$spy->log_init_level("irspy,irspy_test");
$spy->targets(@id) if !$allTargets;
-%# $Id: delete.mc,v 1.3 2007-01-03 10:41:07 mike Exp $
+%# $Id: delete.mc,v 1.4 2007-01-24 09:28:02 mike Exp $
<%args>
$id
$really => 0
</p>
% } else {
<%perl>
- my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
+ my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
user => "admin", password => "fruitbat",
elementSetName => "zeerex");
# I am thinking that ZOOM should provide delete(), update(), etc.
-%# $Id: edit.mc,v 1.25 2006-12-06 10:47:27 mike Exp $
+%# $Id: edit.mc,v 1.26 2007-01-24 09:28:02 mike Exp $
<%args>
$op
$id => undef
die "op = new but id defined" if $op eq "new" && defined $id;
die "op != new but id undefined" if $op ne "new" && !defined $id;
-my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1", 0,
+my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
user => "admin", password => "fruitbat",
elementSetName => "zeerex");
my $rec = '<explain xmlns="http://explain.z3950.org/dtd/2.0/"/>';
-%# $Id: found.mc,v 1.24 2006-12-15 18:07:40 mike Exp $
+%# $Id: found.mc,v 1.25 2007-01-24 09:28:02 mike Exp $
<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
my $tried_to_open = 0;
if (!defined $conn) {
OPEN:
- $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1");
+ $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1");
$conn->option(elementSetName => "zeerex");
}
-%# $Id: full.mc,v 1.20 2006-12-18 15:37:06 mike Exp $
+%# $Id: full.mc,v 1.21 2007-01-24 09:28:02 mike Exp $
<%args>
$id
</%args>
<%perl>
-my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1");
+my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1");
$conn->option(elementSetName => "zeerex");
my $qid = $id;
$qid =~ s/"/\\"/g;
-%# $Id: stats.mc,v 1.5 2006-12-18 15:38:09 mike Exp $
+%# $Id: stats.mc,v 1.6 2007-01-24 09:28:02 mike Exp $
<%doc>
Here are the headings in the Z-Spy version:
The ten most commonly supported Bib-1 Use attributes
my $stats = $m->cache->get($key);
if (!defined $stats || $reload) {
$from_cache = 0;
- $stats = new ZOOM::IRSpy::Stats("localhost:3313/IR-Explain---1", $query);
+ $stats = new ZOOM::IRSpy::Stats("localhost:8018/IR-Explain---1", $query);
$m->cache->set($key, $stats, "10 minutes");
}
</%perl>
-%# $Id: raw.html,v 1.6 2006-11-29 12:31:25 mike Exp $
+%# $Id: raw.html,v 1.7 2007-01-24 09:28:02 mike Exp $
<%args>
$id
</%args>
use ZOOM;
</%once>
<%perl>
-my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1");
+my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1");
$conn->option(elementSetName => "zeerex");
my $qid = $id;
$qid =~ s/"/\\"/g;
-$Id: README,v 1.16 2006-12-13 12:02:52 mike Exp $
+$Id: README,v 1.17 2007-01-24 09:28:03 mike Exp $
What's what in this directory:
dictionaries and suchlike.
form.html -- A simple HTML search form that submits SRU queries to a
- server running on local port 3313.
+ server running on local port 8018.
init-script -- A startup/shutdown script for controlling the zebra
server according to "System V init" rules. Instructions can
sed -n '/^zebraidx/,+3p' README | while read line; do eval $line; done
Then interrogate the database with SRU URLs such as:
- http://localhost:3313/IR-Explain---1?version=1.1&operation=searchRetrieve&maximumRecords=10&recordSchema=zeerex&query=net.protocol=sru
+ http://localhost:8018/IR-Explain---1?version=1.1&operation=searchRetrieve&maximumRecords=10&recordSchema=zeerex&query=net.protocol=sru
-# $Id: crontab,v 1.1 2006-12-08 15:58:17 mike Exp $
+# $Id: crontab,v 1.2 2007-01-24 09:28:03 mike Exp $
# m h dom mon dow command
-0 3 * * * cd /usr/local/src/cvs/irspy/bin && YAZ_LOG=irspy,irspy_test perl -I ../lib irspy.pl -t Full localhost:3313/IR-Explain---1 indexdata.com:210/marc indexdata.com:210/gils
+0 3 * * * cd /usr/local/src/cvs/irspy/bin && YAZ_LOG=irspy,irspy_test perl -I ../lib irspy.pl -t Full localhost:8018/IR-Explain---1 indexdata.com:210/marc indexdata.com:210/gils
<?xml version="1.0" encoding="ISO-8859-1"?>
-<!-- $Id: form.html,v 1.2 2006-09-20 13:19:54 mike Exp $ -->
+<!-- $Id: form.html,v 1.3 2007-01-24 09:28:03 mike Exp $ -->
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
</head>
<body>
<h1>SRU form for the IRSpy database</h1>
- <form method="get" action="http://localhost:3313/IR-Explain---1">
+ <form method="get" action="http://localhost:8018/IR-Explain---1">
<table>
<tr>
<td align="right">
<?xml version="1.0" encoding="UTF-8"?>
-<!-- $Id: yazserver.xml,v 1.3 2006-09-20 13:19:54 mike Exp $ -->
+<!-- $Id: yazserver.xml,v 1.4 2007-01-24 09:28:03 mike Exp $ -->
<yazgfs>
- <listen id="tcp3313">tcp:@:3313</listen>
- <server id="alvis" listenref="tcp3313">
+ <listen id="tcp8018">tcp:@:8018</listen>
+ <server id="alvis" listenref="tcp8018">
<directory>./</directory>
<config>zebra.cfg</config>
<cql2rpn>pqf.properties</cql2rpn>
<explain xmlns="http://explain.z3950.org/dtd/2.0/">
<serverInfo>
<host>localhost</host>
- <port>3313</port>
+ <port>8018</port>
<database>IR-Explain---1</database>
</serverInfo>
</explain>
<?xml version="1.0" encoding="UTF-8"?>
-<!-- $Id: zeerex.xml,v 1.14 2006-10-27 00:44:36 mike Exp $ -->
+<!-- $Id: zeerex.xml,v 1.15 2007-01-24 09:28:03 mike Exp $ -->
<explain xmlns="http://explain.z3950.org/dtd/2.0/">
<serverInfo protocol="SRW/SRU/Z39.50" version="1.1" method="GET/POST">
<host>localhost</host>
- <port>3313</port>
+ <port>8018</port>
<database>IR-Explain---1</database>
</serverInfo>