22 |
# remove comments between <html> and <head> texi2html inserts them |
# remove comments between <html> and <head> texi2html inserts them |
23 |
# there and swish can't find document title then (libxml or swish bug?) |
# there and swish can't find document title then (libxml or swish bug?) |
24 |
while ($contents =~ s/(<html>.*)<!--.*?-->(.*<head>)/$1$2/msi) { }; |
while ($contents =~ s/(<html>.*)<!--.*?-->(.*<head>)/$1$2/msi) { }; |
25 |
|
|
26 |
|
# remove empty lines before/after <html> |
27 |
|
$contents =~ s/^\s+(<html>)/$1/is; |
28 |
|
$contents =~ s/(<\/html>)\s+$/$1/is; |
29 |
|
# remove cr |
30 |
|
$contents =~ s/\r//gs; |
31 |
|
|
32 |
|
# remove SQL Magazine header and footer |
33 |
|
$contents =~ s/<!-- begin topnav area -->.+?<!-- end topnav area -->/<\/table>/is; |
34 |
|
$contents =~ s/<!--Begin Footer-->.+?<\/table>/<\/table>/is; |
35 |
|
|
36 |
# remote TPJ left column |
# remote TPJ left column |
37 |
if ($contents =~ s,<!-- BEGIN LEFT SIDE BAR CELL -->.+?<!-- END LEFT SIDE BAR CELL -->,,isg) { |
if ($contents =~ s,<!-- BEGIN LEFT SIDE BAR CELL -->.+?<!-- END LEFT SIDE BAR CELL -->,,isg) { |