X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=500c85c9359f69693ea1a62122126b8e8675808a;hb=153a266bdedb6a33f28f84575b5c72d0f5d2faf9;hp=bf550f95a918c7e298906befa3537b73f2b9724e;hpb=86caed4a8dd3d4212fc437ba30dd4490b2175458;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index bf550f9..500c85c 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,20 +1,15 @@ -%# $Id: check.mc,v 1.4 2006-09-23 07:13:43 mike Exp $ +%# $Id: check.mc,v 1.5 2006-09-26 09:30:20 mike Exp $ <%args> @id <%perl> my $allTargets = (@id == 1 && $id[0] eq ""); print "

Testing ...

\n"; -my $spy = new ZOOM::IRSpy("localhost:3313/IR-Explain---1", - admin => "fruitbat"); print " \n" if !$allTargets; -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 -### Arrange to capture logging output ... somehow. - +my $spy = new ZOOM::IRSpy::Web("localhost:3313/IR-Explain---1", + admin => "fruitbat"); $spy->targets(@id) if !$allTargets; $spy->initialise(); my $res = $spy->check();