version 1.1, 2001/02/27 16:20:03
|
version 1.2, 2001/02/27 17:09:17
|
Line 8
|
Line 8
|
|
|
$/="=" 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++; |
} |
} |