Return to cvsfilter.pl CVS log

Up to [LON-CAPA] / loncom / build

a filter script to help output a short listing
of cvs revision information for the software repository
-Scott

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

}