X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/69c350c69e70bddb040dfc5d90b0368376a6389e..308dc7bdfb924370cfd205f656eb0e83191d01a9:/doc/makehtml.pl

diff --git a/doc/makehtml.pl b/doc/makehtml.pl
index 5b77ed2..003e9b5 100755
--- a/doc/makehtml.pl
+++ b/doc/makehtml.pl
@@ -2,9 +2,12 @@
 $printbr = 1;
 $printtable = 0;
 while (<>) {
+	s/\\&//g;
 	s/&/&amp;/g;
 	s/\</&lt;/g;
 	s/\>/&gt;/g;
+	s/\\'/'/g;
+	s/\\-/-/g;
 	if ($printtable == 1) {
 		$printtable = 2;
 	} elsif ($printtable == 2) {
@@ -38,6 +41,12 @@ while (<>) {
 			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 (.*)$/) {
@@ -78,7 +87,8 @@ while (<>) {
 	} else {
 		s/\\fB([^\\]*)\\fR/<B>\1<\/B>/gm;
 		s/\\fI([^\\]*)\\fR/<I>\1<\/I>/gm;
-		s/\\(.)/\1>/g;
+		s/&lt;([a-zA-Z0-9.]+\@[a-zA-Z0-9.]+)&gt;/&lt;<a href=\"mailto:\1\">\1<\/a>&gt;/g;
+		s/(http:\/\/[a-zA-Z0-9.\/~]+\.html)/<a href=\"\1\">\1<\/a>/g;
 		print;
 	}
 }