mkchangelog.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/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 '', grep !/^#/, <>) {
    s/^\s*//;
    s/^([^\s]+)\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 $_;
    }
}