#!/usr/bin/perl

# 02/27/2001

# Accepts input from commands like:
#    cvs log -N -d '2001-02-28>2001-02-19' 

$/="=" x 77 . "\n";

my $count=1;
while(<>) {
    if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
	s/\nbranch:.*//;
	s/\nlocks:.*//;
	s/\naccess list:.*//;
	s/\nsymbolic names:.*//;
	s/\nkeyword substitution:.*//;
	s/\ntotal revisions:.*//;
	s/\n\?.*//g if $count==1;
	s/^\?.*//g if $count==1;
	my $gt='&gt;';
	my $lt='&lt;';
	s/\>/$gt/g;
	s/\</$lt/g;
	print "$_";
    }   
    $count++;
}
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator at 
 root@localhost to inform them of the time this error occurred,
 and the actions you performed just before this error.</p>
<p>More information about this error may be available
in the server error log.</p>
</body></html>
