#!/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' );
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;
}
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);
}