X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=20de4a7793fad51c7d3966c69851c9456e825569;hb=929666f7a7c53e064045212a810a28faf2ecc6d8;hp=809354bb16934ae2de60115544d3de6e547de766;hpb=7997cc43ead24da7f35ce3d12fe3a07589bcbc41;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index 809354b..20de4a7 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,22 +1,57 @@ -%# $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 @rulesFiles = ("dallas.rules"); + +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() + +$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"; } %perl>