From 4e4babc3eae4b252f668f468a99ce7768789b0f8 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 19 Jul 2006 11:41:42 +0000 Subject: [PATCH] Move irspy.pl to bin/irspy.pl --- bin/irspy.pl | 38 ++++++++++++++++++++++++++++++++++++++ irspy.pl | 38 -------------------------------------- 2 files changed, 38 insertions(+), 38 deletions(-) create mode 100755 bin/irspy.pl delete mode 100755 irspy.pl diff --git a/bin/irspy.pl b/bin/irspy.pl new file mode 100755 index 0000000..c3a9e0e --- /dev/null +++ b/bin/irspy.pl @@ -0,0 +1,38 @@ +#!/usr/bin/perl -w + +# $Id: irspy.pl,v 1.1 2006-07-19 11:41:42 mike Exp $ +# +# Run like this: +# 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 + +use strict; +use warnings; +use Getopt::Std; +use ZOOM::IRSpy; + +my %opts; +if (!getopts('t:au', \%opts) || @ARGV != 1) { + print STDERR qq[Usage: $0 [options] + -t Space-separated list of targets to check + -a Check all targets registered in database + -u Update information in database +]; + exit 1; +} + +my $dbname = $ARGV[0]; +my $targetList = $opts{t}; +if (!defined $targetList && !$opts{a}) { + print STDERR "$0: neither -t nor -a specified\n"; + exit 2; +} + +my $spy = new ZOOM::IRSpy($dbname); +$spy->targets($targetList) if defined $targetList; +$spy->initialise(); +my $res = $spy->check(); +if ($res == 0) { + print "All tests were run\n"; +} else { + print "Some tests were skipped\n"; +} diff --git a/irspy.pl b/irspy.pl deleted file mode 100755 index 80a2455..0000000 --- a/irspy.pl +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/perl -w - -# $Id: irspy.pl,v 1.7 2006-06-21 15:58:08 mike Exp $ -# -# Run like this: -# 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 - -use strict; -use warnings; -use Getopt::Std; -use ZOOM::IRSpy; - -my %opts; -if (!getopts('t:au', \%opts) || @ARGV != 1) { - print STDERR qq[Usage: $0 [options] - -t Space-separated list of targets to check - -a Check all targets registered in database - -u Update information in database -]; - exit 1; -} - -my $dbname = $ARGV[0]; -my $targetList = $opts{t}; -if (!defined $targetList && !$opts{a}) { - print STDERR "$0: neither -t nor -a specified\n"; - exit 2; -} - -my $spy = new ZOOM::IRSpy($dbname); -$spy->targets($targetList) if defined $targetList; -$spy->initialise(); -my $res = $spy->check(); -if ($res == 0) { - print "All tests were run\n"; -} else { - print "Some tests were skipped\n"; -} -- 1.7.10.4