Added a "component/product" sanity check.

This commit is contained in:
terry%netscape.com 1999-03-03 22:55:36 +00:00
parent 1845734038
commit f62e68a8af

View File

@ -50,12 +50,30 @@ PutHeader("Bugzilla Sanity Check");
print "OK, now running sanity checks.<P>\n";
my @row;
Status("Checking components/products");
my @checklist;
SendSQL("select distinct product, component from bugs");
while (@row = FetchSQLData()) {
my @copy = @row;
push(@checklist, \@copy);
}
foreach my $ref (@checklist) {
my ($product, $component) = (@$ref);
SendSQL("select count(*) from components where program = '$product' and value = '$component'");
if (FetchOneColumn() != 1) {
Alert("Bug(s) found with invalid product/component: $product/$component");
}
}
Status("Checking profile ids...");
SendSQL("select userid,login_name from profiles");
my @row;
my %profid;
while (@row = FetchSQLData()) {