projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
085f4a7
)
Require confirmation before starting an all-targets test.
author
Mike Taylor
<mike@indexdata.com>
Thu, 26 Oct 2006 17:45:32 +0000
(17:45 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Thu, 26 Oct 2006 17:45:32 +0000
(17:45 +0000)
web/htdocs/details/check.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/check.mc
b/web/htdocs/details/check.mc
index
87775a3
..
ad146bd
100644
(file)
--- 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"
<%args>
@id
$test => "Quick"
+$really => 0
</%args>
<%perl>
my $allTargets = (@id == 1 && $id[0] eq "");
</%args>
<%perl>
my $allTargets = (@id == 1 && $id[0] eq "");
+if ($allTargets && !$really) {
+</%perl>
+ <h2>Warning</h2>
+ <p class="error">
+ Testing all the targets is a very slow process.
+ Are you sure you want to do this?
+ </p>
+ <p>
+ <a href="?really=1">Yes</a>
+ <a href="/">No</a>
+ </p>
+<%perl>
+} else {
+
print "<h2>Testing ...</h2>\n";
print " <ul>\n", join("", map { " <li>$_\n" } @id), "</ul>\n"
if !$allTargets;
print "<h2>Testing ...</h2>\n";
print " <ul>\n", join("", map { " <li>$_\n" } @id), "</ul>\n"
if !$allTargets;
@@
-28,4
+43,5
@@
if ($res == 0) {
print "<b>$res tests were skipped</b>\n";
}
print "</p>\n";
print "<b>$res tests were skipped</b>\n";
}
print "</p>\n";
+}
</%perl>
</%perl>