X-Git-Url: http://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/7231d76fbf4ae0b501af648e1216b88714aa7353..928c6b8da5a3677aaaf33976a7d921a1498a61df:/doc/makehtml.pl

diff --git a/doc/makehtml.pl b/doc/makehtml.pl
index 8b14c5d..cfaed9d 100755
--- a/doc/makehtml.pl
+++ b/doc/makehtml.pl
@@ -5,6 +5,8 @@ while (<>) {
 	s/&/&amp;/g;
 	s/\</&lt;/g;
 	s/\>/&gt;/g;
+	s/\\'/'/g;
+	s/\\-/-/g;
 	if ($printtable == 1) {
 		$printtable = 2;
 	} elsif ($printtable == 2) {
@@ -38,8 +40,18 @@ 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 (.*)$/) {
 		print "<B>$1</B>\n";
+	} elsif (/^\.I "(.*)"$/) {
+		print "<I>$1</I>\n";
 	} elsif (/^\.I (.*)$/) {
 		print "<I>$1</I>\n";
 	} elsif (/^\.nf/) {
@@ -74,7 +86,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;
 	}
 }