\n";
}
}
sub my_print($) {
my $string = $_[0];
my $length = length($string);
return if $length eq 0;
$sum += length($string);
if ($table) {
if (not $reverse) {
print '';
} else {
print '';
}
print '' if $bold;
print '' if $underl;
print txt2html($string);
print '' if $underl;
print '' if $bold;
print ' | ' . "\n";
} else {
print "" if $bold;
print "" if $underl;
if (not $reverse) {
print "";
} else {
print "";
}
print txt2html($string);
print "";
print "" if $underl;
print "" if $bold;
}
}
sub txt2html($) {
$_ = $_[0];
s/&/&/g;
s/</g;
s/>/>/g;
s/ / /g;
# s/"/"/g;
return $_;
}
sub footer() {
if ($table) {
print ' |