<%args> @id $test => "Quick" $really => 0 $YAZ_LOG => "irspy,irspy_test" <%perl> my @rulesFiles = ("dallas.rules"); 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; print "

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() $ZOOM::IRSpy::xslt_max_depth = 3500; ### Hideous hack 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; foreach my $rulesFile (@rulesFiles) { $spy->apply_rules($ENV{DOCUMENT_ROOT} . "/../../etc/" . $rulesFile); print "applied rules '$rulesFile'\n"; } $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"; }