web/htdocs/details/check.mc

   1 %# $Id: check.mc,v 1.17 2007-04-18 15:32:43 mike Exp $
   2 <%args>
   3 @id
   4 $test => "Quick"
   5 $really => 0
   6 </%args>
   7 <%perl>
   8 my $allTargets = (@id == 1 && $id[0] eq "");
   9 if ($allTargets && !$really) {
  10 </%perl>
  11      <h2>Warning</h2>
  12      <p class="error">
  13       Testing all the targets is a very slow process.
  14       Are you sure you want to do this?
  15      </p>
  16      <p>
  17       <a href="?really=1&amp;test=Quick">Yes: Quick Test</a><br/>
  18       <a href="?really=1&amp;test=Main">Yes: Full Test</a><br/>
  19       <a href="/">No</a><br/>
  20      </p>
  21 <%perl>
  22 } else {
  23
  24 print "<h2>Testing ...</h2>\n";
  25 print "     <ul>\n", join("", map { "      <li>$_</li>\n" } @id), "</ul>\n"
  26     if !$allTargets;
  27 $m->flush_buffer();
  28
  29 # Turning on autoflush with $m->autoflush() doesn't seem to work if
  30 # even if the "MasonEnableAutoflush" configuration parameter is turned
  31 # on in the HTTP configuration, so we don't even try -- instead,
  32 # having ZOOM::IRSpy::Web::log() explicitly calling $m->flush_buffer()
  33
  34 my $spy = new ZOOM::IRSpy::Web("localhost:8018/IR-Explain---1",
  35                                admin => "fruitbat");
  36 $spy->log_init_level("irspy,irspy_test");
  37 $spy->targets(@id) if !$allTargets;
  38 $spy->initialise($test);
  39 my $res = $spy->check();
  40 print "<p>\n";
  41 if ($res == 0) {
  42     print "<b>All tests were attempted</b>\n";
  43 } else {
  44     print "<b>$res tests were skipped</b>\n";
  45 }
  46 print "</p>\n";
  47 }
  48 </%perl>