From fc7deb12a6edf1333b40f9176cd929489a7b39df Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Wed, 20 May 2015 10:57:52 +0000 Subject: [PATCH] change "z3950.loc.gov:7090" in documentation and examples, ZOOM-23 --- lib/ZOOM.pod | 2 +- samples/net-z3950-zoom/async.pl | 2 +- samples/net-z3950-zoom/zoomtst3.pl | 2 +- samples/zoom/async.pl | 2 +- samples/zoom/trivial-async.pl | 2 +- samples/zoom/zoomtst3.pl | 2 +- t/18-charset.t | 3 ++- t/28-charset.t | 2 +- 8 files changed, 9 insertions(+), 8 deletions(-) diff --git a/lib/ZOOM.pod b/lib/ZOOM.pod index 20fb9a1..8ec5349 100644 --- a/lib/ZOOM.pod +++ b/lib/ZOOM.pod @@ -1522,7 +1522,7 @@ of you add them the list), displaying the first record in the result-set of each server as soon as it becomes available. use ZOOM; - @servers = ('z3950.loc.gov:7090/Voyager', + @servers = ('lx2.loc.gov:210/LCDB', 'z3950.indexdata.com:210/gils', 'agricola.nal.usda.gov:7190/Voyager'); for ($i = 0; $i < @servers; $i++) { diff --git a/samples/net-z3950-zoom/async.pl b/samples/net-z3950-zoom/async.pl index 08e0800..9fd31ee 100644 --- a/samples/net-z3950-zoom/async.pl +++ b/samples/net-z3950-zoom/async.pl @@ -1,7 +1,7 @@ # See ../README for a description of this program. # perl -I../../blib/lib -I../../blib/arch zoomtst3.pl [...] # for example: -# 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 +# perl -I../../blib/lib -I../../blib/arch async.pl lx2.loc.gov:210/LCDB z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral use strict; use warnings; diff --git a/samples/net-z3950-zoom/zoomtst3.pl b/samples/net-z3950-zoom/zoomtst3.pl index 140e5f0..5bd418b 100644 --- a/samples/net-z3950-zoom/zoomtst3.pl +++ b/samples/net-z3950-zoom/zoomtst3.pl @@ -1,7 +1,7 @@ # See ../README for a description of this program. # perl -I../../blib/lib -I../../blib/arch zoomtst3.pl [...] # for example: -# 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 +# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl lx2.loc.gov:210/LCDB z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral use strict; use warnings; diff --git a/samples/zoom/async.pl b/samples/zoom/async.pl index 6304835..a52e5de 100644 --- a/samples/zoom/async.pl +++ b/samples/zoom/async.pl @@ -1,7 +1,7 @@ # See ../README for a description of this program. # perl -I../../blib/lib -I../../blib/arch async.pl [...] # for example: -# 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 +# perl -I../../blib/lib -I../../blib/arch async.pl lx2.loc.gov:210/LCDB z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral use strict; use warnings; diff --git a/samples/zoom/trivial-async.pl b/samples/zoom/trivial-async.pl index 1f588be..d36d827 100644 --- a/samples/zoom/trivial-async.pl +++ b/samples/zoom/trivial-async.pl @@ -1,5 +1,5 @@ use ZOOM; -@servers = ('z3950.loc.gov:7090/Voyager', +@servers = ('lx2.loc.gov:210/LCDB', 'z3950.indexdata.com:210/gils', 'agricola.nal.usda.gov:7190/Voyager'); for ($i = 0; $i < @servers; $i++) { diff --git a/samples/zoom/zoomtst3.pl b/samples/zoom/zoomtst3.pl index 91c00be..0606ef2 100644 --- a/samples/zoom/zoomtst3.pl +++ b/samples/zoom/zoomtst3.pl @@ -1,7 +1,7 @@ # See ../README for a description of this program. # perl -I../../blib/lib -I../../blib/arch zoomtst3.pl [...] # for example: -# 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 +# perl -I../../blib/lib -I../../blib/arch zoomtst3.pl lx2.loc.gov:210/LCDB z3950.indexdata.com:210/gils endeavor.flo.org:7090/Voyager mineral use strict; use warnings; diff --git a/t/18-charset.t b/t/18-charset.t index 72e0ead..e29a17d 100644 --- a/t/18-charset.t +++ b/t/18-charset.t @@ -9,7 +9,8 @@ BEGIN { use_ok('Net::Z3950::ZOOM') }; my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); -my $host = "z3950.loc.gov:7090/voyager"; +#my $host = "lx2.loc.gov:210/LCDB"; # UTF-8 +my $host = "lx2.loc.gov:210/LCDB_MARC8"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'"); diff --git a/t/28-charset.t b/t/28-charset.t index 16773f0..11c6cbf 100644 --- a/t/28-charset.t +++ b/t/28-charset.t @@ -7,7 +7,7 @@ use Test::More tests => 9; BEGIN { use_ok('ZOOM') }; -my $host = "z3950.loc.gov:7090/voyager"; +my $host = "lx2.loc.gov:210/LCDB"; my $conn; eval { $conn = new ZOOM::Connection($host) }; ok(!$@, "connection to '$host'"); -- 1.7.10.4