If bugs with an invalid product/component are found, provide a link to bring up the list of invalid bugs.

1 files changed, 3 insertions, 1 deletions

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index e381aaa82..2dc7035bc 100755
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -227,7 +227,9 @@ foreach my $ref (@checklist) {
     my ($product, $component) = (@$ref);
     SendSQL("select count(*) from components where program = " . SqlQuote($product) . " and value = " . SqlQuote($component));
     if (FetchOneColumn() != 1) {
-        Alert("Bug(s) found with invalid product/component: $product/$component");
+        my $link = "buglist.cgi?product=" . url_quote($product) .
+            "&component=" . url_quote($component);
+        Alert(qq{Bug(s) found with invalid product/component: $product/$component (<a href="$link">bug list</a>)});
     }
 }