From c1c995d9bda1589118eefc61c0636eb573b588c2 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 26 Sep 2006 10:16:15 +0000 Subject: [PATCH] Flush Mason buffer. Embolden final message. --- web/htdocs/details/check.mc | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index 500c85c..5ad4a81 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,4 +1,4 @@ -%# $Id: check.mc,v 1.5 2006-09-26 09:30:20 mike Exp $ +%# $Id: check.mc,v 1.6 2006-09-26 10:16:15 mike Exp $ <%args> @id @@ -7,15 +7,23 @@ my $allTargets = (@id == 1 && $id[0] eq ""); print "

Testing ...

\n"; print " \n" if !$allTargets; +$m->flush_buffer(); + +# Turning on autoflush with $m->autoflush() doesn't seem to work if +# even if the "MasonEnableAutoflush" configuration parameter is turned +# on in the HTTP configuration, so we donb't even try -- instead, +# having ZOOM::IRSpy::Web::log() explicitly calling $m->flush_buffer() my $spy = new ZOOM::IRSpy::Web("localhost:3313/IR-Explain---1", admin => "fruitbat"); $spy->targets(@id) if !$allTargets; $spy->initialise(); my $res = $spy->check(); +print "

\n"; if ($res == 0) { - print "All tests were run\n"; + print "All tests were run\n"; } else { - print "Some tests were skipped\n"; + print "Some tests were skipped\n"; } +print "

\n"; -- 1.7.10.4