blob: 2ec46665e0fb5d9cadc08577fb259d8d0e8116a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl
($project) = (shift =~ /^([^ \/]+)/);
$project = uc $project if $project eq 'tuwf';
$title = shift;
print "---\ntitle: $title\npage-type: changelog\n...\n";
for (split /\n\n/, join '', <>) {
s/^([0-9]+\.[0-9]+(?:\.[0-9]+)?)\s+-\s+([0-9]{4}-[0-9]{2}-[0-9]{2})//;
print "\n- **$1** - $2";
$dl = "$project-$1.tar.gz";
$dl = "$project-linux-amd64-$1.tar.gz" if !-f "pub/download/$dl";
print " - [$dl](/download/$dl)" if -f "pub/download/$dl";
print "\n";
for (split /\r?\n\s+-\s+/) {
s/([*_\\])/\\$1/g;
print " - $_\n" if $_;
}
}
|