Annotation of loncom/build/cvsfilter.pl, revision 1.2
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:
1.2 ! harris41 11: my $count=1;
1.1 harris41 12: while(<>) {
13: if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
1.2 ! harris41 14: s/\nbranch:.*//;
! 15: s/\nlocks:.*//;
! 16: s/\naccess list:.*//;
! 17: s/\nsymbolic names:.*//;
! 18: s/\nkeyword substitution:.*//;
! 19: s/\ntotal revisions:.*//;
! 20: s/\n\?.*//g if $count==1;
! 21: s/^\?.*//g if $count==1;
! 22: my $gt='>';
! 23: my $lt='<';
! 24: s/\>/$gt/g;
! 25: s/\</$lt/g;
1.1 harris41 26: print "$_";
27: }
1.2 ! harris41 28: $count++;
1.1 harris41 29: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>