add packaging

[platform/upstream/curl.git] / log2changes.pl

diff --git a/log2changes.pl b/log2changes.pl
index 53e0057..667daab 100755 (executable)
--- 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=full
 
 my @mname = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
              'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' );
@@ -14,12 +14,28 @@ 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-([0-9_]*)/) {
+            $tag = $1;
+            $tag =~ tr/_/./;
+        }
     }
     elsif($l =~ /^Author: *(.*) +</) {
         $a = $1;
@@ -32,6 +48,12 @@ while(<STDIN>) {
     }
     elsif($l =~ /^(    )(.*)/) {
         my $extra;
+        if ($tag) {
+            # Version entries have a special format
+            print "\nVersion " . $tag." ($date)\n";
+            $oldc = "";
+            $tag = "";
+        }
         if($a ne $c) {
             $extra=sprintf("\n- [%s brought this change]\n\n  ", $a);
         }