X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=a866a6fa56cbe145417d51b2dca5c8f113725cb3;hp=809354bb16934ae2de60115544d3de6e547de766;hb=c76a3f776f087b2ae7ecd8a7c69e3e78022f1cae;hpb=91f2998590c93f9bd0dbe9fa8c73f441604607c6

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 {