Look for PR references and add links. Currently 290 out of ~7000 PRs

have links to other PRs.
This commit is contained in:
Wolfram Schneider 1998-06-05 16:58:07 +00:00
parent 477de7dc88
commit 5b84f8e2b9
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=2894
2 changed files with 4 additions and 2 deletions

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.8 1998-06-02 13:07:10 wosch Exp $
# $Id: query-pr.cgi,v 1.9 1998-06-05 16:58:07 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -176,6 +176,7 @@ sub fixline {
$line =~ s/</&lt;/g;
$line =~ s/>/&gt;/g;
$line =~ s|(http://\S+)|<A HREF="$1">$1</A>|g;
$line =~ s%(\WPR[:s# \t]+)([a-z386]+\/)?([0-9]+)%$1<A HREF="query-pr.cgi?pr=$3">$2$3</A>%ig;
$line;
}