equal
deleted
inserted
replaced
103 $saxhandler->add_observer('RaptorUnreciped', $RaptorUnreciped::reset_status); |
103 $saxhandler->add_observer('RaptorUnreciped', $RaptorUnreciped::reset_status); |
104 $saxhandler->add_observer('RaptorRecipe', $RaptorRecipe::reset_status); |
104 $saxhandler->add_observer('RaptorRecipe', $RaptorRecipe::reset_status); |
105 $saxhandler->add_observer('releaseables', $releaseables::reset_status); |
105 $saxhandler->add_observer('releaseables', $releaseables::reset_status); |
106 |
106 |
107 our $allbldinfs = {}; |
107 our $allbldinfs = {}; |
|
108 our $allconfigs = {}; |
108 |
109 |
109 my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler); |
110 my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler); |
110 for (@logfiles) |
111 for (@logfiles) |
111 { |
112 { |
112 print "Reading file: $_\n"; |
113 print "Reading file: $_\n"; |
238 close(CSV); |
239 close(CSV); |
239 |
240 |
240 # PRINT HTML SUMMARY |
241 # PRINT HTML SUMMARY |
241 my $aggregated_html = "$outputdir/index.html"; |
242 my $aggregated_html = "$outputdir/index.html"; |
242 open(AGGREGATED, ">$aggregated_html"); |
243 open(AGGREGATED, ">$aggregated_html"); |
243 print AGGREGATED "RAPTOR BUILD SUMMARY<br/>\n"; |
244 print AGGREGATED "RAPTOR BUILD SUMMARY<br/><br/>\n"; |
|
245 |
|
246 my $allfilesstring = ''; |
|
247 for my $raptorfile (sort {$a cmp $b} @logfiles) { $allfilesstring .= ", $raptorfile"; } |
|
248 $allfilesstring =~ s/^, //; |
|
249 print AGGREGATED "PARSED LOGS: $allfilesstring<br/>\n"; |
|
250 |
|
251 my $allconfigsstring = ''; |
|
252 for my $raptorconfig (sort {$a cmp $b} keys %{$allconfigs}) { $allconfigsstring .= ", $raptorconfig"; } |
|
253 $allconfigsstring =~ s/^, //; |
|
254 print AGGREGATED "BUILT CONFIGS: $allconfigsstring<br/><br/>\n"; |
244 |
255 |
245 print AGGREGATED "<br/>GENERAL FAILURES<br/>\n"; |
256 print AGGREGATED "<br/>GENERAL FAILURES<br/>\n"; |
246 print AGGREGATED "<table border='1'>\n"; |
257 print AGGREGATED "<table border='1'>\n"; |
247 my $tableheader = "<tr><th>category</th>"; |
258 my $tableheader = "<tr><th>category</th>"; |
248 for (@severities) { $tableheader .= "<th>$_</th>"; } |
259 for (@severities) { $tableheader .= "<th>$_</th>"; } |