Return to cvsfilter.pl CVS log | Up to [LON-CAPA] / loncom / build |
a filter script to help output a short listing of cvs revision information for the software repository -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: while(<>) { 12: if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) { 13: s/branch:.*\n//; 14: s/locks:.*\n//; 15: s/access list:.*\n//; 16: s/symbolic names:.*\n//; 17: s/keyword substitution:.*\n//; 18: s/total revisions:.*\n//; 19: print "$_"; 20: } 21: 22: }