Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-27 02:43:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
matty%chariot.net.au 2002-05-22 09:21:35 +00:00
parent d3e96251eb
commit bcbb81dbcc
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
webtools/bugzilla/sanitycheck.cgi
View File

@ -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 != ''");