Bug 93667: Add comments to uncommented sections of sanitycheck.cgi

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index 80b88d5fd9096ed1abcbdb3a188e5bd4e3dca3bc..4172e6b341c2ae8df2432dd4454dcb7f88aa8e89 100755 (executable)
--- 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,  <$email>."
 }
 
+###########################################################################
+# Perform vote/keyword cache checks
+###########################################################################
 
 SendSQL("SELECT bug_id,votes,keywords FROM bugs " .
         "WHERE votes != 0 OR keywords != ''");