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.2, 2001/02/27 17:09:17
  Line 8
  $/="=" x 77 . "\n";
+ my $count=1;
  while(<>) {
      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='&gt;';
+ 	my $lt='&lt;';
+ 	s/\>/$gt/g;
+ 	s/\</$lt/g;
  	print "$_";
      }
+     $count++;
  }