$printbr = 1;
$printtable = 0;
while (<>) {
+ s/\\&//g;
s/&/&/g;
s/\</</g;
s/\>/>/g;
+ s/\\'/'/g;
+ s/\\-/-/g;
if ($printtable == 1) {
$printtable = 2;
} elsif ($printtable == 2) {
print "</TD></TR></TABLE>\n";
}
print "<P>\n";
+ } elsif (/^\.IP/) {
+ if ($printtable == 3) {
+ $printtable = 0;
+ print "</TD></TR></TABLE>\n";
+ }
+ print "<P>\n";
+ } elsif (/^\.B "(.*)"$/) {
+ print "<B>$1</B>\n";
} elsif (/^\.B (.*)$/) {
print "<B>$1</B>\n";
+ } elsif (/^\.I "(.*)"$/) {
+ print "<I>$1</I>\n";
} elsif (/^\.I (.*)$/) {
print "<I>$1</I>\n";
} elsif (/^\.nf/) {
} else {
s/\\fB([^\\]*)\\fR/<B>\1<\/B>/gm;
s/\\fI([^\\]*)\\fR/<I>\1<\/I>/gm;
- s/\\(.)/\1>/g;
+ s/<([a-zA-Z0-9.]+\@[a-zA-Z0-9.]+)>/<<a href=\"mailto:\1\">\1<\/a>>/g;
+ s/(http:\/\/[a-zA-Z0-9.\/~]+\.html)/<a href=\"\1\">\1<\/a>/g;
print;
}
}