projects
/
openssl-web.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge pull request #171 from t8m/master
[openssl-web.git]
/
bin
/
post-process-html5
1
#! /usr/bin/perl
2
3
use strict;
4
5
while ( <STDIN> ) {
6
s/<h(\d)/"<h".($1 + 1)/eg;
7
s/<\/h(\d)/"<\/h".($1 + 1)/eg;
8
9
# This is for OpenSSL's CHANGES.md
10
my $gfmid = sub {
11
my $x = lc $_[0];
12
$x =~ s/\s+/-/g;
13
$x =~ s/\.//g;
14
$x
15
};
16
s/(<h3)(>)(OpenSSL .*?)(<\/h3>)/$1.' id="'.$gfmid->($3).'"'.$2.$3.$4/eg;
17
print;
18
}