From: Mike Taylor <mike@indexdata.com>
Date: Mon, 18 Sep 2006 19:27:21 +0000 (+0000)
Subject: New
X-Git-Tag: CPAN-v1.02~54^2~1056
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=b07d5e7b6a316369061078f06ee75dfc1d579da2

New
---

diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc
new file mode 100644
index 0000000..4b9d86b
--- /dev/null
+++ b/web/htdocs/details/check.mc
@@ -0,0 +1,22 @@
+%# $Id: check.mc,v 1.1 2006-09-18 19:27:21 mike Exp $
+<%perl>
+my $id = $r->param("id");
+if (!$id) {
+    print "No 'id' specified!\n";
+} else {
+    print "<h2>'$id'</h2>\n";
+    my $spy = new ZOOM::IRSpy("localhost:1313/IR-Explain---1");
+    ZOOM::Log::mask_str("irspy,irspy_test"); # Do we need this?
+    ZOOM::Log::init_level(ZOOM::Log::module_level("irspy,irspy_test"));
+    ZOOM::Log::time_format("%F %T"); # ISO-8601 format
+    ### capture logging output ... somehow.
+    $spy->targets($id);
+    $spy->initialise();
+    my $res = 0;#$spy->check();
+    if ($res == 0) {
+	print "All tests were run\n";
+    } else {
+	print "Some tests were skipped\n";
+    }
+}
+</%perl>
diff --git a/web/htdocs/favicon.ico b/web/htdocs/favicon.ico
new file mode 100644
index 0000000..d21b4ac
Binary files /dev/null and b/web/htdocs/favicon.ico differ