%# $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);
%perl>
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";
}
%perl>