moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

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

Browse Source 
Add the ASCII art header, and list version commits by decoding
the ref tag names, when available (using the git log --decorate
option).
This commit is contained in:
Dan Fandrich 2010-06-21 12:24:27 -07:00
parent bd5d478dd4
commit 8e7ec794f5
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
log2changes.pl
View File

@ -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";