#!/usr/bin/perl -w
#
# Change some of the crappier things about texi2html's formatting.
#
$body = 0;
while (<>) {
$body = 1 if (/^$/);
if ($body > 0) {
$body ++ if (/^
$/);
if ($body > 1) {
print "
\n\n";
$body = 0;
}
next;
}
s@@@g;
s@
@
@g;
s@@@g;
s@
@@g;
s@$/) {
print 'It was then munged by a Perl script to stop it ' .
'looking horrible in ' .
"Lynx.\n\n";
}
print;
}
# EOF