change "z3950.loc.gov:7090" in documentation and examples, ZOOM-23

diff --git a/lib/ZOOM.pod b/lib/ZOOM.pod
index 20fb9a1..8ec5349 100644 (file)
--- 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 (file)
--- 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 <t1> [...] <tN> <query>
 # 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 (file)
--- 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 <t1> [...] <tN> <query>
 # 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 (file)
--- 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 <t1> [...] <tN> <query>
 # 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 (file)
--- 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 (file)
--- 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 <t1> [...] <tN> <query>
 # 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 (file)
--- 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 (file)
--- 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'");