coar 98/07/23 17:53:21
Modified: websrc cvsweb.cgi
Log:
Changed to look for *exactly* 77 '=' characters alone on a line for the
empirical RCS division mark. We were getting hosed by strings of '=='
in the CVS log text.
Revision Changes Path
1.3 +9 -3 apache-site/websrc/cvsweb.cgi
Index: cvsweb.cgi
===================================================================
RCS file: /export/home/cvs/apache-site/websrc/cvsweb.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cvsweb.cgi 1997/07/01 21:59:39 1.2
+++ cvsweb.cgi 1998/07/24 00:53:21 1.3
@@ -5,6 +5,12 @@
# Written by Bill Fenner <[EMAIL PROTECTED]> on his own time.
# Insert BSD copyright here.
#
+# Modified:
+# 1998-07-23 Ken Coar
+# Changed to look for *exactly* 77 '=' characters alone on a line for
the
+# empirical RCS division mark. We were getting hosed by strings of
'=='
+# in the CVS log text.
+#
#HTTP_USER_AGENT: Mozilla/1.1N (X11; I; SunOS 4.1.3_U1 sun4m) via proxy
gateway CERN-HTTPD/3.0 libwww/2.17
#SERVER_NAME: www.freebsd.org
#QUERY_STRING: baz
@@ -165,12 +171,12 @@
# log info
# ----------------------------
logentry:
- while (!/^=========/) {
+ while (!/^={77}$/) {
$_ = <RCS>;
print "R:", $_ if ($verbose);
if (/^revision ([\d\.]+)/) {
$rev = $1;
- } elsif (/^========/ || /^----------------------------$/) {
+ } elsif (/^={77}$/ || /^----------------------------$/) {
next logentry;
} else {
&fatal("500 Internal Error","Error parsing RCS output: $_");
@@ -192,7 +198,7 @@
while (<RCS>) {
print "L:", $_ if ($verbose);
next line if (/^branches:\s/);
- last line if (/^----------------------------$/ || /^=========/);
+ last line if (/^----------------------------$/ || /^={77}$/);
$log{$rev} .= $_;
}
print "E:", $_ if ($verbose);
