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

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index e381aaa8278ac14a9b5eef43958ded2426e0532e..2dc7035bc2be3d23b9b13df6fcd8b5c7a7a59baf 100755 (executable)
--- 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>)});
     }
 }