From: Mike Taylor <mike@indexdata.com>
Date: Wed, 20 Sep 2006 16:36:07 +0000 (+0000)
Subject: Provide authentication tokens.
X-Git-Tag: CPAN-v1.02~54^2~1021
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=c76a3f776f087b2ae7ecd8a7c69e3e78022f1cae

Provide authentication tokens.
Call to check() no longer commented out :-)
---

diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc
index 809354b..a866a6f 100644
--- a/web/htdocs/details/check.mc
+++ b/web/htdocs/details/check.mc
@@ -1,18 +1,18 @@
-%# $Id: check.mc,v 1.2 2006-09-20 13:19:53 mike Exp $
+%# $Id: check.mc,v 1.3 2006-09-20 16:36:07 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:3313/IR-Explain---1");
+    print "<h2>$id</h2>\n";
+    my $spy = new ZOOM::IRSpy("localhost:3313/IR-Explain---1", admin => "fruitbat");
     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();
+    my $res = $spy->check();
     if ($res == 0) {
 	print "All tests were run\n";
     } else {