X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=1c23f7a474b95b3391a51bb1ec83b2c412c593c6;hb=e6595854ecaf2398a0abb00e4325681be43765a5;hp=4b9d86b7c5a708ec589eaca6ba7d5e0b63664c7c;hpb=baf85dc53a82247578da797ab0f3df4f6f937d49;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index 4b9d86b..1c23f7a 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,22 +1,50 @@ -%# $Id: check.mc,v 1.1 2006-09-18 19:27:21 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" +%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 $spy = new ZOOM::IRSpy::Web("localhost:8018/IR-Explain---1", + 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>