httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From c...@hyperreal.org
Subject cvs commit: apache-site/websrc cvsweb.cgi
Date Fri, 24 Jul 1998 00:53:22 GMT
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 <fenner@parc.xerox.com> 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);
  
  
  

Mime
View raw message