#!/usr/bin/perl

# Scott Harrison
# 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++;
}