3 # $Id: irspy.pl,v 1.6 2006-06-20 16:25:48 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
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 ZOOM::IRSpy($dbname);
31 $spy->targets($targetList) if defined $targetList;
33 my $res = $spy->check();
35 print "All tests were run\n";
37 print "Some tests were skipped\n";