[BACK]Return to cvsfilter.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build
File:  [LON-CAPA] / loncom / build / cvsfilter.pl
Revision 1.2: download - view: text, annotated - select for diffs
Tue Feb 27 17:09:17 2001 UTC (23 years, 2 months ago) by harris41
Branches: MAIN
CVS tags: version_0_6_2, version_0_6, version_0_5_1, version_0_5, version_0_4, stable_2002_spring, stable_2002_july, stable_2002_april, stable_2001_fall, STABLE, HEAD, Before_rewrite
cvsreport now works (been tested) and is part of the install.lon-capa.org
pages -Scott

#!/usr/bin/perl

# Scott Harrison
# 02/27/2001

# Accepts input from commands like:
#    cvs log -N -d '2001-02-28>2001-02-19' 

$/="=" x 77 . "\n";

my $count=1;
while(<>) {
    if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
	s/\nbranch:.*//;
	s/\nlocks:.*//;
	s/\naccess list:.*//;
	s/\nsymbolic names:.*//;
	s/\nkeyword substitution:.*//;
	s/\ntotal revisions:.*//;
	s/\n\?.*//g if $count==1;
	s/^\?.*//g if $count==1;
	my $gt='&gt;';
	my $lt='&lt;';
	s/\>/$gt/g;
	s/\</$lt/g;
	print "$_";
    }   
    $count++;
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>