===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 3.15
retrieving revision 3.16
diff -u -p -r3.15 -r3.16
--- cvsweb/cvsweb.cgi 2000/08/25 09:01:58 3.15
+++ cvsweb/cvsweb.cgi 2000/09/03 17:33:22 3.16
@@ -42,7 +42,7 @@
# SUCH DAMAGE.
#
# $zId: cvsweb.cgi,v 1.94 2000/08/24 06:41:22 hnordstrom Exp $
-# $Id: cvsweb.cgi,v 3.15 2000/08/25 09:01:58 knu Exp $
+# $Id: cvsweb.cgi,v 3.16 2000/09/03 17:33:22 knu Exp $
#
###
@@ -895,9 +895,9 @@ sub htmlify($;$) {
$string =~ s/>/>/g;
# get URL's as link ..
- $string =~ s`(http|ftp|https)(://[-a-zA-Z0-9%.~:_/]+)([?&]([-a-zA-Z0-9%.~:_]+)=([-a-zA-Z0-9%.~:_])+)*`$1$2$3`;
+ $string =~ s`(http|ftp|https)(://[-a-zA-Z0-9%.~:_/]+)([?&]([-a-zA-Z0-9%.~:_]+)=([-a-zA-Z0-9%.~:_])+)*`$1$2$3`g;
# get e-mails as link
- $string =~ s`([-a-zA-Z0-9_.]+@([-a-zA-Z0-9]+\.)+[A-Za-z]{2,4})`$1`;
+ $string =~ s`([-a-zA-Z0-9_.]+@([-a-zA-Z0-9]+\.)+[A-Za-z]{2,4})`$1`g;
# get #PR as link ..
if ($pr && defined($prcgi)) {
@@ -2382,7 +2382,7 @@ sub navigateHeader($$$$$) {
$swhere = urlencode($filename) if ($swhere eq "");
print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
print "\n\n";
- print '';
+ print '';
print "\n$path$filename - $title - $rev\n";
print "\n";
print "";
@@ -2734,7 +2734,7 @@ sub http_header(;$) {
sub html_header($) {
my ($title) = @_;
- my $version = '$zRevision: 1.94 $ $Revision: 3.15 $'; #'
+ my $version = '$zRevision: 1.94 $ $Revision: 3.16 $'; #'
http_header();
print <