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, 7 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='>';
my $lt='<';
s/\>/$gt/g;
s/\</$lt/g;
print "$_";
}
$count++;
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>