loncom/build/cvsfilter.pl - diff

Return to cvsfilter.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.1, 2001/02/27 16:20:03	version 1.3, 2003/02/03 18:03:52
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl

# Scott Harrison
# 02/27/2001	# 02/27/2001

# Accepts input from commands like:	# Accepts input from commands like:
Line 8	Line 7

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

	my $count=1;
while(<>) {	while(<>) {
if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {	if (/\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-/) {
s/branch:.*\n//;	s/\nbranch:.*//;
s/locks:.*\n//;	s/\nlocks:.*//;
s/access list:.*\n//;	s/\naccess list:.*//;
s/symbolic names:.*\n//;	s/\nsymbolic names:.*//;
s/keyword substitution:.*\n//;	s/\nkeyword substitution:.*//;
s/total revisions:.*\n//;	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 "$_";	print "$_";
}	}
	$count++;
}	}