Return to cvsfilter.pl CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/cvsfilter.pl, revision 1.1

1.1     ! harris41    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: }