3 # $Id: irspy.pl,v 1.4 2006-06-07 17:04:52 mike Exp $
6 # YAZ_LOG=irspy perl -I lib irspy.pl -t "bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager" localhost:1313/IR-Explain---1
11 use Net::Z3950::IRSpy;
14 if (!getopts('t:au', \%opts) || @ARGV != 1) {
15 print STDERR qq[Usage: $0 [options] <IRSpy-database>
16 -t <t1 t2 ...> Space-separated list of targets to check
17 -a Check all targets registered in database
18 -u Update information in database
23 my $dbname = $ARGV[0];
24 my $targetList = $opts{t};
25 if (!defined $targetList && !$opts{a}) {
26 print STDERR "$0: neither -t nor -a specified\n";
30 my $spy = new Net::Z3950::IRSpy($dbname);
31 $spy->targets($targetList) if defined $targetList;