From 153a266bdedb6a33f28f84575b5c72d0f5d2faf9 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 26 Sep 2006 09:30:20 +0000 Subject: [PATCH] Use new ZOOM::IRSpy::Web --- web/htdocs/chrome/layout.mc | 4 ++-- web/htdocs/details/check.mc | 11 +++-------- 2 files changed, 5 insertions(+), 10 deletions(-) diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc index 14e7608..00db5f2 100644 --- a/web/htdocs/chrome/layout.mc +++ b/web/htdocs/chrome/layout.mc @@ -1,4 +1,4 @@ -%# $Id: layout.mc,v 1.7 2006-09-25 16:47:36 mike Exp $ +%# $Id: layout.mc,v 1.8 2006-09-26 09:30:28 mike Exp $ <%args> $debug => undef $title @@ -6,7 +6,7 @@ $component <%once> use lib "/usr/local/src/cvs/irspy/lib"; -use ZOOM::IRSpy; +use ZOOM::IRSpy::Web; use ZOOM::IRSpy::Record qw(xml_encode); <& /chrome/head.mc, title => $title &> 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(); -- 1.7.10.4