summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormatty%chariot.net.au <>2002-05-22 18:21:35 +0200
committermatty%chariot.net.au <>2002-05-22 18:21:35 +0200
commita7c87234d95c763c7c7f4ba87af0814cb028bcef (patch)
tree8e88f27a2945105a1288082bf5ff10b1d15d36ba
parent7c4b8b322af3d6f23c0107732de46faf84bb39c3 (diff)
downloadbugzilla-a7c87234d95c763c7c7f4ba87af0814cb028bcef.tar.gz
bugzilla-a7c87234d95c763c7c7f4ba87af0814cb028bcef.tar.xz
Bug 93667: Add comments to uncommented sections of sanitycheck.cgi
-rwxr-xr-xsanitycheck.cgi24
1 files changed, 21 insertions, 3 deletions
diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index 80b88d5fd..4172e6b34 100755
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -121,6 +121,10 @@ my @checklist;
PutHeader("Bugzilla Sanity Check");
+###########################################################################
+# Fix vote cache
+###########################################################################
+
if (exists $::FORM{'rebuildvotecache'}) {
Status("OK, now rebuilding vote cache.");
SendSQL("lock tables bugs write, votes read");
@@ -158,6 +162,10 @@ foreach my $field (("bug_severity", "bug_status", "op_sys",
}
}
+###########################################################################
+# Perform referential (cross) checks
+###########################################################################
+
CrossCheck("keyworddefs", "id",
["keywords", "keywordid"]);
@@ -207,6 +215,9 @@ CrossCheck("products", "product",
["versions", "program", "value"],
["attachstatusdefs", "product", "name"]);
+###########################################################################
+# Perform group checks
+###########################################################################
Status("Checking groups");
SendSQL("select bit from groups where bit != pow(2, round(log(bit) / log(2)))");
@@ -224,8 +235,9 @@ while (@row = FetchSQLData()) {
Alert("Bad groupset $row[1] found in bug " . BugLink($row[0]));
}
-
-
+###########################################################################
+# Perform product specific field checks
+###########################################################################
Status("Checking version/products");
@@ -299,7 +311,10 @@ foreach my $ref (@checklist) {
}
}
-
+###########################################################################
+# Perform login checks
+###########################################################################
+
Status("Checking profile logins");
my $emailregexp = Param("emailregexp");
@@ -312,6 +327,9 @@ while (my ($id,$email) = (FetchSQLData())) {
Alert "Bad profile email address, id=$id, &lt;$email&gt;."
}
+###########################################################################
+# Perform vote/keyword cache checks
+###########################################################################
SendSQL("SELECT bug_id,votes,keywords FROM bugs " .
"WHERE votes != 0 OR keywords != ''");