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 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 		

   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;