#!/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";

while(<>) {
    if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
	s/branch:.*\n//;
	s/locks:.*\n//;
	s/access list:.*\n//;
	s/symbolic names:.*\n//;
	s/keyword substitution:.*\n//;
	s/total revisions:.*\n//;
	print "$_";
    }   

}