More aggressive PR-number url'ifying. Grammar gnit.
This commit is contained in:
parent
abaef3f0df
commit
1655b7abb9
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=3997
1 changed files with 5 additions and 3 deletions
|
|
@ -28,7 +28,7 @@
|
|||
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
||||
# SUCH DAMAGE.
|
||||
#
|
||||
# $Id: cvsweb.cgi,v 1.26 1998-11-10 19:26:16 motoyuki Exp $
|
||||
# $Id: cvsweb.cgi,v 1.27 1998-12-30 19:31:43 hoek Exp $
|
||||
#
|
||||
|
||||
|
||||
|
|
@ -153,7 +153,7 @@ if (!-d $cvsroot) {
|
|||
}
|
||||
}
|
||||
if ($#foo > 1) {
|
||||
$intro .= "<p>\nThis script support the following CVS trees:\n";
|
||||
$intro .= "<p>\nThis script supports the following CVS trees:\n";
|
||||
for($i = 0; $i <= $#foo; $i++) {
|
||||
$intro .= qq{<a href="$scriptname?cvsroot=$foo[$i]">} .
|
||||
($CVSROOTdescr{$foo[$i]} ?
|
||||
|
|
@ -327,7 +327,9 @@ sub htmlify {
|
|||
$string =~ s/>/>/g;
|
||||
|
||||
if ($pr) {
|
||||
$string =~ s|\bpr(\W+[a-z]+/\W*)(\d+)|<A HREF=/cgi/query-pr.cgi?pr=$2>$&</A>|ig;
|
||||
$string =~ s|\bpr(\W+[a-z]+/\W*)(\d+)|<A HREF=/cgi/query-pr.cgi?pr=$2>$&</A>|ig ||
|
||||
$string =~ s|\bpr[:#]?\s*#?(\d+)\b|<A HREF=/cgi/query-pr.cgi?pr=$1>$&</A>|ig ||
|
||||
$string =~ s!\b(bin|conf|docs|gnu|i386|kern|misc|ports)\/(\d+)\b!<A HREF=/cgi/query-pr.cgi?pr=$2>$&</A>!ig;
|
||||
}
|
||||
|
||||
$string;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue