%# $Id: check.mc,v 1.16 2007-01-31 16:50:38 mike Exp $ <%args> @id $test => "Quick" $really => 0 <%perl> my $allTargets = (@id == 1 && $id[0] eq ""); if ($allTargets && !$really) {

Warning

Testing all the targets is a very slow process. Are you sure you want to do this?

Yes: Quick Test
Yes: Full Test
No

<%perl> } else { 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 don't even try -- instead, # having ZOOM::IRSpy::Web::log() explicitly calling $m->flush_buffer() my $spy = new ZOOM::IRSpy::Web("localhost:8018/IR-Explain---1", admin => "fruitbat"); $spy->log_init_level("irspy,irspy_test"); $spy->targets(@id) if !$allTargets; $spy->initialise(); my $res = $spy->check($test); print "

\n"; if ($res == 0) { print "All tests were attempted\n"; } else { print "$res tests were skipped\n"; } print "

\n"; }