%args> @id $test => "Quick" $really => 0 $YAZ_LOG => "irspy,irspy_test" %args> <%perl> my $allTargets = (@id == 1 && $id[0] eq ""); if ($allTargets && !$really) { %perl>
Testing all the targets is a very slow process. Are you sure you want to do this?
Yes: Quick Test
Yes: Full Test
No
Logging: ", join("/", split /,/, $YAZ_LOG), "
\n"; $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 $db = ZOOM::IRSpy::connect_to_registry(); my $spy = new ZOOM::IRSpy::Web($db, admin => "fruitbat"); $spy->log_init_level($YAZ_LOG); $spy->targets(@id) if !$allTargets; $spy->initialise($test); my $res = $spy->check(); print "\n"; if ($res == 0) { print "All tests were attempted\n"; } else { print "$res tests were skipped\n"; } print "
\n"; } %perl>