os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Create a hyperlink to cvsweb.cgi in cvs log mails.

Browse source
This commit is contained in:
Wolfram Schneider 2000-11-05 10:18:10 +00:00
parent 4c28e66686
commit cedb2f22f4
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=8290
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
en/cgi/getmsg.cgi
View file

@ -6,7 +6,7 @@
# by John Fieber
# February 26, 1998
#
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.25 2000/10/29 16:29:45 jmb Exp $
# $FreeBSD: www/en/cgi/getmsg.cgi,v 1.26 2000/11/01 09:52:06 wosch Exp $
#
require "./cgi-lib.pl";
@ -205,12 +205,24 @@ sub MessageToHTML
return $message;
}
sub AddAnchors
{
my ($text) = @_;
my $cvsweb = 'http://www.freebsd.org/cgi/cvsweb.cgi';
$text =~ s/(http|https|ftp|gopher|mailto|news|file)(:[^\s]*?\/?)(\W?\s)/<a href="$1$2">$1$2<\/a>$3/goi;
if ($text =~ /Revision\s+Changes\s+Path/) {
# match revsion and file name
# 1.10 +2 -2 ports/audio/xmradio/Makefile
# ->
# cvsweb.cgi/ports/audio/xmradio/Makefile.diff?r1=1.9&r2=r.10
#
$text =~ s#([\d.]+\.)(\d+)(\s+[+-]\d+\s+[+-]\d+\s+)([a-zA-Z\d_:.+/-]+)#sprintf("%s%s%s<a href=\"$cvsweb/%s.diff?r1=%s%s&r2=%s%s\">%s</a>", $1, $2, $3, $4, $1, $2 - 1, $1, $2, $4)#ge;
}
return $text;
}