Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
bugzilla
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
etersoft
bugzilla
Commits
d8b930fa
Commit
d8b930fa
authored
Mar 26, 1999
by
terry%netscape.com
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Look for text like "bug 213" and make it a link to that bug...
parent
5e091546
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
1 deletion
+10
-1
bug_form.pl
bug_form.pl
+10
-1
No files found.
bug_form.pl
View file @
d8b930fa
...
...
@@ -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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment