equal
deleted
inserted
replaced
149 |
149 |
150 my @allpackages = distinct_packages($allbldinfs); |
150 my @allpackages = distinct_packages($allbldinfs); |
151 |
151 |
152 print "Generating HTML\n"; |
152 print "Generating HTML\n"; |
153 |
153 |
|
154 $outputdir =~ s,/,\\,g; |
154 system("rd /S /Q $outputdir") if (-d $outputdir); |
155 system("rd /S /Q $outputdir") if (-d $outputdir); |
155 mkdir ($outputdir); |
156 mkdir ($outputdir); |
156 |
157 |
157 my $raptor_errors = {}; |
158 my $raptor_errors = {}; |
158 my $raptor_warnings = {}; |
159 my $raptor_warnings = {}; |
317 { |
318 { |
318 my $failuresbyseverity = 0; |
319 my $failuresbyseverity = 0; |
319 $failuresbyseverity = $recipe_failures_num_by_severity->{$package}->{$_} if (defined $recipe_failures_num_by_severity->{$package}->{$_}); |
320 $failuresbyseverity = $recipe_failures_num_by_severity->{$package}->{$_} if (defined $recipe_failures_num_by_severity->{$package}->{$_}); |
320 $packageline .= "<td>$failuresbyseverity</td>"; |
321 $packageline .= "<td>$failuresbyseverity</td>"; |
321 } |
322 } |
322 print "package $package, releasables in this package: $releaseables_by_package->{$package}\n"; |
323 #print "package $package, releasables in this package: $releaseables_by_package->{$package}\n"; |
323 $packageline .= "<td>".$missing_by_package->{$package}."/".$releaseables_by_package->{$package}."</td>" if ($missing); |
324 $packageline .= "<td>".$missing_by_package->{$package}."/".$releaseables_by_package->{$package}."</td>" if ($missing); |
324 $packageline .= "</tr>\n"; |
325 $packageline .= "</tr>\n"; |
325 print AGGREGATED "$packageline\n"; |
326 print AGGREGATED "$packageline\n"; |
326 } |
327 } |
327 # don't display the unknown/unknown package unless there are associated failures |
328 # don't display the unknown/unknown package unless there are associated failures |