irspy.pl

   1 #!/usr/bin/perl -w
   2
   3 # $Id: irspy.pl,v 1.7 2006-06-21 15:58:08 mike Exp $
   4 #
   5 # Run like this:
   6 #       YAZ_LOG=irspy,irspy_test,irspy_debug perl -I lib irspy.pl -t "bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager" localhost:1313/IR-Explain---1
   7
   8 use strict;
   9 use warnings;
  10 use Getopt::Std;
  11 use ZOOM::IRSpy;
  12
  13 my %opts;
  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
  19 ];
  20     exit 1;
  21 }
  22
  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";
  27     exit 2;
  28 }
  29
  30 my $spy = new ZOOM::IRSpy($dbname);
  31 $spy->targets($targetList) if defined $targetList;
  32 $spy->initialise();
  33 my $res = $spy->check();
  34 if ($res == 0) {
  35     print "All tests were run\n";
  36 } else {
  37     print "Some tests were skipped\n";
  38 }