diff options
| -rwxr-xr-x | sanitycheck.cgi | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/sanitycheck.cgi b/sanitycheck.cgi index 902832300..eeb45902f 100755 --- a/sanitycheck.cgi +++ b/sanitycheck.cgi @@ -188,6 +188,32 @@ if (defined $cgi->param('createmissinggroupcontrolmapentries')) { } ########################################################################### +# Fix missing creation date +########################################################################### + +if (defined $cgi->param('repair_creation_date')) { + Status("OK, now fixing missing bug creation dates"); + + my $bug_ids = $dbh->selectcol_arrayref('SELECT bug_id FROM bugs + WHERE creation_ts IS NULL'); + + my $sth_UpdateDate = $dbh->prepare('UPDATE bugs SET creation_ts = ? + WHERE bug_id = ?'); + + # All bugs have an entry in the 'longdescs' table when they are created, + # even if 'commentoncreate' is turned off. + my $sth_getDate = $dbh->prepare('SELECT MIN(bug_when) FROM longdescs + WHERE bug_id = ?'); + + foreach my $bugid (@$bug_ids) { + $sth_getDate->execute($bugid); + my $date = $sth_getDate->fetchrow_array; + $sth_UpdateDate->execute($date, $bugid); + } + Status(scalar(@$bug_ids) . " bugs have been fixed."); +} + +########################################################################### # Send unsent mail ########################################################################### @@ -692,6 +718,11 @@ sub BugCheck { } } +Status("Checking for bugs with no creation date (which makes them invisible)"); + +BugCheck("bugs WHERE creation_ts IS NULL", "Bugs with no creation date", + "repair_creation_date", "Repair missing creation date for these bugs"); + Status("Checking resolution/duplicates"); BugCheck("bugs INNER JOIN duplicates ON bugs.bug_id = duplicates.dupe " . |