X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=a866a6fa56cbe145417d51b2dca5c8f113725cb3;hb=0ee3e3197d4f76c0de27634a71cf8202895c098e;hp=4b9d86b7c5a708ec589eaca6ba7d5e0b63664c7c;hpb=b07d5e7b6a316369061078f06ee75dfc1d579da2;p=irspy-moved-to-github.git

diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc
index 4b9d86b..a866a6f 100644
--- a/web/htdocs/details/check.mc
+++ b/web/htdocs/details/check.mc
@@ -1,18 +1,18 @@
-%# $Id: check.mc,v 1.1 2006-09-18 19:27:21 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:1313/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 {