changeset 187 | ec83a06d23a8 |
parent 186 | b76adfbc6648 |
child 215 | a403724f631c |
--- a/uh_parser/uh.pl Mon Mar 08 18:21:32 2010 +0000 +++ b/uh_parser/uh.pl Tue Mar 09 12:25:31 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>";