bin/irspy.pl

   1 #!/usr/bin/perl -w
   2
   3 # $Id: irspy.pl,v 1.6 2006-09-22 15:23:51 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:3313/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:a', \%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 ];
  19     exit 1;
  20 }
  21
  22 my $dbname = $ARGV[0];
  23 my $targetList = $opts{t};
  24 if (!defined $targetList && !$opts{a}) {
  25     print STDERR "$0: neither -t nor -a specified\n";
  26     exit 2;
  27 }
  28
  29 my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
  30 $spy->targets(grep { $_ ne "" } split /\s+/, $targetList)
  31     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 }