summaryrefslogtreecommitdiff
path: root/mkhtm2html-default
diff options
context:
space:
mode:
Diffstat (limited to 'mkhtm2html-default')
-rwxr-xr-xmkhtm2html-default4
1 files changed, 2 insertions, 2 deletions
diff --git a/mkhtm2html-default b/mkhtm2html-default
index e3ca90b..a4b7bc8 100755
--- a/mkhtm2html-default
+++ b/mkhtm2html-default
@@ -31,7 +31,7 @@ foreach my $class ( map /(?<=\.)(ft\d+)(?={font-size:7px;)/mg, $_ ) {
s{\(</P>\s*<P\s[^>]*\sclass="$class">\d+</P>\s*<P\s[^>]*>\)}{}mg;
};
-# document headers
+# drop document headers
s{<HEAD>.*?</HEAD>\s*}{}msg;
s{</DIV>\n</BODY>\n</HTML>.*?<DIV\b[^>]*>\s*}{}msg;
@@ -58,7 +58,7 @@ s{(?<=class="(ft\d{3})">)[^<]+?\K\s*</P>\s*<P\b[^>]*class="\1"[^>]*>}{ }mg;
#s{<P\b[^>]*class="([^"]+)"[^>]*>([^<]+?)\s*</P>\s*(?=<P\b[^>]*class="\1"[^>]*>)}{$2 }mg;
s{\s*<br/>\s*}{ }mg;
-# styling
+# drop styling
s{<P\b[^>]*>}{<P>}mg;
write_file( $stem . '.html', $_ );