Return to cvsfilter.pl CVS log

Up to [LON-CAPA] / loncom / build

cvsreport now works (been tested) and is part of the install.lon-capa.org
pages -Scott

    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: my $count=1;
   12: while(<>) {
   13:     if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
   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;
   26: 	print "$_";
   27:     }   
   28:     $count++;
   29: }