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++; |
} |
} |