#!/usr/bin/perl

($project) = (shift =~ /^([^ \/]+)/);
$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";
    print " - [dllink $dl]" if -f "pub/download/$dl";
    print "\n";

    for (split /\r?\n\s+-\s+/) {
        s/([*_\\])/\\$1/g;
        print "    - $_\n" if $_;
    }
}