Commit 8e7ec794 authored by Dan Fandrich's avatar Dan Fandrich
Browse files

Make the output of log2changes.pl even more closely match CHANGES 

Add the ASCII art header, and list version commits by decoding
the ref tag names, when available (using the git log --decorate
option).
parent bd5d478d

log2changes.pl

+24 −2
Original line number Diff line number Diff line 
#!/usr/bin/perl



# git log --pretty=fuller --no-color --date=short

# git log --pretty=fuller --no-color --date=short --decorate



my @mname = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',

             'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' );
@@ -14,12 +14,30 @@ sub nicedate { 
    return $date;

}



print 

'                                  _   _ ____  _

                              ___| | | |  _ \| |

                             / __| | | | |_) | |

                            | (__| |_| |  _ <| |___

                             \___|\___/|_| \_\_____|



                                  Changelog

';



my $line;

my $tag;

while(<STDIN>) {

    my $l = $_;



    if($l =~/^commit (.*)/) {

    if($l =~/^commit ([[:xdigit:]]*) ?(.*)/) {

        $co = $1;

        my $ref = $2;

        if ($ref =~ /refs\/tags\/curl-(.*)\)/) {

            $tag = $1;

            $tag =~ tr/_/./; 

        } else {

            $tag = '';

        }

    }

    elsif($l =~ /^Author: *(.*) +</) {

        $a = $1;
@@ -38,6 +56,10 @@ while(<STDIN>) { 
        else {

            $extra="\n- ";

        }

        if ($tag) {

            # Version entries have a special format

            $c = "Version " . $tag;

        }

        if($co ne $oldco) {

            if($c ne $oldc) {

                print "\n$c ($date)$extra";