Return to cvsfilter.pl CVS log

Up to [LON-CAPA] / loncom / build

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='&gt;';
                     22: 	my $lt='&lt;';
                     23: 	s/\>/$gt/g;
                     24: 	s/\</$lt/g;
1.1       harris41   25: 	print "$_";
                     26:     }   
1.2       harris41   27:     $count++;
1.1       harris41   28: }