web/htdocs/run.html

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