=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.27 retrieving revision 1.35 diff -u -p -r1.27 -r1.35 --- cvsweb/cvsweb.cgi 1998/12/30 19:31:43 1.27 +++ cvsweb/cvsweb.cgi 1999/09/17 18:56:44 1.35 @@ -28,7 +28,7 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $fId: cvsweb.cgi,v 1.26 1998/11/10 19:26:16 motoyuki Exp $ +# $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.34 1999/09/08 13:04:09 peter Exp $ # @@ -71,6 +71,8 @@ require 'cgi-style.pl'; %mirrors = ( 'Germany', 'http://www.de.freebsd.org/cgi/cvsweb.cgi', + 'Spain', 'http://www.es.freebsd.org/cgi/cvsweb.cgi', + 'California', 'http://www.freebsd.org/cgi/cvsweb.cgi', 'Japan', 'http://www.jp.freebsd.org/cgi/cvsweb.cgi', ); @@ -143,6 +145,10 @@ if (!-d $cvsroot) { &fatal("500 Internal Error",'$CVSROOT not found!
The server on which the CVS tree lives is probably down. Please try again in a few minutes.');
}
+# Set up for FreeBSD repo options.
+$ENV{'RCSLOCALID'} = 'FreeBSD=CVSHeader';
+$ENV{'RCSINCEXC'} = 'iFreeBSD';
+$ENV{'CVSROOT'} = $cvsroot;
{
local(@foo, $i);
@@ -327,9 +333,7 @@ sub htmlify {
$string =~ s/>/>/g;
if ($pr) {
- $string =~ s|\bpr(\W+[a-z]+/\W*)(\d+)|$&|ig ||
- $string =~ s|\bpr[:#]?\s*#?(\d+)\b|$&|ig ||
- $string =~ s!\b(bin|conf|docs|gnu|i386|kern|misc|ports)\/(\d+)\b!$&!ig;
+ $string =~ s!\b((pr[:#]?\s*#?)|((bin|conf|docs|gnu|i386|kern|misc|ports)\/))(\d+)\b!$&!ig;
}
$string;
@@ -429,7 +433,9 @@ sub checkout {
"Unexpected output from co: $_");
}
$_ =