%# $Id: run.html,v 1.2 2006-09-20 13:19:53 mike Exp $ <%perl> use lib "/usr/local/src/cvs/irspy/lib"; use ZOOM::IRSpy; my $dbname = "localhost:3313/IR-Explain---1"; my @targets = qw(bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager); IRSpy version <% $ZOOM::IRSpy::VERSION %>
<%perl> my $targetList = join(" ", @targets); my $spy = new ZOOM::IRSpy($dbname); $spy->targets($targetList); $spy->initialise(); my $res = $spy->check(); if ($res == 0) { print "All tests were run\n"; } else { print "Some tests were skipped\n"; }