From 62b0db244a22e5dde31c88909ba792a0970c9834 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 18 Sep 2007 16:58:18 +0000 Subject: [PATCH] Add new command-line options -m , to invoke restrict_modulo(). This enables us to set up cron jobs to test one seventh of the targets each night. --- bin/irspy.pl | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/bin/irspy.pl b/bin/irspy.pl index 3da9d3d..3a8918f 100755 --- a/bin/irspy.pl +++ b/bin/irspy.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: irspy.pl,v 1.28 2007-05-09 11:07:03 mike Exp $ +# $Id: irspy.pl,v 1.29 2007-09-18 16:58:18 mike Exp $ # # Run like this: # YAZ_LOG=irspy,irspy_test IRSPY_SAVE_XML=1 perl -I../lib irspy.pl -t Quick localhost:8018/IR-Explain---1 Z39.50:amicus.oszk.hu:1616/ANY @@ -34,7 +34,7 @@ $SIG{__DIE__} = sub { }; my %opts; -if (!getopts('wt:af:n:', \%opts) || @ARGV < 1) { +if (!getopts('wt:af:n:m:', \%opts) || @ARGV < 1) { print STDERR "\ Usage $0: [options] [ ...] -w Use ZOOM::IRSpy::Web subclass @@ -42,6 +42,7 @@ Usage $0: [options] [ ...] -a Test all targets (slow!) -f Test targets found by the specified query -n Number of connection to keep in active set + -m , Only test targets whose hash mod is "; exit 1; } @@ -57,7 +58,16 @@ if (@targets) { $spy->find_targets($opts{f}); } elsif (!$opts{a}) { print STDERR "$0: specify -a, -f or list of targets\n"; - exit 1; + exit 2; +} + +if (defined $opts{m}) { + my($n, $i) = ($opts{m} =~ /^(\d+),(\d+)$/); + if (!defined $n) { + print STDERR "$0: argument to -m must be of the form ,\n"; + exit 3; + } + $spy->restrict_modulo($n, $i); } $spy->initialise($opts{t}); -- 1.7.10.4