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

    1: #!/usr/bin/perl
    2: 
    3: # Scott Harrison
    4: # 02/27/2001
    5: 
    6: # Accepts input from commands like:
    7: #    cvs log -N -d '2001-02-28>2001-02-19' 
    8: 
    9: $/="=" x 77 . "\n";
   10: 
   11: while(<>) {
   12:     if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
   13: 	s/branch:.*\n//;
   14: 	s/locks:.*\n//;
   15: 	s/access list:.*\n//;
   16: 	s/symbolic names:.*\n//;
   17: 	s/keyword substitution:.*\n//;
   18: 	s/total revisions:.*\n//;
   19: 	print "$_";
   20:     }   
   21: 
   22: }