mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-11-21 01:16:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

log2changes.pl: wrap long lines at 80 columns

Browse Source 
Also, only use author names in the output.

Fixes #9896
Reported-by: John Sherrill
Closes #9897
This commit is contained in:
Daniel Stenberg 2022-11-12 00:07:34 +01:00
parent f4912407eb
commit 980510926d
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
scripts/log2changes.pl
View File

@ -37,6 +37,18 @@ sub nicedate {
return $date;
}
sub printmsg {
my ($p, $msg)=@_;
while(length($msg) > 77) {
print $p.substr($msg, 0, 77, "")."\n";
$p=" ";
}
if($msg eq "") {
$p = "";
}
print "$p$msg\n";
}
print
' _ _ ____ _
___| | | | _ \| |
@ -47,7 +59,6 @@ print
Changelog
';
my $line;
my $tag;
while(<STDIN>) {
my $l = $_;
@ -61,44 +72,32 @@ while(<STDIN>) {
}
}
elsif($l =~ /^Author: *(.*) +</) {
$a = $1;
}
elsif($l =~ /^Commit: *(.*) +</) {
$c = $1;
}
elsif($l =~ /^CommitDate: (.*)/) {
$date = nicedate($1);
}
elsif($l =~ /^( )(.*)/) {
my $extra;
my $pref = " ";
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);
}
else {
$extra="\n- ";
}
if($co ne $oldco) {
if($c ne $oldc) {
print "\n$c ($date)$extra";
print "\n$c ($date)\n\n";
}
else {
print "$extra";
print "\n";
}
$line =0;
$pref = "- ";
}
$oldco = $co;
$oldc = $c;
$olddate = $date;
if($line++ && $2 ne "") {
print " ";
}
print $2."\n";
printmsg($pref, $2);
}
}