-$Id: Changes,v 1.46 2006-11-02 17:05:01 mike Exp $
+$Id: Changes,v 1.47 2006-11-02 17:48:25 mike Exp $
Revision history for Perl extension Net::Z3950::ZOOM.
- ZOOM::ResultSet::record() throws a diagnostic if asked to
retrieve records out of range for the result-set.
- All tests against indexdata.com are now explicitly against
- bagel.indexdata.com, as the identity of the former name has
+ z3950.indexdata.com, as the identity of the former name has
recently changed.
1.12 (NEVER PUBLICLY RELEASED; these changes are included in 1.13)
-# $Id: ZOOM.pod,v 1.37 2006-06-15 15:42:30 mike Exp $
+# $Id: ZOOM.pod,v 1.38 2006-11-02 17:48:25 mike Exp $
use strict;
use warnings;
use ZOOM;
@servers = ('z3950.loc.gov:7090/Voyager',
- 'bagel.indexdata.com:210/gils',
+ 'z3950.indexdata.com:210/gils',
'agricola.nal.usda.gov:7190/Voyager');
for ($i = 0; $i < @servers; $i++) {
$z[$i] = new ZOOM::Connection($servers[$i], 0,
-# $Id: async.pl,v 1.2 2006-04-07 12:36:34 mike Exp $
+# $Id: async.pl,v 1.3 2006-11-02 17:48:25 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
# for example:
-# perl -I../../blib/lib -I../../blib/arch async.pl z3950.loc.gov:7090/Voyager bagel.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
+# perl -I../../blib/lib -I../../blib/arch async.pl z3950.loc.gov:7090/Voyager z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
use strict;
use warnings;
if (@ARGV < 2) {
print STDERR "Usage: $0 target1 target2 ... targetN query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils localhost:9999 fish\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils localhost:9999 fish\n";
exit 1;
}
-# $Id: zoomtst1.pl,v 1.2 2005-10-12 14:35:58 mike Exp $
+# $Id: zoomtst1.pl,v 1.3 2006-11-02 17:48:25 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst1.pl <target> <query>
if (@ARGV != 2) {
print STDERR "Usage: $0 target query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils computer\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils computer\n";
exit 1;
}
-# $Id: zoomtst3.pl,v 1.7 2006-04-07 12:39:06 mike Exp $
+# $Id: zoomtst3.pl,v 1.8 2006-11-02 17:48:25 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
# for example:
-# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl z3950.loc.gov:7090/Voyager bagel.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
+# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl z3950.loc.gov:7090/Voyager z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
use strict;
use warnings;
if (@ARGV < 2) {
print STDERR "Usage: $0 target1 target2 ... targetN query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils localhost:9999 fish\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils localhost:9999 fish\n";
exit 1;
}
-# $Id: zoomtst1.pl,v 1.3 2005-12-14 11:17:30 mike Exp $
+# $Id: zoomtst1.pl,v 1.4 2006-11-02 17:48:25 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst1.pl <target> <query>
if (@ARGV != 2) {
print STDERR "Usage: $0 target query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils computer\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils computer\n";
exit 1;
}
-# $Id: async.pl,v 1.1 2006-04-07 12:58:37 mike Exp $
+# $Id: async.pl,v 1.2 2006-11-02 17:48:26 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch async.pl <t1> [...] <tN> <query>
# for example:
-# perl -I../../blib/lib -I../../blib/arch async.pl z3950.loc.gov:7090/Voyager bagel.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
+# perl -I../../blib/lib -I../../blib/arch async.pl z3950.loc.gov:7090/Voyager z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
use strict;
use warnings;
if (@ARGV < 2) {
print STDERR "Usage: $0 target1 target2 ... targetN query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils localhost:9999 fish\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils localhost:9999 fish\n";
exit 1;
}
use ZOOM;
@servers = ('z3950.loc.gov:7090/Voyager',
- 'bagel.indexdata.com:210/gils',
+ 'z3950.indexdata.com:210/gils',
'agricola.nal.usda.gov:7190/Voyager');
for ($i = 0; $i < @servers; $i++) {
$z[$i] = new ZOOM::Connection($servers[$i], 0,
-# $Id: zoomtst1.pl,v 1.3 2005-10-12 14:35:23 mike Exp $
+# $Id: zoomtst1.pl,v 1.4 2006-11-02 17:48:26 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst1.pl <target> <query>
if (@ARGV != 2) {
print STDERR "Usage: $0 target query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils computer\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils computer\n";
exit 1;
}
my($host, $query) = @ARGV;
-# $Id: zoomtst3.pl,v 1.5 2006-04-07 12:43:28 mike Exp $
+# $Id: zoomtst3.pl,v 1.6 2006-11-02 17:48:26 mike Exp $
#
# See ../README for a description of this program.
# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl <t1> [...] <tN> <query>
# for example:
-# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl z3950.loc.gov:7090/Voyager bagel.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
+# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl z3950.loc.gov:7090/Voyager z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral
use strict;
use warnings;
if (@ARGV < 2) {
print STDERR "Usage: $0 target1 target2 ... targetN query\n";
- print STDERR " eg. $0 bagel.indexdata.dk/gils localhost:9999 fish\n";
+ print STDERR " eg. $0 z3950.indexdata.dk/gils localhost:9999 fish\n";
exit 1;
}
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.14 2006-11-02 17:04:36 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.15 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t'
ok($errcode == Net::Z3950::ZOOM::ERROR_CONNECT && $addinfo eq $host,
"connection to non-existent host '$host' fails");
-$host = "bagel.indexdata.com/gils";
+$host = "z3950.indexdata.com/gils";
$conn = Net::Z3950::ZOOM::connection_new($host, 0);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
ok($errcode == 0, "connection to '$host'");
ok($data =~ /^245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS$/m,
"rendered record has expected title");
my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
-ok($raw =~ /^00981n/, "raw record contains expected header");
+ok($raw =~ /^00966n/, "raw record contains expected header");
Net::Z3950::ZOOM::resultset_destroy($rs);
ok(1, "destroyed result-set");
-# $Id: 12-query.t,v 1.8 2006-11-02 17:04:36 mike Exp $
+# $Id: 12-query.t,v 1.9 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 12-query.t'
# no other uses of query objects -- but we need to establish a
# connection for it to work on first.
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
-# $Id: 13-resultset.t,v 1.7 2006-11-02 17:04:36 mike Exp $
+# $Id: 13-resultset.t,v 1.8 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 13-resultset.t'
my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
ok($errcode == 0, "connection to '$host'");
-# $Id: 14-sorting.t,v 1.7 2006-11-02 17:04:36 mike Exp $
+# $Id: 14-sorting.t,v 1.8 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 14-sorting.t'
my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
ok($errcode == 0, "connection to '$host'");
-# $Id: 15-scan.t,v 1.12 2006-11-02 17:04:36 mike Exp $
+# $Id: 15-scan.t,v 1.13 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 15-scan.t'
my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
ok($errcode == 0, "connection to '$host'");
-# $Id: 19-events.t,v 1.6 2006-11-02 17:04:36 mike Exp $
+# $Id: 19-events.t,v 1.7 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 19-events.t'
my $options = Net::Z3950::ZOOM::options_create();
Net::Z3950::ZOOM::options_set($options, async => 1);
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn = Net::Z3950::ZOOM::connection_create($options);
Net::Z3950::ZOOM::connection_connect($conn, $host, 0);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
-# $Id: 2-ZOOM.t,v 1.11 2006-11-02 17:04:36 mike Exp $
+# $Id: 2-ZOOM.t,v 1.12 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 2-ZOOM.t'
$@->code() == ZOOM::Error::CONNECT && $@->addinfo() eq $host,
"connection to non-existent host '$host' fails");
-$host = "bagel.indexdata.com/gils";
+$host = "z3950.indexdata.com/gils";
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
ok($data =~ /^245 +\$a ISOTOPIC DATES OF ROCKS AND MINERALS$/m,
"rendered record has expected title");
my $raw = $rec->raw();
-ok($raw =~ /^00981n/, "raw record contains expected header");
+ok($raw =~ /^00966n/, "raw record contains expected header");
$rs->destroy();
ok(1, "destroyed result-set");
-# $Id: 22-query.t,v 1.10 2006-11-02 17:04:36 mike Exp $
+# $Id: 22-query.t,v 1.11 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 22-query.t'
# no other uses of query objects -- but we need to establish a
# connection for it to work on first.
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn;
eval { $conn = new ZOOM::Connection($host, 0,
preferredRecordSyntax => "usmarc") };
-# $Id: 23-resultset.t,v 1.4 2006-11-02 17:04:36 mike Exp $
+# $Id: 23-resultset.t,v 1.5 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 23-resultset.t'
use Test::More tests => 23;
BEGIN { use_ok('ZOOM') };
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn;
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
-# $Id: 24-sorting.t,v 1.6 2006-11-02 17:04:36 mike Exp $
+# $Id: 24-sorting.t,v 1.7 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 24-sorting.t'
BEGIN { use_ok('ZOOM') };
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn;
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
-# $Id: 25-scan.t,v 1.9 2006-11-02 17:04:36 mike Exp $
+# $Id: 25-scan.t,v 1.10 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 25-scan.t'
BEGIN { use_ok('ZOOM') };
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn;
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
-# $Id: 29-events.t,v 1.3 2006-11-02 17:04:36 mike Exp $
+# $Id: 29-events.t,v 1.4 2006-11-02 17:48:26 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 19-events.t'
my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
-my $host = "bagel.indexdata.com/gils";
+my $host = "z3950.indexdata.com/gils";
my $conn = create ZOOM::Connection(async => 1);
eval { $conn->connect($host) };
ok(!$@, "connection to '$host'");
projects / ZOOM-Perl-moved-to-github.git / commitdiff