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