From e6595854ecaf2398a0abb00e4325681be43765a5 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 9 May 2007 10:45:14 +0000 Subject: [PATCH] Logging level can be overridden by YAZ_LOG parameter. --- web/htdocs/details/check.mc | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index b2dd433..1c23f7a 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,8 +1,9 @@ -%# $Id: check.mc,v 1.17 2007-04-18 15:32:43 mike Exp $ +%# $Id: check.mc,v 1.18 2007-05-09 10:45:14 mike Exp $ <%args> @id $test => "Quick" $really => 0 +$YAZ_LOG => "irspy,irspy_test" <%perl> my $allTargets = (@id == 1 && $id[0] eq ""); @@ -24,6 +25,7 @@ if ($allTargets && !$really) { print "

Testing ...

\n"; print " \n" if !$allTargets; +print "

Logging: ", join("/", split /,/, $YAZ_LOG), "

\n"; $m->flush_buffer(); # Turning on autoflush with $m->autoflush() doesn't seem to work if @@ -33,7 +35,7 @@ $m->flush_buffer(); my $spy = new ZOOM::IRSpy::Web("localhost:8018/IR-Explain---1", admin => "fruitbat"); -$spy->log_init_level("irspy,irspy_test"); +$spy->log_init_level($YAZ_LOG); $spy->targets(@id) if !$allTargets; $spy->initialise($test); my $res = $spy->check(); -- 1.7.10.4