1 %# $Id: run.html,v 1.1 2006-09-14 15:15:45 mike Exp $
3 use lib "/usr/local/src/cvs/irspy/lib";
5 my $dbname = "localhost:1313/IR-Explain---1";
6 my @targets = qw(bagel.indexdata.dk/gils
7 z3950.loc.gov:7090/Voyager);
9 IRSpy version <% $ZOOM::IRSpy::VERSION %><br/>
11 my $targetList = join(" ", @targets);
12 my $spy = new ZOOM::IRSpy($dbname);
13 $spy->targets($targetList);
15 my $res = $spy->check();
17 print "All tests were run\n";
19 print "Some tests were skipped\n";