From: Mike Taylor <mike@indexdata.com>
Date: Thu, 14 Sep 2006 15:16:19 +0000 (+0000)
Subject: Use new framework
X-Git-Tag: CPAN-v1.02~54^2~1076
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=8255290f85d4e11581798f8617af72b3c413aa11;p=irspy-moved-to-github.git

Use new framework
---

diff --git a/web/htdocs/index.html b/web/htdocs/index.html
index 1f4d032..50accca 100644
--- a/web/htdocs/index.html
+++ b/web/htdocs/index.html
@@ -1,21 +1,3 @@
-%# $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>
+%# $Id: index.html,v 1.2 2006-09-14 15:16:19 mike Exp $
+<& /chrome/layout.mc, %ARGS, title => "Home",
+    component => "/details/home.mc" &>