Annotation of loncom/build/cvsfilter.pl, revision 1.3
1.1 harris41 1: #!/usr/bin/perl
2:
3: # 02/27/2001
4:
5: # Accepts input from commands like:
6: # cvs log -N -d '2001-02-28>2001-02-19'
7:
8: $/="=" x 77 . "\n";
9:
1.2 harris41 10: my $count=1;
1.1 harris41 11: while(<>) {
12: if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
1.2 harris41 13: s/\nbranch:.*//;
14: s/\nlocks:.*//;
15: s/\naccess list:.*//;
16: s/\nsymbolic names:.*//;
17: s/\nkeyword substitution:.*//;
18: s/\ntotal revisions:.*//;
19: s/\n\?.*//g if $count==1;
20: s/^\?.*//g if $count==1;
21: my $gt='>';
22: my $lt='<';
23: s/\>/$gt/g;
24: s/\</$lt/g;
1.1 harris41 25: print "$_";
26: }
1.2 harris41 27: $count++;
1.1 harris41 28: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>