equal
deleted
inserted
replaced
23 |
23 |
24 use XML::SAX; |
24 use XML::SAX; |
25 use RaptorSAXHandler; |
25 use RaptorSAXHandler; |
26 use Getopt::Long; |
26 use Getopt::Long; |
27 |
27 |
|
28 use CGI; |
|
29 |
28 our $raptorbitsdir = 'raptorbits'; |
30 our $raptorbitsdir = 'raptorbits'; |
29 our $basedir = ''; |
31 our $basedir = ''; |
30 my $outputdir = "html"; |
32 my $outputdir = "html"; |
31 our $raptor_config = 'dummy_config'; |
33 our $raptor_config = 'dummy_config'; |
32 our $current_log_file = ''; |
34 our $current_log_file = ''; |
364 local $/=undef; |
366 local $/=undef; |
365 $filecontent = <FILE>; |
367 $filecontent = <FILE>; |
366 } |
368 } |
367 close(FILE); |
369 close(FILE); |
368 |
370 |
|
371 $filecontent = CGI::escapeHTML($filecontent); |
369 $filecontent =~ s,---(failure_item_\d+)---,<a name="$1">---$1---</a>,g; |
372 $filecontent =~ s,---(failure_item_\d+)---,<a name="$1">---$1---</a>,g; |
370 $filecontent = "<pre>$filecontent</pre>"; |
373 $filecontent = "<pre>$filecontent</pre>"; |
371 |
374 |
372 open(FILE, ">$outputdir/$filenamebase\_failures.html"); |
375 open(FILE, ">$outputdir/$filenamebase\_failures.html"); |
373 print FILE $filecontent; |
376 print FILE $filecontent; |