--- a/uh_parser/uh.pl	Tue Mar 09 14:37:22 2010 +0000
+++ b/uh_parser/uh.pl	Tue Mar 09 14:38:26 2010 +0000
@@ -25,6 +25,8 @@
 use RaptorSAXHandler;
 use Getopt::Long;
 
+use CGI;
+
 our $raptorbitsdir = 'raptorbits';
 our $basedir = '';
 my $outputdir = "html";
@@ -366,6 +368,7 @@
 		}
 		close(FILE);
 		
+		$filecontent = CGI::escapeHTML($filecontent);
 		$filecontent =~ s,---(failure_item_\d+)---,<a name="$1">---$1---</a>,g;
 		$filecontent = "<pre>$filecontent</pre>";