Release notes: Add HTML header with UTF-8 encoding

This commit is contained in:
Clinton Gormley 2015-05-29 21:02:31 +02:00
parent a9ee78dd08
commit bd381b86ca
1 changed files with 10 additions and 0 deletions

View File

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