|
@@ -33,6 +33,7 @@ my @Groups = qw(
|
|
|
);
|
|
|
my %Group_Labels = (
|
|
|
breaking => 'Breaking changes',
|
|
|
+ build => 'Build',
|
|
|
deprecation => 'Deprecations',
|
|
|
doc => 'Docs',
|
|
|
feature => 'New features',
|
|
@@ -70,6 +71,14 @@ sub dump_issues {
|
|
|
$month++;
|
|
|
$year += 1900;
|
|
|
|
|
|
+ print <<"HTML";
|
|
|
+<html>
|
|
|
+<head>
|
|
|
+ <meta charset="UTF-8">
|
|
|
+</head>
|
|
|
+<body>
|
|
|
+HTML
|
|
|
+
|
|
|
for my $group ( @Groups, 'other' ) {
|
|
|
my $group_issues = $issues->{$group} or next;
|
|
|
print "<h2>$Group_Labels{$group}</h2>\n\n<ul>\n";
|
|
@@ -115,6 +124,7 @@ sub dump_issues {
|
|
|
print "</ul>";
|
|
|
print "\n\n";
|
|
|
}
|
|
|
+ print "</body></html>\n";
|
|
|
}
|
|
|
|
|
|
#===================================
|