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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>