-# $Id: zoomtst3.pl,v 1.5 2006-04-07 12:15:03 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 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;
}
# Preferred record syntax
Net::Z3950::ZOOM::options_set($o, preferredRecordSyntax => "usmarc");
-Net::Z3950::ZOOM::options_set($o, elementSetName => "F");
+Net::Z3950::ZOOM::options_set($o, elementSetName => "B");
# Connect to all targets: options are the same for all of them
for (my $i = 0; $i < $n; $i++) {