Return to cvsfilter.pl CVS log

Up to [LON-CAPA] / loncom / build

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