10 if ($printtable == 1) {
12 } elsif ($printtable == 2) {
14 print "</TD><TD ALIGN=\"left\">";
17 #hack, we're inside .nf so highlight comments and
20 s/\/\*/<FONT COLOR="#5555ff">\/\*/g;
21 s/\*\//\*\/<\/FONT>/g;
26 } elsif (/^\.TH .*\"([^"]*)\"/) {
27 # must be at the front
28 print "<HTML><HEAD><TITLE>$1 Manual page</TITLE></HEAD>\n";
29 print "<BODY BGCOLOR=\"#ffffff\">\n";
30 print "<H1>$1 Manual page</H1>\n";
31 } elsif (/^\.SH (.*)$/) {
32 if ($printtable == 3) {
34 print "</TD></TR></TABLE>\n";
36 print "<H3>$1</H3>\n";
38 if ($printtable == 3) {
40 print "</TD></TR></TABLE>\n";
44 if ($printtable == 3) {
46 print "</TD></TR></TABLE>\n";
49 } elsif (/^\.B "(.*)"$/) {
51 } elsif (/^\.B (.*)$/) {
53 } elsif (/^\.I "(.*)"$/) {
55 } elsif (/^\.I (.*)$/) {
58 if ($printtable == 3) {
60 print "</TD></TR></TABLE>\n";
62 print "<TABLE WIDTH=100%><TR><TD BGCOLOR=\"#dddddd\"><PRE>\n";
66 print "</TD></TR></TABLE>\n";
69 if ($printtable == 3) {
71 print "</TD></TR></TABLE>\n";
79 if ($printtable == 3) {
81 print "</TD></TR><TR>\n<TD ALIGN=\"left\">";
84 print "<TABLE BORDER><TR>\n<TD ALIGN=\"left\">";
87 s/\\fB([^\\]*)\\fR/<B>\1<\/B>/gm;
88 s/\\fI([^\\]*)\\fR/<I>\1<\/I>/gm;
89 s/<([a-zA-Z0-9.]+\@[a-zA-Z0-9.]+)>/<<a href=\"mailto:\1\">\1<\/a>>/g;
90 s/(http:\/\/[a-zA-Z0-9.\/~]+\.html)/<a href=\"\1\">\1<\/a>/g;
95 print "</BODY></HTML>\n";