X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=bc992687f53e2ffd8f306cbf4582009db9bcdef6;hb=f3a397adb560c87e648fb7817daa64c3dea29167;hp=809354bb16934ae2de60115544d3de6e547de766;hpb=73d42e40d6ca0dcb11a4c513c340d5158268ed07;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index 809354b..bc99268 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,22 +1,50 @@ -%# $Id: check.mc,v 1.2 2006-09-20 13:19:53 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 $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>