Use z3950.indexdata.com instead of bagel.indexdata.com everywhere

[ZOOM-Perl-moved-to-github.git] / samples / net-z3950-zoom / zoomtst3.pl

diff --git a/samples/net-z3950-zoom/zoomtst3.pl b/samples/net-z3950-zoom/zoomtst3.pl
index 472b846..8f044f6 100644 (file)
--- a/samples/net-z3950-zoom/zoomtst3.pl
+++ b/samples/net-z3950-zoom/zoomtst3.pl
@@ -1,9 +1,9 @@
-# $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;
@@ -11,7 +11,7 @@ use Net::Z3950::ZOOM;
 
 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;
 }