From bece5c7f2828d568363c106e8566db4fe1e13179 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 20 Sep 2006 16:36:07 +0000 Subject: [PATCH] Provide authentication tokens. Call to check() no longer commented out :-) --- web/htdocs/details/check.mc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 "

'$id'

\n"; - my $spy = new ZOOM::IRSpy("localhost:3313/IR-Explain---1"); + print "

$id

\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 { -- 1.7.10.4