--- rcs2html.pl	2003/10/26 14:24:32	1.1
+++ rcs2html.pl	2004/01/31 18:50:31	1.2
@@ -5,6 +5,15 @@
 my $rcs2log = "rcs2log ".join(" ",@ARGV);
 my $have_ul = 0;
 
+sub encode {
+	my $foo = shift;
+	$foo =~ s/</&lt;/g;
+	$foo =~ s/>/&gt;/g;
+	$foo =~ s/"/&quot;/g;
+	return $foo;
+}
+	
+
 open(RCS2LOG, "$rcs2log |") || die "$rcs2log: $!";
 while(<RCS2LOG>) {
 	chomp;
@@ -15,8 +24,7 @@
 			print "</ul>\n";
 			$have_ul = 0;
 		}
-		$email =~ s/</&lt;/g;
-		$email =~ s/>/&gt;/g;
+		$email = encode($email);
 		$email =~ s/@/(at)/g;
 		$email =~ s/\./(dot)/g;
 		print "<tt>$date</tt> $who <tt>$email</tt>\n";
@@ -25,11 +33,11 @@
 			print "<ul>\n";
 			$have_ul = 1;
 		}
-		print "<li> <tt>$1</tt>:$2\n";
+		print "<li> <tt>$1</tt>:".encode($2)."\n";
 	} elsif (/^\t([-]\s.*)$/) {
-		print "<br>$1\n";
+		print "<br>".encode($1)."\n";
 	} else {
-		print "$_\n";
+		print encode($_)."\n";
 	}
 }