From ed7dd7e98f3f2d1ac1a3e7e02a17ef9fe498555f Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 26 Oct 2006 17:45:32 +0000 Subject: [PATCH] Require confirmation before starting an all-targets test. --- web/htdocs/details/check.mc | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index 87775a3..ad146bd 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,10 +1,25 @@ -%# $Id: check.mc,v 1.10 2006-10-25 09:54:16 mike Exp $ +%# $Id: check.mc,v 1.11 2006-10-26 17:45:32 mike Exp $ <%args> @id $test => "Quick" +$really => 0 <%perl> 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 + No +

+<%perl> +} else { + print "

Testing ...

\n"; print " \n" if !$allTargets; @@ -28,4 +43,5 @@ if ($res == 0) { print "$res tests were skipped\n"; } print "

\n"; +} -- 1.7.10.4