From d8b930fa2293ea58383682c48cf375fa600fc0be Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Fri, 26 Mar 1999 11:11:49 +0000
Subject: Look for text like "bug 213" and make it a link to that bug...

---
 bug_form.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'bug_form.pl')

diff --git a/bug_form.pl b/bug_form.pl
index 360c55bbc..7398dae9f 100644
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -49,7 +49,7 @@ sub quoteUrls {
 
     my @things;
     while ($text =~ s%((mailto:)?([\w\.\-\+\=]+\@\w+(?:\.\w+)+)\b|
-                       (\b((?:$protocol):\S+[\w/])))%"##".$count."##"%exo) {
+                       (\b((?:$protocol):\S+[\w/])))%"##$count##"%exo) {
         my $item = $&;
 
         $item = value_quote($item);
@@ -64,6 +64,15 @@ sub quoteUrls {
 
         $things[$count++] = $item;
     }
+    while ($text =~ s/\bbug(\s|%\#)*(\d+)/"##$count##"/ei) {
+        my $item = $&;
+        my $num = $2;
+        $item = value_quote($item); # Not really necessary, since we know
+                                # there's no special chars in it.
+        my $base = Param('urlbase');
+        $item = qq{<A HREF="${base}show_bug.cgi?id=$num">$item</A>};
+        $things[$count++] = $item;
+    }
 
     $text = value_quote($text);
 
-- 
cgit v1.2.3-24-g4f1b