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 (file)
--- 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 {