--- comments.orig	Fri Jun 25 14:26:56 2004
+++ comments	Fri Jun 25 14:45:15 2004
@@ -85,6 +85,7 @@
 use FileHandle;
 use Data::Dumper;  $Data::Dumper::Indent=1;
 use POSIX          qw/strftime/;
+use HTML::Entities;
 
 my $fh = new FileHandle;
 
@@ -323,6 +324,7 @@
 	my(%new);
 	foreach ( @fields ) {
 	    $new{$_} = param($_);
+ 	    $new{$_} = HTML::Entities::encode($new{$_});
 	    if (!defined($new{$_}) or length($new{$_}) == 0) {
 		delete $new{$_};
 	    } elsif ($_ eq "url" and $new{$_} !~ /:/