From: Mike Taylor <mike@indexdata.com>
Date: Thu, 27 Jul 2006 16:20:12 +0000 (+0000)
Subject: New -- limps along but is clearly on the zygotic side of embryonic.
X-Git-Tag: CPAN-v1.02~54^2~1091
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=1b0d05ba73f0a9c09a811549887540b6130dbd78;hp=7e344a2cd8218bec9ca1ad218a8333637cec3ae9

New -- limps along but is clearly on the zygotic side of embryonic.
---

diff --git a/web/htdocs/index.html b/web/htdocs/index.html
new file mode 100644
index 0000000..1f4d032
--- /dev/null
+++ b/web/htdocs/index.html
@@ -0,0 +1,21 @@
+%# $Id: index.html,v 1.1 2006-07-27 16:20:12 mike Exp $
+<%perl>
+use lib "/usr/local/src/cvs/irspy/lib";
+use ZOOM::IRSpy;
+my $dbname = "localhost:1313/IR-Explain---1";
+my @targets = qw(bagel.indexdata.dk/gils
+		 z3950.loc.gov:7090/Voyager);
+</%perl>
+IRSpy version <% $ZOOM::IRSpy::VERSION %><br/>
+<%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>