From: Dan Fandrich <dan@coneharvesters.com>
Date: Mon, 21 Jun 2010 19:24:27 +0000 (-0700)
Subject: Make the output of log2changes.pl even more closely match CHANGES
X-Git-Tag: curl-7_21_1~120
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8e7ec794f50e41a6e8d86ee4c785a44da02bbfa1;p=thirdparty%2Fcurl.git

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).
---

diff --git a/log2changes.pl b/log2changes.pl
index 53e005790e..02ab2cdc96 100755
--- a/log2changes.pl
+++ b/log2changes.pl
@@ -1,6 +1,6 @@
 #!/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";