The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/bash
# based on https://gist.github.com/joelittlejohn/5937573
#
if [ "$#" -ne 1 ]; then
    echo "Usage: ./generate-changelog.sh user/repo"
    exit 1
fi
 
IFS=$'\n'
echo "# Changelog" > CHANGELOG.md
 
for m in $(curl -s "https://api.github.com/repos/$1/milestones?state=closed" | jq -c '.[] | [.title, .number, .description]' | sort -r); do
    mid=$(echo $m | sed 's/\[".*",\(.*\),".*"\]/\1/')
    title=$(echo $m | sed 's/\["\(.*\)",.*,".*"\]/\1/')

    echo "Processing milestone: $title..."
    echo $m | sed 's/\["\(.*\)",.*\]/## \1/' >> CHANGELOG.md
    echo "" >> CHANGELOG.md
    echo '### Description' >> CHANGELOG.md
    echo $m | sed 's/\[".*",.*,"\(.*\)"\]/\1/' | sed -e 's/\\"/"/g' | sed -e 's/\\r\\n/\\n/g' | sed -e 's/\\n/\'$'\n/g' >> CHANGELOG.md
    echo "" >> CHANGELOG.md
    echo '### Closed Issues' >> CHANGELOG.md
    for i in $(curl -s "https://api.github.com/repos/$1/issues?milestone=$mid&state=closed" | jq -c '.[] | [.html_url, .number, .title]'); do
        echo $i | sed 's/\["\(.*\)",\(.*\),\"\(.*\)\"\]/* \3 ([#\2](\1))/' | sed 's/\\"/"/g' >> CHANGELOG.md
    done
    echo "" >> CHANGELOG.md
    echo "" >> CHANGELOG.md
done